* net/tramp.el (tramp-do-copy-or-rename-file-directly): Handle

also the 'rename case, when setting file modes.  (Bug#3712)

2 files changed, 10 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f65bb546be7..037e0981c71 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-06-30  Michael Albinus  <michael.albinus@gmx.de>
+
+        * net/tramp.el (tramp-do-copy-or-rename-file-directly): Handle
+        also the 'rename case, when setting file modes.  (Bug#3712)
+
 2009-06-30  Kenichi Handa  <handa@m17n.org>
 
         * international/fontset.el (setup-default-fontset): Add CJK fonts
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index be41858a7b1..9da9e314cd2 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -3225,7 +3225,9 @@ KEEP-DATE means to make sure that NEWNAME has the same timestamp
 as FILENAME.  PRESERVE-UID-GID, when non-nil, instructs to keep
 the uid and gid from FILENAME."
   (let ((t1 (tramp-tramp-file-p filename))
-        (t2 (tramp-tramp-file-p newname)))
+        (t2 (tramp-tramp-file-p newname))
+        (file-times (nth 5 (file-attributes filename)))
+        (file-modes (tramp-default-file-modes filename)))
     (with-parsed-tramp-file-name (if t1 filename newname) nil
       (let* ((cmd (cond ((and (eq op 'copy) preserve-uid-gid) "cp -f -p")
                         ((eq op 'copy) "cp -f")
@@ -3364,8 +3366,8 @@ the uid and gid from FILENAME."
       ;; Set the time and mode. Mask possible errors.
       (condition-case nil
           (when keep-date
-            (set-file-times newname (nth 5 (file-attributes filename)))
-            (set-file-modes newname (tramp-default-file-modes filename)))
+            (set-file-times newname file-times)
+            (set-file-modes newname file-modes))
         (error)))))
 
 (defun tramp-do-copy-or-rename-file-out-of-band (op filename newname keep-date)