(dired-copy-file-recursive): Avoid calling

set-file-modes when creating target directories.

1 files changed, 7 insertions, 3 deletions

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 8ebd796c2bd..7c4c29abb23 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -1195,9 +1195,13 @@ Special value `always' suppresses confirmation."
             (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)