From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 23 Aug 2023 09:00:56 +0000 (+0200)
Subject: * lisp/net/ange-ftp.el (ange-ftp-file-remote-p): Handle CONNECTED properly.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=74eed03bc2a5844ef6608333bc5ee6e0eee6701e;p=emacs.git

* 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 16ec33f92dc..3d64b7976b3 100644
--- 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)))))