anchor.diff:  		  {table, [{border,0},{cellspacing,0},{cellpadding,1},
   			   {width,"100%"}],
   		   [{tr, [{bgcolor,"c0c0c0"},{valign,middle}],
  -		     [{th,[{class,head}],
  +		     [{th,[{align,left},{valign,middle},{class,head}],
  +		       {font,[{size,2},{color,black}],"Nr"}},
  +		      {th,[{class,head}],
   		       {img,[{src,"view-mark.gif"},{width,13},
   			     {height,13}],[]}},
   		      {th,[{align,left},{valign,middle},{class,head}],
  
positive.code: 		lists:foldl(fun({K,V},MH) ->
  				    add_header(K,V,MH)
  			    end, #mail{}, Headers),
  	    format_body(PartHeaders, Body);
  	{{"multipart/alternative",Opts}, Encoding} ->
  	    {value, {_,Boundary}} = lists:keysearch("boundary",1,Opts),
  	    Parts = parse_multipart(Msg, Boundary),
  
negative.code:     [build_toolbar([{"","mail.yaws","Close"}]),
       {p, [], {font, [{size,4},{color,red}],["Error: ", Reason]}}].
  
  format_message(Message, MailNr, Depth) ->
      {Headers,Msg} = parse_message(Message),
      H = parse_headers(Headers),
      Formated = format_body(H,Msg, Depth),
      MailStr = integer_to_list(MailNr),
      To = lists:flatten(decode(H#mail.to)),
      From = lists:flatten(decode(H#mail.from)),
  