[elpa] master 9641339: [gnus-mock] Create empty draft/queue directories in advance

[Eric Abrahamsen]

branch: master
commit 9641339c5fa1728a9472e6863cfc7aae8bbd1f04
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    [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