fetch mail emacs

1 files changed, 12 insertions, 10 deletions

diff --git a/config/doom/config.org b/config/doom/config.org
index 322ae98..5569a8c 100644
--- a/config/doom/config.org
+++ b/config/doom/config.org
@@ -434,12 +434,9 @@ this new window.
   "Read mbsync config to extract IMAPAccounts."
   (with-temp-buffer
     (insert-file-contents (expand-file-name "~/.mbsyncrc"))
-    (let ((pick  (thread-last
-                   (cl-loop while (search-forward-regexp (rx bol "IMAPAccount " (group (+ any)) eol) nil t)
-                            collect (match-string 1))
-                   (cons "all")
-                   (completing-read "Which mailbox"))))
-      (if (string= pick "all") nil (list pick)))))
+    (cl-loop while (search-forward-regexp (rx bol "IMAPAccount " (group (+ any)) eol) nil t)
+             collect (match-string 1))))
+
 
 (define-derived-mode mail-sync-log-mode comint-mode "mail-sync-log"
   "Major mode for reading mail sync."
@@ -448,16 +445,21 @@ this new window.
                               (,(rx bol " [mv]") . font-lock-constant-face)
                               (,(rx bol " [rm]") . font-lock-keyword-face)))))
 
-(defun on/fetch-all-email ()
-  "Start tagmail fetch on a subprocess."
-  (interactive)
+(defun on/fetch-all-email (mailbox)
+  "Start tagmail fetch on a subprocess for MAILBOX."
+  (interactive (list (completing-read
+                      "Which mailbox?"
+                      (on/registered-mail-accounts)
+                      nil nil nil nil "all")))
   (with-current-buffer (get-buffer-create "*E-mail fetch*")
     (pop-to-buffer (current-buffer))
     (mail-sync-log-mode)
     (make-process
      :name "E-mail fetch"
      :buffer (current-buffer)
-     :command (cons "tagmail" (on/registered-mail-accounts))
+     :command (thread-last
+                (if (string= mailbox "all") nil (list mailbox))
+                (cons "tagmail"))
      :filter #'comint-output-filter)))
 #+END_SRC
 ** Sending email