1 files changed, 8 insertions, 0 deletions

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index ba00d915d73..6c20cf41165 100644
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -837,6 +837,14 @@ using `make-temp-file', and the generated name is returned."
                (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