[elpa] externals/gnus-mock 20ed31e 03/27: Create necessary empty maildir on startup

[Stefan Monnier]

branch: externals/gnus-mock
commit 20ed31ec4ea4a92949e5cb71c59e3bf11e840c4e
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

    Create necessary empty maildir on startup
    
    * packages/gnus-mock/gnus-mock.el (gnus-mock-start): Git won't commit
      empty directories to the repository.
---
 gnus-mock.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/gnus-mock.el b/gnus-mock.el
index cf28ac5..bbf4745 100644
--- a/gnus-mock.el
+++ b/gnus-mock.el
@@ -169,6 +169,15 @@ gnus-directory \"%s\"
     (copy-directory
      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.
+    (mapc (lambda (path) (make-directory path t))
+         (mapcar (lambda (dir)
+                   (format "%s/test/%s" mock-tmp-dir dir))
+                 '("Welcome/new" "Welcome/tmp" "Welcome/.nnmaildir/marks"
+                   "incoming/tmp" "incoming/new" "incoming/cur"
+                   "incoming/.nnmaildir/marks" "incoming/.nnmaildir/nov"
+                   "mails/tmp" "mails/new" "mails/.nnmaildir/marks")))
     ;; Possibly insert additional config.
     (when gnus-mock-init-file
       (with-temp-buffer