lisp/ChangeLog addition:

2001-11-26  Didier Verna  <didier@xemacs.org>

	* nnmbox.el (nnmbox-create-mbox): create the mbox file directory
	if needed.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b77488a..f9fe77a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-11-26  Didier Verna  <didier@xemacs.org>
+
+       * nnmbox.el (nnmbox-create-mbox): create the mbox file directory
+       if needed.
+
 2001-11-21  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * message.el (message-tamago-not-in-use-p): New function.

diff --git a/lisp/nnmbox.el b/lisp/nnmbox.el
index 972e20f..bf62dfb 100644 (file)
--- a/lisp/nnmbox.el
+++ b/lisp/nnmbox.el
@@ -607,7 +607,9 @@ This variable is a virtual server slot.  See the Gnus manual for details.")
   (when (not (file-exists-p nnmbox-mbox-file))
     (let ((nnmail-file-coding-system
           (or nnmbox-file-coding-system-for-write
-              nnmbox-file-coding-system)))
+              nnmbox-file-coding-system))
+         (dir (file-name-directory nnmbox-mbox-file)))
+      (and dir (gnus-make-directory dir))
       (nnmail-write-region 1 1 nnmbox-mbox-file t 'nomesg))))
 
 (defun nnmbox-read-mbox ()