* [PATCH] make nnmbox-create-mbox honor subdirectories
@ 2001-11-26 13:31 Didier Verna
0 siblings, 0 replies; only message in thread
From: Didier Verna @ 2001-11-26 13:31 UTC (permalink / raw)
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
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2001-11-26 13:31 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2001-11-26 13:31 [PATCH] make nnmbox-create-mbox honor subdirectories Didier Verna
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).