anchor.diff:  	    exit("No reply from session manager")
       end.
   
  -ttl() ->         req(ttl).
  +% ttl() ->         req(ttl).
   popserver() ->   req(popserver).
   smtpserver() ->  req(smtpserver).
   maildomain() ->  req(maildomain).
  
positive.code: 	    {error, Reason}
      end.
  
  
  rtop(Server, User, Password, Nr) ->
      Req = [top(Nr)],
      [{ok,Msg}] = pop_request(Req, Server, User, Password),
      {parse_headers(Msg), [M++"\n" || M <- Msg]}.
  
  list(Server, User, Password) ->
      case pop_request([{"LIST",ml}], Server, User, Password) of
  	[{ok, Stats}] ->
  	    Info = lists:reverse([info(S) || S <- Stats]),
  	    Req = [top(I#info.nr) || I <- Info],
  	    Res = pop_request(Req, Server, User, Password),
  	    Hdrs = lists:map(fun({ok,Ls}) -> parse_headers(Ls) end, Res),
  	    add_hdrs(Info,Hdrs);
  	{error, Reason} ->
  	    {error, Reason}
      end.
  
  list(Server, User, Password, From, To) ->
      case pop_request([{"LIST",ml}], Server, User, Password) of
  	[{ok, Stats}] ->
  	    SortStats = lists:sublist(lists:reverse(Stats), From, To),
  	    Info = [info(S) || S <- SortStats],
  	    Req = [top(I#info.nr) || I <- Info],
  	    Res = pop_request(Req, Server, User, Password),
  	    Hdrs = lists:map(fun({ok,Ls}) -> parse_headers(Ls) end, Res),
  	    add_hdrs(Info,Hdrs);
  	{error, Reason} ->
  	    {error, Reason}
      end.
  
  add_hdrs([], []) -> [];
  add_hdrs([I|Is], [H|Hs]) ->
  
negative.code: 	end,
      Fs = [Op(F) || F <- Addrs].
  
  token_addrs([], [], _) ->
      [];
  token_addrs([], Acc, _) ->
  