anchor.diff:      case {ContentType,H#mail.transfer_encoding} of
   	{{"text/html",_}, Encoding} ->
   	    Decoded = decode_message(Encoding, Msg),
  -	    {pre_html, Decoded};
  +	    Decoded;
   	{{"text/plain",_}, Encoding} ->
   	    Decoded = decode_message(Encoding, Msg),
  -	    {pre, [], wrap_text(Decoded, 80)};
  +	    {pre, [], yaws_api:htmlize(wrap_text(Decoded, 80))};
   	{{"multipart/mixed",Opts}, Encoding} ->
   	    {value, {_,Boundary}} = lists:keysearch("boundary",1,Opts),
   	    [{Headers,Body}|Parts] = parse_multipart(Msg, Boundary),
  
positive.code:     parse_key_value(O, []).
  
  parse_key_value([], Acc) ->
      {lists:reverse(Acc), []};
  parse_key_value([$=|Rest], Acc) ->
      Value = unquote(string:strip(Rest)),
      Key = string:strip(lists:reverse(Acc)),
      {Key, Value};
  parse_key_value([C|Cs], Acc) ->
      parse_key_value(Cs, [C|Acc]).
  
negative.code: 		      {td,[{height,0},{align,left},{valign,top}],[]}]},
  	      {tr,[],[{td,[{height,35},{align,left},{valign,top}],
  		       {font,[{color,"#000000"},{size,2},nowrap],
  			"&nbsp;Bcc:&nbsp;"}},
  		      {td,[{height,35},{align,left},{valign,top}],
  		       {input,[{name,bcc},{type,text},{size,66},
  			       {check,value,quote(Bcc)}]}}
  		     ]},
  	      {tr,[],[{td,[{height,35},{align,left},{valign,top},nowrap],
  		       {font,[{color,"#000000"},{size,2}],
  			"&nbsp;Subject:&nbsp;"}},
  		      {td,[{colspan,3},{align,left},{valign,top}],
  		       {input,[{name,subject},{type,text},{size,66},
  			       {check,value,quote(Subject)}]}}]}
  