* lisp/net/ange-ftp.el (ange-ftp-file-remote-p): Handle CONNECTED properly.

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 16ec33f92dca1e5ff81d475bf51e5c5cb5691012..3d64b7976b3df4410f8210fa2d3e80e4aa6accca 100644 (file)
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -4233,7 +4233,7 @@ directory, so that Emacs will know its current contents."
         (host (nth 0 parsed))
         (user (nth 1 parsed))
         (localname (nth 2 parsed)))
-    (and (or (not connected)
+    (and (or (memq connected '(nil never))
             (let ((proc (get-process (ange-ftp-ftp-process-buffer host user))))
               (and proc (processp proc)
                    (memq (process-status proc) '(run open)))))