* 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 3db8f1d8af77da55945530415966aef0fe8663c8..77ff6d59a593d2d939876d9214f5cfc2be40287d 100644 (file)
--- 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."