From: Michael Albinus <michael.albinus@gmx.de>
Date: Sun, 5 Apr 2009 18:07:41 +0000 (+0000)
Subject: * net/tramp-fish.el (tramp-fish-do-copy-or-rename-file-directly):
X-Git-Tag: emacs-pretest-23.0.93~225
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=86a9be47c8dbab1a003982729202fc7fbd866ed2;p=emacs.git

* net/tramp-fish.el (tramp-fish-do-copy-or-rename-file-directly):
Use `tramp-default-file-modes'.
---

diff --git a/lisp/net/tramp-fish.el b/lisp/net/tramp-fish.el
index f3dfcc8f547..2377432bdea 100644
--- a/lisp/net/tramp-fish.el
+++ b/lisp/net/tramp-fish.el
@@ -917,7 +917,7 @@ PRESERVE-UID-GID is completely ignored."
   (when (and keep-date (functionp 'set-file-times))
     (set-file-times newname (nth 5 (file-attributes filename))))
   ;; Set the mode.
-  (set-file-modes newname (file-modes filename)))
+  (set-file-modes newname (tramp-default-file-modes filename)))
 
 (defun tramp-fish-get-file-entries (vec localname list)
   "Read entries returned by FISH server.