anchor.diff:  unquote([$"|R]) -> unquote(R);
   unquote([C|R]) -> [C|unquote(R)].
   
  +quote([]) ->
  +    [];
  +quote([$"|Cs]) ->
  +    ["&quot;"|quote(Cs)];
  +quote([C|Cs]) ->
  +    [C|quote(Cs)].
  +
   display_login(A, Status) ->
       (dynamic_headers() ++
        [{ehtml,
  
positive.code: 			{pre_html,"&nbsp;To:&nbsp;"}}},
  		      {td,[{height,35},{align,left},{valign,top}],
  		       {input,[{name,to},{type,text},{size,66},
  			       {check,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}],
  
negative.code: 			{pre_html,"&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}],
  			{pre_html,"&nbsp;Subject:&nbsp;"}}},
  		      {td,[{colspan,3},{align,left},{valign,top}],
  		       {input,[{name,subject},{type,text},{size,66},
  			       {check,value,quote(Subject)}]}}]}
  	     ]
  	    },
  	    {table, [{bgcolor,silver},{border,0},{cellspacing,0},
  