Mail address as password for anonymous FTP

[Mike McMahon <MMcM@TITANIA.Oberon.COM>]

    Date: Thu, 31 Dec 1992 05:13-0800
    From: Bob Kanefsky <Kanef@PTOLEMY.arc.nasa.gov>

    This does work:
	    (with-output-to-string (s)
	      (destructuring-bind (user host) (send si:*user* :mail-address)
		(zwei:print-address-list
		  `((:name ,user :host (:object ,host))) s)))

You can get ZMAIL to do the :mail-address extraction:
    (zwei:string-from-header `(:user ,si:*user*) :internet)