Ensure that the directory where the dribbel file lives exists.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6a7e647..503543b 100644 (file)
--- 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 491926d..f3d8ce0 100644 (file)
--- 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