anchor.diff:       ]
       }].
   
  +select_alt_body([], [First|_]) -> First;
  +select_alt_body([Prefered|Rest], Bodies) ->
  +    case [Body || Body <- Bodies, has_body_type(Prefered,Body)] of
  +	[] ->
  +	    select_alt_body(Rest, Bodies);
  +	[First|_] ->
  +	    First
  +    end.
  +		  
  +has_body_type(Type, {H,B}) ->
  +    case H#mail.content_type of
  +	{CT, _Ops} ->
  +	    CTL = lowercase(CT),
  +	    CTL == Type;
  +	_ -> false
  +    end.
  +
   format_body(H,Msg) ->
       ContentType =
   	case H#mail.content_type of
  
positive.code: 	    Decoded = decode_message(Encoding, Msg),
  	    format_message(Decoded, -1);
  	{_,_} ->
  	    {pre, [], Msg}
      end.
  
  decode_message("7bit"++_, Msg) -> Msg;
  
negative.code: 	 "A:active  { color: 0;text-decoration: none}\n"},
  	{body,[{bgcolor,silver},{marginheight,0},{link,"#000000"},
  	       {topmargin,0},{leftmargin,0},{rightmargin,0},
  	       {marginwidth,0}, {onload, "document.compose.to.focus();"}],
  	 [{form, [{name,compose},{action,"send.yaws"},{method,post}],
  	   [{table, [{border,0},{bgcolor,"c0c0c0"},{cellspacing,0},
  		     {width,"100%"}],
  