# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 705123756 0
# Node ID 379b94c9f29e03c170d2faac4184256458b9c2c2
# Parent  4f093eb160099d40a4cba4fa66c680b14ef6177c
*** empty log message ***

diff -r 4f093eb16009 -r 379b94c9f29e lisp/=ftp.el
--- a/lisp/=ftp.el	Tue May 05 22:12:04 1992 +0000
+++ b/lisp/=ftp.el	Wed May 06 03:42:36 1992 +0000
@@ -252,6 +252,9 @@
 	    ((looking-at ignore)
 	     ;; Ignore status messages whose codes indicate no problem.
 	     (forward-line 1))
+	    ((looking-at "^[^0-9]")
+	     ;; Ignore any lines that don't have status codes.
+	     (forward-line 1))
 	    ((not (search-forward "\n" nil t))
 	     ;; the way asynchronous process-output works with (point)
 	     ;;  is really really disgusting.
@@ -260,9 +263,6 @@
 		 (accept-process-output process)
 	       (error nil))
 	     (goto-char p))
-	    ((looking-at "^[a-z]")
-	     ;; Ignore any lines that don't have error codes.
-	     (forward-line 1))
 	    (t
 	     (setq p nil))))
     p))