From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 30 Jan 2019 14:29:29 +0000 (+0100)
Subject: * lisp/net/tramp-rclone.el (tramp-rclone-mounted-p): Fix thinko.
X-Git-Tag: emacs-27.0.90~3706
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4563d1b9fa532d08b4d2b6c0015199d1b552092c;p=emacs.git

* lisp/net/tramp-rclone.el (tramp-rclone-mounted-p): Fix thinko.
---

diff --git a/lisp/net/tramp-rclone.el b/lisp/net/tramp-rclone.el
index 3db8f1d8af7..77ff6d59a59 100644
--- a/lisp/net/tramp-rclone.el
+++ b/lisp/net/tramp-rclone.el
@@ -467,19 +467,19 @@ file names."
   (when (tramp-get-connection-process vec)
     ;; We cannot use `with-connection-property', because we don't want
     ;; to cache a nil result.
-    (unless (tramp-get-connection-property
-	     (tramp-get-connection-process vec) "mounted" nil)
-      (let* ((default-directory temporary-file-directory)
-	     (mount (shell-command-to-string "mount -t fuse.rclone")))
-	(tramp-message vec 6 "%s" "mount -t fuse.rclone")
-	(tramp-message vec 6 "\n%s" mount)
-	(tramp-set-connection-property
-	 (tramp-get-connection-process vec) "mounted"
-	 (when (string-match
-		(format
-		 "^\\(%s:\\S-*\\)" (regexp-quote (tramp-file-name-host vec)))
-		mount)
-	   (match-string 1 mount)))))))
+    (or (tramp-get-connection-property
+	 (tramp-get-connection-process vec) "mounted" nil)
+	(let* ((default-directory temporary-file-directory)
+	       (mount (shell-command-to-string "mount -t fuse.rclone")))
+	  (tramp-message vec 6 "%s" "mount -t fuse.rclone")
+	  (tramp-message vec 6 "\n%s" mount)
+	  (tramp-set-connection-property
+	   (tramp-get-connection-process vec) "mounted"
+	   (when (string-match
+		  (format
+		   "^\\(%s:\\S-*\\)" (regexp-quote (tramp-file-name-host vec)))
+		  mount)
+	     (match-string 1 mount)))))))
 
 (defun tramp-rclone-flush-directory-cache (vec)
   "Flush directory cache of VEC mount."