# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1216915940 0
# Node ID ee7f0d8ed1ab1455068a41dc2c0ca454cf41d9da
# Parent  51339e209405ef78a73532c193db9d68f5bc8b81
(dired-copy-file-recursive): Avoid calling
set-file-modes when creating target directories.

diff -r 51339e209405 -r ee7f0d8ed1ab lisp/dired-aux.el
--- a/lisp/dired-aux.el	Thu Jul 24 16:12:08 2008 +0000
+++ b/lisp/dired-aux.el	Thu Jul 24 16:12:20 2008 +0000
@@ -1195,9 +1195,13 @@
 	    (if (file-exists-p to)
 		(or top (dired-handle-overwrite to))
 	      (condition-case err
-		  (progn
-		    (make-directory to)
-		    (set-file-modes to #o700))
+		  ;; Create the directory with correct permissions.
+		  (let ((default-mode (default-file-modes)))
+		    (unwind-protect
+			(progn
+			  (set-default-file-modes #o700)
+			  (make-directory to))
+		      (set-default-file-modes default-mode)))
 		(file-error
 		 (push (dired-make-relative from)
 		       dired-create-files-failures)