From 4db8bbfc6b8d823cc4a359d54dd51e5046a24f4f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=C3=93scar=20N=C3=A1jera?= Date: Tue, 11 Oct 2022 15:28:42 +0200 Subject: correctly pull mail for all boxes --- config/doom/config.org | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'config/doom') 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 -- cgit v1.2.3