Mercurial > emacs
comparison lisp/ange-ftp.el @ 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 | b261d80c1b23 |
| children | ca4987708cc0 |
comparison
equal
deleted
inserted
replaced
| 9626:e928e72d3342 | 9627:449fc86a0f4f |
|---|---|
| 697 | 697 |
| 698 (defvar ange-ftp-default-account nil | 698 (defvar ange-ftp-default-account nil |
| 699 "*Account password to use when the user is the same as ange-ftp-default-user.") | 699 "*Account password to use when the user is the same as ange-ftp-default-user.") |
| 700 | 700 |
| 701 (defvar ange-ftp-generate-anonymous-password t | 701 (defvar ange-ftp-generate-anonymous-password t |
| 702 "*If t, use a password of user@host when logging in as the anonymous user. | 702 "*If t, use value of `user-mail-address' as password for anonymous ftp. |
| 703 If a string then use that as the password. | 703 If a string, then use that string as the password. |
| 704 If nil then prompt the user for a password.") | 704 If nil, prompt the user for a password.") |
| 705 | 705 |
| 706 (defvar ange-ftp-dumb-unix-host-regexp nil | 706 (defvar ange-ftp-dumb-unix-host-regexp nil |
| 707 "*If non-nil, regexp matching hosts on which `dir' command lists directory.") | 707 "*If non-nil, regexp matching hosts on which `dir' command lists directory.") |
| 708 | 708 |
| 709 (defvar ange-ftp-binary-file-name-regexp | 709 (defvar ange-ftp-binary-file-name-regexp |
| 858 | 858 |
| 859 ;;;; ------------------------------------------------------------ | 859 ;;;; ------------------------------------------------------------ |
| 860 ;;;; Internal variables. | 860 ;;;; Internal variables. |
| 861 ;;;; ------------------------------------------------------------ | 861 ;;;; ------------------------------------------------------------ |
| 862 | 862 |
| 863 (defconst ange-ftp-version "$Revision: 1.56 $") | 863 (defconst ange-ftp-version "$Revision: 1.57 $") |
| 864 | 864 |
| 865 (defvar ange-ftp-data-buffer-name " *ftp data*" | 865 (defvar ange-ftp-data-buffer-name " *ftp data*" |
| 866 "Buffer name to hold directory listing data received from ftp process.") | 866 "Buffer name to hold directory listing data received from ftp process.") |
| 867 | 867 |
| 868 (defvar ange-ftp-netrc-modtime nil | 868 (defvar ange-ftp-netrc-modtime nil |
| 1079 ((and (or (string-equal user "anonymous") | 1079 ((and (or (string-equal user "anonymous") |
| 1080 (string-equal user "ftp")) | 1080 (string-equal user "ftp")) |
| 1081 ange-ftp-generate-anonymous-password) | 1081 ange-ftp-generate-anonymous-password) |
| 1082 (if (stringp ange-ftp-generate-anonymous-password) | 1082 (if (stringp ange-ftp-generate-anonymous-password) |
| 1083 ange-ftp-generate-anonymous-password | 1083 ange-ftp-generate-anonymous-password |
| 1084 (concat (user-login-name) "@" (system-name)))) | 1084 user-mail-address)) |
| 1085 | 1085 |
| 1086 ;; see if same user has logged in to other hosts; if so then prompt | 1086 ;; see if same user has logged in to other hosts; if so then prompt |
| 1087 ;; with the password that was used there. | 1087 ;; with the password that was used there. |
| 1088 (t | 1088 (t |
| 1089 (let* ((other (ange-ftp-get-host-with-passwd user)) | 1089 (let* ((other (ange-ftp-get-host-with-passwd user)) |