From 533486ef8869e062717df67e81dbce9b99214204 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C3=93scar=20N=C3=A1jera?= <hi@oscarnajera.com>
Date: Sat, 8 Oct 2022 02:15:18 +0200
Subject: arsmagna mailbox download

Unify dotfiles to pick from who to download mail
---
 config/doom/config.org | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

(limited to 'config')

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
-- 
cgit v1.2.3