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

[Miles Bader]

Index: emacs/lisp/arc-mode.el
diff -c emacs/lisp/arc-mode.el:1.56.4.2 emacs/lisp/arc-mode.el:1.56.4.3
*** emacs/lisp/arc-mode.el:1.56.4.2     Fri Apr 16 12:49:47 2004
--- emacs/lisp/arc-mode.el      Mon Jun 28 07:28:26 2004
***************
*** 837,842 ****
--- 837,850 ----
               (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))
          (save-restriction