diff options
| -rw-r--r-- | lisp/net/tramp-archive.el | 9 |
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." | |||
| 287 | (tramp-compat-user-error nil "Package `tramp-archive' not supported")) | 287 | (tramp-compat-user-error nil "Package `tramp-archive' not supported")) |
| 288 | (let ((tramp-methods (cons `(,tramp-archive-method) tramp-methods)) | 288 | (let ((tramp-methods (cons `(,tramp-archive-method) tramp-methods)) |
| 289 | (tramp-gvfs-methods tramp-archive-all-gvfs-methods) | 289 | (tramp-gvfs-methods tramp-archive-all-gvfs-methods) |
| 290 | ;; Set uid and gid. gvfsd-archive could do it, but it doesn't. | ||
| 291 | (tramp-unknown-id-integer (user-uid)) | ||
| 292 | (tramp-unknown-id-string (user-login-name)) | ||
| 290 | (fn (assoc operation tramp-archive-file-name-handler-alist))) | 293 | (fn (assoc operation tramp-archive-file-name-handler-alist))) |
| 291 | (when (eq (cdr fn) 'tramp-archive-handle-not-implemented) | 294 | (when (eq (cdr fn) 'tramp-archive-handle-not-implemented) |
| 292 | (setq args (cons operation args))) | 295 | (setq args (cons operation args))) |
| @@ -583,9 +586,11 @@ offered." | |||
| 583 | 586 | ||
| 584 | ;;; TODO: | 587 | ;;; TODO: |
| 585 | 588 | ||
| 586 | ;; * See, whether we could retrieve better file attributes like uid, | 589 | ;; * Check, whether we could retrieve better file attributes like uid, |
| 587 | ;; gid, permissions. | 590 | ;; gid, permissions. See gvfsbackendarchive.c |
| 591 | ;; (archive_file_set_info_from_entry), where it is commented out. | ||
| 588 | ;; | 592 | ;; |
| 589 | ;; * Implement write access, when possible. | 593 | ;; * Implement write access, when possible. |
| 594 | ;; https://bugzilla.gnome.org/show_bug.cgi?id=589617 | ||
| 590 | 595 | ||
| 591 | ;;; tramp-archive.el ends here | 596 | ;;; tramp-archive.el ends here |