branch: master
commit 9641339c5fa1728a9472e6863cfc7aae8bbd1f04
Author: Eric Abrahamsen <e...@ericabrahamsen.net>
Commit: Eric Abrahamsen <e...@ericabrahamsen.net>
[gnus-mock] Create empty draft/queue directories in advance
* packages/gnus-mock/gnus-mock.el (gnus-mock-start): Otherwise the
nndraft groups are inactive at startup, and you need to M-g or
restart Gnus to create the directories and make them fully active.
---
packages/gnus-mock/gnus-mock.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/packages/gnus-mock/gnus-mock.el b/packages/gnus-mock/gnus-mock.el
index 1d578c9..221340e 100644
--- a/packages/gnus-mock/gnus-mock.el
+++ b/packages/gnus-mock/gnus-mock.el
@@ -184,7 +184,7 @@ will start a mock Gnus session."
gnus-mock-data-dir
(file-name-as-directory mock-tmp-dir) nil nil t)
;; Git doesn't let us commit empty directories, so create our
- ;; necessary empty maildir bits.
+ ;; necessary empty maildir bits, and draft directories.
(mapc (lambda (path) (make-directory path t))
(mapcar (lambda (dir)
(format "%s/test/%s" mock-tmp-dir dir))
@@ -192,6 +192,8 @@ will start a mock Gnus session."
"incoming/tmp" "incoming/new" "incoming/cur"
"incoming/.nnmaildir/marks" "incoming/.nnmaildir/nov"
"mails/tmp" "mails/new" "mails/.nnmaildir/marks")))
+ (make-directory (format "%s/drafts/drafts" mock-tmp-dir) t)
+ (make-directory (format "%s/drafts/queue" mock-tmp-dir))
;; Possibly insert additional config.
(when gnus-mock-init-file
(with-temp-buffer
