Minor tweaks in tramp-archive.el

* lisp/net/tramp-archive.el (tramp-archive-file-name-handler):
Bind `tramp-unknown-id-integer' and `tramp-unknown-id-string'
in order to have minimal ownership information.

1 files changed, 7 insertions, 2 deletions

diff --git a/lisp/net/tramp-archive.el b/lisp/net/tramp-archive.el
index 241bb29759d..e012ac3a198 100644
--- a/lisp/net/tramp-archive.el
+++ b/lisp/net/tramp-archive.el
@@ -287,6 +287,9 @@ pass to the OPERATION."
         (tramp-compat-user-error nil "Package `tramp-archive' not supported"))
       (let ((tramp-methods (cons `(,tramp-archive-method) tramp-methods))
             (tramp-gvfs-methods tramp-archive-all-gvfs-methods)
+            ;; Set uid and gid.  gvfsd-archive could do it, but it doesn't.
+            (tramp-unknown-id-integer (user-uid))
+            (tramp-unknown-id-string (user-login-name))
             (fn (assoc operation tramp-archive-file-name-handler-alist)))
         (when (eq (cdr fn) 'tramp-archive-handle-not-implemented)
           (setq args (cons operation args)))
@@ -583,9 +586,11 @@ offered."
 
 ;;; TODO:
 
-;; * See, whether we could retrieve better file attributes like uid,
-;;   gid, permissions.
+;; * Check, whether we could retrieve better file attributes like uid,
+;;   gid, permissions.  See gvfsbackendarchive.c
+;;   (archive_file_set_info_from_entry), where it is commented out.
 ;;
 ;; * Implement write access, when possible.
+;;   https://bugzilla.gnome.org/show_bug.cgi?id=589617
 
 ;;; tramp-archive.el ends here