anchor.diff:  	    end
       end.
   
  -retr_from(FromStr) ->
  +parse_addr(AddrStr) ->
  +    Addrs = token_addrs(AddrStr, [], false),
       Op =
   	fun(From) ->
   		case {string:chr(From,$<),string:chr(From,$>)} of
   		    {S,E} when S>0, E>0 ->
   			string:substr(From,S,(E-S)+1);
   		    _ ->
  -			From
  +			string:strip(From)
   		end
   	end,
  -    FromList = string:tokens(FromStr, ","),
  -    Fs = [Op(F) || F <- FromList],
  -    format_list(Fs).
  +    Fs = [Op(F) || F <- Addrs].
  +
  +format_addr(Addr) ->
  +    format_list(Addr).
  +
  +token_addrs([], [], _) ->
  +    [];
  +token_addrs([], Acc, _) ->
  +    [lists:reverse(Acc)];
  +token_addrs([C=$"|R], Acc, true) ->
  +    token_addrs(R, [C|Acc], false);
  +token_addrs([C=$"|R], Acc, false) ->
  +    token_addrs(R, [C|Acc], true);
  +token_addrs([C=$,|R], Acc, false) ->
  +    [lists:reverse(Acc)|token_addrs(R, [], false)];
  +token_addrs([C|R], Acc, InQuote) ->
  +    token_addrs(R, [C|Acc], InQuote).
   
   format_list([]) -> [];
   format_list([E]) -> E;
  
positive.code: 	    {font, [{size,2},{color,"#000000"},{title,Cmd}], Cmd}}]} |
  	 build_toolbar(Rest, Used+3)];    
  build_toolbar([{Gif,Url,Cmd}|Rest], Used) ->
      if Used == -1 ->
  	    [];
         true ->
  	    [{td, [nowrap,{width,"1%"},{valign,middle},{align,left}],
  	      {img, [{src,"tool-div.gif"},{width,2},{height,16},
  		     {alt,""},{border,0},{hspace,2}]}}]
      end ++
  	[{td, [nowrap,{width,"2%"},{valign,middle},{align,left}],
  	  {a, [{class,nolink},
  	       {href,Url}],
  	   [{img, [{src,Gif},{vspace,2},{width,20},
  		   {height,20},{alt,Cmd},{border,0}],[]}]}
  
  	 },
  	 {td, [nowrap,{width,"2%"},{valign,middle},{align,left}],
  	  [{a, [{class,nolink},
  		{href,Url}],
  	    {font, [{size,2},{color,"#000000"},{title,Cmd}], Cmd}}]} |
  	 build_toolbar(Rest, Used+4)].
  
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
negative.code: 		       {font,[{color,"#000000"},{size,2},nowrap],
  			{pre_html,"&nbsp;To:&nbsp;"}}},
  		      {td,[{height,35},{align,left},{valign,top}],
  		       {input,[{name,to},{type,text},{size,66},
  			       {value,To}]}}]},
  	      {tr,[],[{td,[{height,0},{align,left},{valign,top}],[]},
  		      {td,[{height,0},{align,left},{valign,top}],[]}]},
  	      {tr,[],[{td,[{height,35},{align,left},{valign,top}],
  		       {font,[{color,"#000000"},{size,2},nowrap],
  			{pre_html,"&nbsp;Cc:&nbsp;"}}},
  		      {td,[{height,35},{align,left},{valign,top}],
  		       {input,[{name,cc},{type,text},{size,66},
  			       {value,Cc}]}}]},
  	      {tr,[],[{td,[{height,0},{align,left},{valign,top}],[]},
  		      {td,[{height,0},{align,left},{valign,top}],[]}]},
  	      {tr,[],[{td,[{height,35},{align,left},{valign,top}],
  		       {font,[{color,"#000000"},{size,2},nowrap],
  			{pre_html,"&nbsp;Bcc:&nbsp;"}}},
  		      {td,[{height,35},{align,left},{valign,top}],
  		       {input,[{name,bcc},{type,text},{size,66},
  			       {value,Bcc}]}}
  		     ]},
  	      {tr,[],[{td,[{height,35},{align,left},{valign,top},nowrap],
  		       {font,[{color,"#000000"},{size,2}],
  