Recursive copies in Dired do not preserve directory permissions

[Sven Joachim]

It seems that recursive copies in Dired lose directory permissions:

,----
| $ ls -ld .config; ls -l .config
| drwx------ 4 sven sven 4096 Apr 15  2007 .config
| total 8
| drwx------ 2 sven sven 4096 Oct 17 20:53 gtk-2.0
| drwx------ 2 sven sven 4096 Mar  3  2006 menus
`----

After recursively copying .config into a directory named tmp:

,----
| $ ls -ld tmp/.config; ls -l tmp/.config
| drwxr-xr-x 4 sven sven 4096 Oct 20 15:37 tmp/.config
| total 8
| drwxr-xr-x 2 sven sven 4096 Oct 20 15:37 gtk-2.0
| drwxr-xr-x 2 sven sven 4096 Oct 20 15:37 menus
`----

The new permissions are 775, matching my umask (022).


In GNU Emacs 22.1.50.1 (i486-pc-linux-gnu, GTK+ Version 2.10.13)
 of 2007-10-13 on debian, modified by Debian
Windowing system distributor `The X.Org Foundation', version 11.0.10300000
configured using `configure  '--build' 'i486-linux-gnu' '--host' 
'i486-linux-gnu' '--prefix=/usr' '--sharedstatedir=/var/lib' 
'--libexecdir=/usr/lib' '--localstatedir=/var' '--infodir=/usr/share/info' 
'--mandir=/usr/share/man' '--with-pop=yes' 
'--enable-locallisppath=/etc/emacs-snapshot:/etc/emacs:/usr/local/share/emacs/22.1.50/site-lisp:/usr/local/share/emacs/site-lisp:/usr/share/emacs/22.1.50/site-lisp:/usr/share/emacs/site-lisp:/usr/share/emacs/22.1.50/leim'
 '--with-x=yes' '--with-x-toolkit=gtk' 'build_alias=i486-linux-gnu' 
'host_alias=i486-linux-gnu' 'CFLAGS=-DDEBIAN -DSITELOAD_PURESIZE_EXTRA=5000 -g 
-O2''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: C
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: de_DE.UTF-8
  locale-coding-system: utf-8
  default-enable-multibyte-characters: t

Major mode: Buffer Menu

Minor modes in effect:
  shell-dirtrack-mode: t
  display-time-mode: t
  auto-image-file-mode: t
  show-paren-mode: t
  tooltip-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  temp-buffer-resize-mode: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
<right> <right> <right> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<right> l R SPC . c o n f i g <return> C-x o <up> <up> 
<return> g <up> <up> <up> <up> <up> <up> <up> <up> 
<up> <up> <up> <up> <up> <up> <up> <up> <up> <up> <up> 
<up> <up> <up> <up> <up> <up> <up> <up> <up> <up> <up> 
<up> <up> <up> <up> <up> <up> <up> <up> <up> <up> <up> 
<up> <up> <up> <up> <up> <up> <up> <up> <up> <up> <up> 
<up> <up> <up> <up> <up> <up> <up> <up> <up> <up> <up> 
<up> <up> <up> <up> <up> <up> <up> <up> <up> <up> <up> 
<up> <up> <up> <up> <up> <up> <up> <up> <up> <up> <up> 
<up> <up> <up> <up> <up> <up> <up> <up> <up> <up> <up> 
<up> <up> <up> <up> <up> <up> <up> <up> <up> <up> <up> 
<up> <up> <up> <up> <up> <up> <up> <up> <up> <up> <up> 
<up> <up> <up> <up> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <up> <up> <up> <up> <up> <up> 
<up> <down> C <up> <return> y e s <return> C-x o M-p 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> <left> <left> <left> <left> <left> 
<right> t m p / <right> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<right> <right> <right> <right> t m p ( <backspace> 
/ <return> M-p M-p <left> <left> <left> <left> <left> 
<left> <left> <left> <backspace> <right> <right> <return> 
M-p M-p <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> <left> <left> <backspace> <return> 
<f7> <down> M-x r e p o r t - e m <tab> <return>

Recent messages:
Directory has changed on disk; type g to update Dired
line-move-1: Beginning of buffer
Copy: 1 of 1
Copy: 1 file
History item: 1 [2 times]
History item: 2
History item: 1
History item: 2
Commands: d, s, x, u; f, o, 1, 2, m, v; ~, %; q to quit; ? for help.
Loading emacsbug...done