anchor.diff:  					      {reuseaddr,true},
   					      binary]),
       smtp_expect(220, Port, "SMTP server does not respond"),
  -    smtp_put("MAIL FROM: " ++ From, Port),
  +    smtp_put( smtp_from(From), Port ),
       smtp_expect(250, Port, "Sender not accepted by mail server"),
       send_recipients(Recipients, Port),
       smtp_put("DATA", Port),
  
positive.code:     gen_tcp:send(Port, Data).
  
  smtp_send_message(Port, Data) ->
      {LastNL, Escaped} = dot_escape(Data, true),
      gen_tcp:send(Port, Escaped).
  
  send_recipients([], Port) ->
      ok;
  send_recipients([R|Rs], Port) ->
      smtp_put("RCPT TO: " ++ R, Port),
      smtp_expect(250, Port, io_lib:format("Recipient ~s not accepted.",[R])),
      send_recipients(Rs, Port).
  
  smtp_put(Message, Port) ->
      gen_tcp:send(Port, [Message,"\r\n"]).
  
negative.code: %    Purpose:   
  
  -module('smtp').
  -author('jb@bevemyr.com').
  
  -export([send/6]).
  
  