diff options
| -rw-r--r-- | config/doom/config.org | 16 |
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 |