anchor.diff:      receive_data(State#pstate{more=false});
   receive_data(State=#pstate{port=Port,acc=[],more=true,remain=Remain}) ->
       Res = gen_tcp:recv(Port, 0),
  -						% io:format("Remain = ~p\n", [Remain]),
       case Res of
   	{ok, Bin} ->
  -						% io:format("got ~s~n", [binary_to_list(Bin)]),
   	    Acc = binary_to_list(Bin),
   	    if
   		Remain =< length(Acc) ->
  
positive.code:        ]}]).
  
  showheaders(Session, MailNr) ->
      tick_session(Session#session.cookie),
      {H,Msg} = rtop(popserver(), Session#session.user,
  		   Session#session.passwd, MailNr),
  
      ContentType = undefined,
  
      (dynamic_headers() ++
  
negative.code: maildomain() ->  req(maildomain).
  sendtimeout() -> req(sendtimeout).
  
  
      
      
  diff({M1,S1,_}, {M2,S2,_}) ->
      (M2-M1)*1000000+(S2-S1).
  
  