anchor.diff:  			{pre_html,"&nbsp;To:&nbsp;"}}},
   		      {td,[{height,35},{align,left},{valign,top}],
   		       {input,[{name,to},{type,text},{size,66},
  -			       {check,value,To}]}}]},
  +			       {check,value,quote(To)}]}}]},
   	      {tr,[],[{td,[{height,0},{align,left},{valign,top}],[]},
   		      {td,[{height,0},{align,left},{valign,top}],[]}]},
   	      {tr,[],[{td,[{height,35},{align,left},{valign,top}],
  
positive.code: 			{pre_html,"&nbsp;Bcc:&nbsp;"}}},
  		      {td,[{height,35},{align,left},{valign,top}],
  		       {input,[{name,bcc},{type,text},{size,66},
  			       {check,value,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,Subject}]}}]}
  	     ]
  	    },
  	    {table, [{bgcolor,silver},{border,0},{cellspacing,0},
  
negative.code: 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,
  