Mercurial > emacs
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.