aboutsummaryrefslogtreecommitdiffstats
path: root/config
diff options
context:
space:
mode:
Diffstat (limited to 'config')
-rw-r--r--config/doom/config.org16
1 files changed, 8 insertions, 8 deletions
diff --git a/config/doom/config.org b/config/doom/config.org
index cce1403..78d09fe 100644
--- a/config/doom/config.org
+++ b/config/doom/config.org
@@ -372,13 +372,13 @@ this new window.
"~/dev/dotfiles/mail/dot-mbsyncrc.personal"))))
(with-current-buffer buffer
(goto-char (point-min))
- (prog1 (->>
- (cl-loop while (search-forward-regexp (rx bol "IMAPAccount " (group (+ any)) eol) nil t)
- collect (match-string 1))
- (cons "-a")
- (completing-read "Which mailbox"))
- (kill-buffer buffer)))))
-
+ (let ((pick (prog1 (->>
+ (cl-loop while (search-forward-regexp (rx bol "IMAPAccount " (group (+ any)) eol) nil t)
+ collect (match-string 1))
+ (cons "all")
+ (completing-read "Which mailbox")))))
+ (kill-buffer buffer)
+ (if (string= pick "all") nil (list pick))))))
(define-derived-mode mail-sync-log-mode comint-mode "mail-sync-log"
"Major mode for reading mail sync."
@@ -396,7 +396,7 @@ this new window.
(make-process
:name "E-mail fetch"
:buffer (current-buffer)
- :command `("tagmail" ,(on/registered-mail-accounts))
+ :command (cons "tagmail" (on/registered-mail-accounts))
:filter #'comint-output-filter)))
#+END_SRC
** Sending email