From: Lars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Date: Sun, 29 Aug 2010 22:18:58 +0000 (+0200)
Subject: Ensure that the directory where the dribbel file lives exists.
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=b553748ccf392e4ed2fe0682151ed6c72feb46b9;p=gnus

Ensure that the directory where the dribbel file lives exists.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6a7e647eb..503543b2c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-08-29  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+	* gnus-start.el (gnus-dribble-read-file): Ensure that the directory
+	where the dribbel file lives exists.
+
 	* message.el (message-send-mail-partially-limit): Change the default to
 	nil, since most people don't want this.
 
diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 491926dc3..f3d8ce010 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -869,6 +869,8 @@ prompt the user for the name of an NNTP server to use."
 (defun gnus-dribble-read-file ()
   "Read the dribble file from disk."
   (let ((dribble-file (gnus-dribble-file-name)))
+    (unless (file-exists-p (file-name-directory dribble-file))
+      (make-directory (file-name-directory dribble-file) t))
     (save-excursion
       (set-buffer (setq gnus-dribble-buffer
 			(gnus-get-buffer-create