Re: copy-file problems

[Kai Großjohann]

Katsumi Yamaoka <address@hidden> writes:

> Although it may be improved in the future, I am regretful that
> copied files in a remote machine takes the `-rw-------' mode
> unconditionally.  For instance, if I upload a file to my ftp
> site using Tramp, it cannot be downloaded by anonymous users.

Please try this patch.  I can't test it at the moment, but will try
asap.

--- tramp.el.~2.312.~   Tue Jun 10 12:10:33 2003
+++ tramp.el    Wed Jun 11 13:50:03 2003
@@ -2469,8 +2469,10 @@
   ;; At least one file a tramp file?
   (if (or (tramp-tramp-file-p filename)
           (tramp-tramp-file-p newname))
-      (tramp-do-copy-or-rename-file
-       'copy filename newname ok-if-already-exists keep-date)
+      (let ((modes (file-modes filename)))
+       (tramp-do-copy-or-rename-file
+        'copy filename newname ok-if-already-exists keep-date)
+       (set-file-modes newname modes))
     (tramp-run-real-handler
      'copy-file
      (list filename newname ok-if-already-exists keep-date))))

-- 
This line is not blank.