Commit 13d9a3a9 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(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.
parent 0fd8a324
...@@ -860,7 +860,7 @@ SIZE, if supplied, should be a prime number." ...@@ -860,7 +860,7 @@ SIZE, if supplied, should be a prime number."
;;;; Internal variables. ;;;; Internal variables.
;;;; ------------------------------------------------------------ ;;;; ------------------------------------------------------------
(defconst ange-ftp-version "$Revision: 1.57 $") (defconst ange-ftp-version "$Revision: 1.58 $")
(defvar ange-ftp-data-buffer-name " *ftp data*" (defvar ange-ftp-data-buffer-name " *ftp data*"
"Buffer name to hold directory listing data received from ftp process.") "Buffer name to hold directory listing data received from ftp process.")
...@@ -1406,12 +1406,12 @@ good, skip, fatal, or unknown." ...@@ -1406,12 +1406,12 @@ good, skip, fatal, or unknown."
(setq ange-ftp-process-busy nil (setq ange-ftp-process-busy nil
ange-ftp-process-result t ange-ftp-process-result t
ange-ftp-process-result-line line)) 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) ((string-match ange-ftp-fatal-msgs line)
(delete-process proc) (delete-process proc)
(setq ange-ftp-process-busy nil (setq ange-ftp-process-busy nil
ange-ftp-process-result-line line)) 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 (ange-ftp-process-multi-skip
t) t)
(t (t
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment