From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 23 Oct 1994 04:55:35 +0000 (+0000)
Subject: (ange-ftp-process-handle-line): Check for a
X-Git-Tag: emacs-19.34~6193
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=13d9a3a96f21d3feff3e18f8b0321f6a13160cba;p=emacs.git

(ange-ftp-process-handle-line): Check for a
multi-line message before an error message.  Fixes problem of
thinking there is an error in narrative text.
---

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index ecb56f2072f..869726e3bc9 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.57 $")
+(defconst ange-ftp-version "$Revision: 1.58 $")
 
 (defvar ange-ftp-data-buffer-name " *ftp data*"
   "Buffer name to hold directory listing data received from ftp process.")
@@ -1406,12 +1406,12 @@ good, skip, fatal, or unknown."
 	 (setq ange-ftp-process-busy nil
 	       ange-ftp-process-result t
 	       ange-ftp-process-result-line line))
+	((string-match ange-ftp-multi-msgs line)
+	 (setq ange-ftp-process-multi-skip t))
 	((string-match ange-ftp-fatal-msgs line)
 	 (delete-process proc)
 	 (setq ange-ftp-process-busy nil
 	       ange-ftp-process-result-line line))
-	((string-match ange-ftp-multi-msgs line)
-	 (setq ange-ftp-process-multi-skip t))
 	(ange-ftp-process-multi-skip
 	 t)
 	(t