[Emacs-diffs] Changes to emacs/lisp/arc-mode.el

[Eli Zaretskii]

Index: emacs/lisp/arc-mode.el
diff -u emacs/lisp/arc-mode.el:1.69 emacs/lisp/arc-mode.el:1.70
--- emacs/lisp/arc-mode.el:1.69 Sat Nov 26 19:04:31 2005
+++ emacs/lisp/arc-mode.el      Fri Feb  3 11:05:29 2006
@@ -800,17 +800,13 @@
              (archive-name
               (or (and archive-subfile-mode (aref archive-subfile-mode 0))
                   archive)))
-         (make-directory archive-tmpdir t)
-         ;; If ARCHIVE includes leading directories, make sure they
-         ;; exist under archive-tmpdir.
-         (let ((arch-dir (file-name-directory archive)))
-           (if arch-dir
-               (make-directory (concat
-                                (file-name-as-directory archive-tmpdir)
-                                arch-dir)
-                               t)))
          (setq archive-local-name
                (archive-unique-fname archive-name archive-tmpdir))
+         ;; Maked sure all the leading directories in
+         ;; archive-local-name exist under archive-tmpdir, so that
+         ;; the directory structure recorded in the archive is
+         ;; reconstructed in the temporary directory.
+         (make-directory (file-name-directory archive-local-name) t)
          (save-restriction
            (widen)
            (write-region start (point-max) archive-local-name nil 'nomessage))