diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-10-23 05:04:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-10-23 05:04:03 +0000 |
| commit | 36e67497a34ad3d7f460ae188585d80ddb28f6ba (patch) | |
| tree | f565b8a67cd727df2a9deff641ff6aa838ac765d /lisp/ange-ftp.el | |
| parent | 1364b7944f43a9aaf9b4fe90e9cd4c38bf0c564e (diff) | |
| download | emacs-36e67497a34ad3d7f460ae188585d80ddb28f6ba.tar.gz | |
Add comment.
Diffstat (limited to 'lisp/ange-ftp.el')
| -rw-r--r-- | lisp/ange-ftp.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 869726e3bc9..c7cb1cc9108 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -860,7 +860,7 @@ SIZE, if supplied, should be a prime number." ;;;; Internal variables. ;;;; ------------------------------------------------------------ -(defconst ange-ftp-version "$Revision: 1.58 $") +(defconst ange-ftp-version "$Revision: 1.59 $") (defvar ange-ftp-data-buffer-name " *ftp data*" "Buffer name to hold directory listing data received from ftp process.") @@ -1406,6 +1406,11 @@ good, skip, fatal, or unknown." (setq ange-ftp-process-busy nil ange-ftp-process-result t ange-ftp-process-result-line line)) + ;; Check this before checking for errors. + ;; Otherwise the last line of these three seems to be an error: + ;; 230-see a significant impact from the move. For those of you who can't + ;; 230-use DNS to resolve hostnames and get an error message like + ;; 230-"ftp.stsci.edu: unknown host", the new IP address will be... ((string-match ange-ftp-multi-msgs line) (setq ange-ftp-process-multi-skip t)) ((string-match ange-ftp-fatal-msgs line) |