Fix Tramp connection property

* lisp/net/tramp-gvfs.el (tramp-gvfs-maybe-open-connection):
* lisp/net/tramp-rclone.el (tramp-rclone-maybe-open-connection):
Set "connected" property in time.

2 files changed, 8 insertions, 8 deletions

diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index 65a1595c29e..3dba7b1bad6 100644
--- a/lisp/net/tramp-gvfs.el
+++ b/lisp/net/tramp-gvfs.el
@@ -2347,11 +2347,11 @@ connection if a previous connection has died for some reason."
           ;; Save the password.
           (ignore-errors
             (and (functionp tramp-password-save-function)
-                 (funcall tramp-password-save-function)))
+                 (funcall tramp-password-save-function))))))
 
-          ;; Mark it as connected.
-          (tramp-set-connection-property
-           (tramp-get-connection-process vec) "connected" t))))))
+    ;; Mark it as connected.
+    (tramp-set-connection-property
+     (tramp-get-connection-process vec) "connected" t)))
 
 (defun tramp-gvfs-gio-tool-p (vec)
   "Check, whether the gio tool is available."
diff --git a/lisp/net/tramp-rclone.el b/lisp/net/tramp-rclone.el
index 5ad5c8f5c27..e4008c197fb 100644
--- a/lisp/net/tramp-rclone.el
+++ b/lisp/net/tramp-rclone.el
@@ -412,11 +412,11 @@ connection if a previous connection has died for some reason."
            (tramp-get-method-parameter vec 'tramp-mount-args))
           (while (not (file-exists-p (tramp-make-tramp-file-name vec 'noloc)))
             (tramp-cleanup-connection vec 'keep-debug 'keep-password))
+          (add-to-list 'tramp-fuse-mount-points (tramp-file-name-unify vec)))
 
-          ;; Mark it as connected.
-          (add-to-list 'tramp-fuse-mount-points (tramp-file-name-unify vec))
-          (tramp-set-connection-property
-           (tramp-get-connection-process vec) "connected" t))))
+        ;; Mark it as connected.
+        (tramp-set-connection-property
+         (tramp-get-connection-process vec) "connected" t)))
 
     ;; In `tramp-check-cached-permissions', the connection properties
     ;; "{uid,gid}-{integer,string}" are used.  We set them to proper values.