anchor.diff:  
   retr(Server, User, Password, Nr) ->
       Req = [ret(Nr)],
  -    [{ok,Msg}] = pop_request(Req, Server, User, Password),
  -    Msg.
  +    case pop_request(Req, Server, User, Password) of
  +	[{ok,Msg}] ->
  +	    Msg;
  +	[{error, Reason}] ->
  +	    {error, Reason}
  +    end.
   
   parse_message(Msg) ->
  -    {Ls,M}=split_head_body(Msg),
  -    H = parse_headers(Ls),
  -    {H,M}.
  -
  -split_head_body(Msg) ->
  -    split_head_body(Msg,[]).
  +    split_head_body(Msg, []).
   
   split_head_body(Msg, Acc) ->
       case get_next_line(Msg) of
  
positive.code: 
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
  format_message(Message, MailNr) ->
      {H,Msg} = parse_message(Message),
      Formated = format_body(H,Msg),
      MailStr = integer_to_list(MailNr),
      [{form, [{name,compose},{action,"reply.yaws"},{method,post}],
       [build_toolbar([{"tool-newmail.gif","compose.yaws","New"},
  		     {"tool-newmail.gif", "javascript:setCmd('reply');",
  		      "Reply"}]++
  		    if 
  			MailNr == -1 -> [];
  			true -> 
  			    [{"","headers.yaws?nr="++MailStr,"Headers"},
  			     {"tool-delete.gif","javascript:setCmd('delete');",
  			      "Delete"}]
  		    end ++
  		    [{"","mail.yaws","Close"}]),
        {table,[{width,645},{height,"100%"},{border,0},{bgcolor,silver},
  	      {cellspacing,0},{callpadding,0}],
         {tr,[],{td,[{valign,top},{height,"1%"}],
  
negative.code: 	 "}"
  	},
  	{style, [{type,"text/css"}],
  	 ".conts    { visibility:hidden }\n"
  	 "A:link    { color: 0;text-decoration: none}\n"
  	 "A:visited { color: 0;text-decoration: none}\n"
  	 "A:active  { color: 0;text-decoration: none}\n"},
  