[PATCH] make nnmbox-create-mbox honor subdirectories

[PATCH] make nnmbox-create-mbox honor subdirectories

[Didier Verna]

NOTE: This patch has been committed. The version below is
informational only (whitespace differences have been removed).

		Dear folks,

	If your nnmbox mbox file is located in a (sub)directory that doesn't
exist yet, Gnus will barf in nnmbox-create-mbox. The following patch fixes
this.


lisp/ChangeLog addition:

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

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


Gnus Patch (runsocks cvs -q diff -u -t -b -B -w lisp/nnmbox.el):

Index: lisp/nnmbox.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/nnmbox.el,v
retrieving revision 6.9
diff -u -u -t -b -B -w -r6.9 nnmbox.el
--- lisp/nnmbox.el	2001/10/17 15:20:30	6.9
+++ lisp/nnmbox.el	2001/11/26 13:40:39
@@ -607,7 +607,9 @@
   (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 ()

-- 
Didier Verna, didier@lrde.epita.fr, http://www.lrde.epita.fr/~didier

EPITA / LRDE, 14-16 rue Voltaire   Tel.+33 (1) 53 14 59 47
94276 Le Kremlin-Bicêtre, France   Fax.+33 (1) 53 14 59 22   didier@xemacs.org