summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMichael Albinus <michael.albinus@gmx.de>2018-02-02 17:06:22 +0100
committerMichael Albinus <michael.albinus@gmx.de>2018-02-02 17:06:22 +0100
commitb86b8ee07237a3c4653a63e436d2127685cadffb (patch)
treee58513b5f31ad09e416dec61c8e968f42a4149e7
parenta893a4db20e9a6cf6a03855d40d9b9dfd9c49139 (diff)
downloademacs-b86b8ee07237a3c4653a63e436d2127685cadffb.tar.gz
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.
-rw-r--r--lisp/net/tramp-archive.el9
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