anchor.diff:      RCc = string:tokens(Cc,","),
       RBcc = string:tokens(Bcc,","),
       Recipients = RTo ++ RCc ++ RBcc,
  -    Date = yaws:date_and_time_to_string(yaws:date_and_time()),
  +    Date = date_and_time_to_string(yaws:date_and_time()),
       Headers =
   	(mail_header("To: ", To) ++
   	 mail_header("From: ", Session#session.user++"@"++?MAILDOMAIN) ++
   	 mail_header("Cc: ", Cc) ++
   	 mail_header("Bcc: ", Bcc) ++
  -	 mail_header("Subject: ", Subject)),
  +	 mail_header("Subject: ", Subject) ++
  +	 mail_header("Content-Type: ", "text/plain") ++
  +	 mail_header("Content-Transfer-Encoding: ", "8bit")),
       Message = io_lib:format("~sDate: ~s\r\n\r\n~s\r\n.\r\n",
   			    [Headers, Date, Msg]),
       case smtp_send(?SMTPSERVER, Session, Recipients, Message) of
  
positive.code: d($+)                     -> 62;
  d($/)                     -> 63;
  d(_)                      -> no.
  
negative.code:     {H,Msg} = retr(?POPSERVER, Session#session.user,
  		   Session#session.passwd, MailNr),
  
      Formated = format_message(H, Msg),
  
      (dynamic_headers() ++
       [{ehtml,
  