changeset 9627:449fc86a0f4f

(ange-ftp-get-passwd): Use user-mail-address. (ange-ftp-generate-anonymous-password): Doc fix.
author Richard M. Stallman <rms@gnu.org>
date Thu, 20 Oct 1994 20:03:30 +0000
parents e928e72d3342
children d325ca3a67e4
files lisp/ange-ftp.el
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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.