anchor.diff:  	    {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);
  +	    case pop_request(Req, Server, User, Password) of
  +		{error, Reason} ->
  +		    {error, Reason};
  +		Res ->
  +		    Hdrs = lists:map(fun({ok,Ls}) ->
  +					     parse_headers(Ls)
  +				     end, Res),
  +		    add_hdrs(Info,Hdrs)
  +	    end;
   	{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]) ->
  
positive.code: 	    exit("No reply from session manager")
      end.
  
  ttl() ->         req(ttl).
  popserver() ->   req(popserver).
  smtpserver() ->  req(smtpserver).
  maildomain() ->  req(maildomain).
  
negative.code: 	end,
      Fs = [Op(F) || F <- Addrs].
  
  token_addrs([], [], _) ->
      [];
  token_addrs([], Acc, _) ->
  