diff options
| author | Óscar Nájera <hi@oscarnajera.com> | 2022-10-08 02:15:18 +0200 |
|---|---|---|
| committer | Óscar Nájera <hi@oscarnajera.com> | 2022-10-08 03:00:36 +0200 |
| commit | 533486ef8869e062717df67e81dbce9b99214204 (patch) | |
| tree | 5c0c08518ed8dc4e5ed150d472d8f3543a7eeb1b /config | |
| parent | 5301ff7d74c2df7a21540bdee28ddb712be916d6 (diff) | |
| download | dotfiles-533486ef8869e062717df67e81dbce9b99214204.tar.gz dotfiles-533486ef8869e062717df67e81dbce9b99214204.tar.bz2 dotfiles-533486ef8869e062717df67e81dbce9b99214204.zip | |
arsmagna mailbox download
Unify dotfiles to pick from who to download mail
Diffstat (limited to 'config')
| -rw-r--r-- | config/doom/config.org | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/config/doom/config.org b/config/doom/config.org index 0747c3c..3e1a422 100644 --- a/config/doom/config.org +++ b/config/doom/config.org @@ -365,6 +365,20 @@ this new window. (require 'comint) (require 'ansi-color) +(defun on/registered-mail-accounts () + "Read mbsync config to extract IMAPAccounts." + (let ((buffer (find-file-noselect + (expand-file-name + "~/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))))) + (defun on/fetch-all-email () "Start tagmail fetch on a subprocess." (interactive) @@ -375,7 +389,7 @@ this new window. (make-process :name "E-mail fetch" :buffer (current-buffer) - :command '("tagmail") + :command `("tagmail" ,(on/registered-mail-accounts)) :filter #'comint-output-filter))) #+END_SRC ** Sending email |