Mercurial > emacs

diff lisp/gnus/gnus-start.el @ 110027:9604de1a8d28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Misc Gnus fixes by Lars Magne Ingebrigtsen <larsi@gnus.org>. 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. * mm-url.el (mm-url-decode-entities): Also decode entities like &#x3212.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Mon, 30 Aug 2010 06:25:05 +0000
parents 5cc3b1a56d3e
children 8d09094063d0
line wrap: on
line diff
--- a/lisp/gnus/gnus-start.el	Mon Aug 30 06:21:33 2010 +0000
+++ b/lisp/gnus/gnus-start.el	Mon Aug 30 06:25:05 2010 +0000
@@ -869,6 +869,8 @@
 (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