anchor.diff:  			showmail(Session, MailNr, Count-1)
   		end;
   	    Message ->
  -		format_message(Message, MailNr)
  +		format_message(Message, MailNr, "1")
   	end,
   
       (dynamic_headers() ++
  
positive.code: format_summary_line(I) ->
      H = I#info.headers,
      {tr, [{align,center},{valign,top}],
       [{td, [{align,center},{valign,top},{class,"List"}],
         {input, [{type,checkbox},{name,I#info.nr},{value,yes}],[]}},
        {td, [{align,left},{valign,top},{class,"List"}],
         {a, [{href,"showmail.yaws?nr="++integer_to_list(I#info.nr)}],
  	{font,[{size,2},{color,black}],{b,[],format_from(H#mail.from)}}}},
        {td, [{align,left},{valign,top},{class,"List"}],
         {a, [{href,"showmail.yaws?nr="++integer_to_list(I#info.nr)}],
  	{font,[{size,2},{color,black}],{b,[],decode(H#mail.subject)}}}},
        {td, [{align,left},{valign,top},{class,"List"}],
         {a, [{href,"showmail.yaws?nr="++integer_to_list(I#info.nr)}],
  	{font,[{size,2},{color,black}],{b,[],integer_to_list(I#info.size)}}}}
       ]}.
  
negative.code: 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),
  