diff options
| author | Óscar Nájera <hi@oscarnajera.com> | 2022-10-11 15:28:42 +0200 |
|---|---|---|
| committer | Óscar Nájera <hi@oscarnajera.com> | 2022-10-11 15:28:42 +0200 |
| commit | 4db8bbfc6b8d823cc4a359d54dd51e5046a24f4f (patch) | |
| tree | 93d9a52106135d45e34f6e0937f5f6ac8d819aa2 /config | |
| parent | 172ecd6c1a56009e23dfe26a560f91b021bdfdee (diff) | |
| download | dotfiles-4db8bbfc6b8d823cc4a359d54dd51e5046a24f4f.tar.gz dotfiles-4db8bbfc6b8d823cc4a359d54dd51e5046a24f4f.tar.bz2 dotfiles-4db8bbfc6b8d823cc4a359d54dd51e5046a24f4f.zip | |
correctly pull mail for all boxes
Diffstat (limited to 'config')
| -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 |