# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 782683410 0
# Node ID 449fc86a0f4f4ad748a422c4386b3da807c76cd6
# Parent  e928e72d3342677545ab99ed43f20e3f4d2934c4
(ange-ftp-get-passwd): Use user-mail-address.
(ange-ftp-generate-anonymous-password): Doc fix.

diff -r e928e72d3342 -r 449fc86a0f4f lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Thu Oct 20 20:01:41 1994 +0000
+++ b/lisp/ange-ftp.el	Thu Oct 20 20:03:30 1994 +0000
@@ -699,9 +699,9 @@
   "*Account password to use when the user is the same as ange-ftp-default-user.")
 
 (defvar ange-ftp-generate-anonymous-password t
-  "*If t, use a password of user@host when logging in as the anonymous user.
-If a string then use that as the password.
-If nil then prompt the user for a password.")
+  "*If t, use value of `user-mail-address' as password for anonymous ftp.
+If a string, then use that string as the password.
+If nil, prompt the user for a password.")
 
 (defvar ange-ftp-dumb-unix-host-regexp nil
   "*If non-nil, regexp matching hosts on which `dir' command lists directory.")
@@ -860,7 +860,7 @@
 ;;;; Internal variables.
 ;;;; ------------------------------------------------------------
 
-(defconst ange-ftp-version "$Revision: 1.56 $")
+(defconst ange-ftp-version "$Revision: 1.57 $")
 
 (defvar ange-ftp-data-buffer-name " *ftp data*"
   "Buffer name to hold directory listing data received from ftp process.")
@@ -1081,7 +1081,7 @@
 	      ange-ftp-generate-anonymous-password)
 	 (if (stringp ange-ftp-generate-anonymous-password)
 	     ange-ftp-generate-anonymous-password
-	   (concat (user-login-name) "@" (system-name))))
+	   user-mail-address))
 	
 	;; see if same user has logged in to other hosts; if so then prompt
 	;; with the password that was used there.