anchor.diff:  
   %%
   
  -dot_unescape(Data) ->
  -    {_,Dt} = dot_unescape(Data, true, []),
  -    Dt.
  -
  -dot_unescape([], NL, Acc) ->
  -    {NL, lists:reverse(Acc)};
  -dot_unescape([$.|Rest], true, Acc) ->
  -    dot_unescape(Rest, false, Acc);
  -dot_unescape([$\n|Rest], _, Acc) ->
  -    dot_unescape(Rest, true, [$\n|Acc]);
  -dot_unescape([L|Rest], NL, Acc) when list(L) ->
  -    {NL2, L2} = dot_unescape(L, NL, []),
  -    dot_unescape(Rest, NL2, [L2|Acc]);
  -dot_unescape([C|Rest], _, Acc) ->
  -    dot_unescape(Rest, false, [C|Acc]).
  +%dot_unescape(Data) ->
  +%    {_,Dt} = dot_unescape(Data, true, []),
  +%    Dt.
  +%
  +%dot_unescape([], NL, Acc) ->
  +%    {NL, lists:reverse(Acc)};
  +%dot_unescape([$.|Rest], true, Acc) ->
  +%    dot_unescape(Rest, false, Acc);
  +%dot_unescape([$\n|Rest], _, Acc) ->
  +%    dot_unescape(Rest, true, [$\n|Acc]);
  +%dot_unescape([L|Rest], NL, Acc) when list(L) ->
  +%    {NL2, L2} = dot_unescape(L, NL, []),
  +%    dot_unescape(Rest, NL2, [L2|Acc]);
  +%dot_unescape([C|Rest], _, Acc) ->
  +%    dot_unescape(Rest, false, [C|Acc]).
   
   
   %%
  
positive.code: 
  %%
  
  y(Y1, Y2) -> 256 * Y1 + Y2.
  
  weekday(Y1,Y2,Mo,D) ->
      int_to_wd(calendar:day_of_the_week(Y1*256+Y2,Mo,D)).
  
  int_to_wd(1) -> "Mon";
  int_to_wd(2) -> "Tue";
  
negative.code:     gen_tcp:send(Port, Data).
  
  smtp_send_message(Port, Data) ->
      {_LastNL, Escaped} = dot_escape(Data, true),
      gen_tcp:send(Port, Escaped).
  
  send_recipients( Recipients, Port ) ->
  	Fun = fun (R) ->
  			smtp_put( smtp_recipient(R), Port),
  			smtp_expect(250, Port, io_lib:format("Recipient ~s not accepted.",[R]))
  		end,
  	lists:foreach( Fun, Recipients ).
  
  smtp_put(Message, Port) ->
      gen_tcp:send(Port, [Message,"\r\n"]).
  