# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1266003345 -7200
# Node ID 00c6bb12d924a57229bd40cb42bd3131e10187f8
# Parent  76b761c74dae2df756ec69951457ff0b2bcaaa8d
* arc-mode.el (archive-unique-fname): Make directories for nested
archives.  (Bug#5540)

diff -r 76b761c74dae -r 00c6bb12d924 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Feb 12 21:28:29 2010 +0200
+++ b/lisp/ChangeLog	Fri Feb 12 21:35:45 2010 +0200
@@ -1,3 +1,8 @@
+2010-02-12  Juri Linkov  <juri@jurta.org>
+
+	* arc-mode.el (archive-unique-fname): Make directories for nested
+	archives.  (Bug#5540)
+
 2010-02-12  Juri Linkov  <juri@jurta.org>
 
 	* ffap.el (dired-at-point): Fix docstring.  (Bug#5565)
diff -r 76b761c74dae -r 00c6bb12d924 lisp/arc-mode.el
--- a/lisp/arc-mode.el	Fri Feb 12 21:28:29 2010 +0200
+++ b/lisp/arc-mode.el	Fri Feb 12 21:35:45 2010 +0200
@@ -834,6 +834,11 @@
 	  ;; reconstructed in the temporary directory.
 	  (make-directory (file-name-directory tmpfile) t)
 	  (make-temp-file tmpfile))
+      ;; Maked sure all the leading directories in `fullname' exist
+      ;; under archive-tmpdir.  This is necessary for nested archives
+      ;; (`archive-extract' sets `archive-remote' to t in case
+      ;; an archive occurs inside another archive).
+      (make-directory (file-name-directory fullname) t)
       fullname)))
 
 (defun archive-maybe-copy (archive)