# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 782888643 0
# Node ID 1bfdc32d57447fd1b55d1df900d81da2c97e8896
# Parent  8bd05e79e0bd224255857ed8cdaefecd3cf24a22
Add comment.

diff -r 8bd05e79e0bd -r 1bfdc32d5744 lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Sun Oct 23 05:02:00 1994 +0000
+++ b/lisp/ange-ftp.el	Sun Oct 23 05:04:03 1994 +0000
@@ -860,7 +860,7 @@
 ;;;; 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 @@
 	 (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)