anchor.diff:  
   do_send(FromAddress, ToAddress, Subject, Body, Callback) ->
       MessageHeader = build_message_header([
  -            {"Subject", Subject},
  -            {"To", ToAddress},
  -            {"From", FromAddress}], "text/plain"), 
  +                                          {"Subject", Subject},
  +                                          {"To", ToAddress},
  +                                          {"From", FromAddress}], "text/plain"), 
       gen_server:call(boss_mail, {deliver, FromAddress, ToAddress, 
               fun() -> [MessageHeader, "\r\n", convert_unix_newlines_to_dos(Body)] end,
               Callback}).
  
positive.code:             send_message(Application, FromAddress, ToAddress, Action, HeaderFields, Variables, [], Callback);
          {ok, FromAddress, ToAddress, HeaderFields, Variables, Options} -> 
              send_message(Application, FromAddress, ToAddress, Action, HeaderFields, Variables, Options, Callback);
          nevermind ->
              ok
      end.
  
  
negative.code:     gen_server:call(boss_mail, {deliver, FromAddress, ToAddress, BodyFun, Callback}).
  
  build_message(App, Action, HeaderFields, Variables, Options) ->
      ContentLanguage             = proplists:get_value("Content-Language", HeaderFields),
      EffectiveAction             = proplists:get_value(template, Options, Action),
      Attachments                 = proplists:get_value(attachments, Options, []),
      {MimeType, MessageBody}     = build_message_body_attachments(App, EffectiveAction, Variables, Attachments, ContentLanguage),
      MessageHeader = build_message_header(HeaderFields, MimeType),
      [MessageHeader, "\r\n", convert_unix_newlines_to_dos(MessageBody)].
  
  