# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 782888135 0
# Node ID ca4987708cc0e62241edfdda82f52a40ca572072
# Parent  ca4418b4e8ec4f0abd4ad07feefbffca8558b8a8
(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 -r ca4418b4e8ec -r ca4987708cc0 lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Sun Oct 23 01:05:26 1994 +0000
+++ b/lisp/ange-ftp.el	Sun Oct 23 04:55:35 1994 +0000
@@ -860,7 +860,7 @@
 ;;;; 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 @@
 	 (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