diff options
| author | Óscar Nájera <hi@oscarnajera.com> | 2022-05-07 19:16:02 +0200 |
|---|---|---|
| committer | Óscar Nájera <hi@oscarnajera.com> | 2022-05-07 19:16:02 +0200 |
| commit | 9677897ef705177ee0497d1f9f6334700abd262d (patch) | |
| tree | b8c3238f9627dfe4928f24e2e96a9a5327e23d77 | |
| parent | 2af2eab6b7654709e954b27cae7ce25d789dc7eb (diff) | |
| download | dotfiles-9677897ef705177ee0497d1f9f6334700abd262d.tar.gz dotfiles-9677897ef705177ee0497d1f9f6334700abd262d.tar.bz2 dotfiles-9677897ef705177ee0497d1f9f6334700abd262d.zip | |
Fetch email directly from Emacs
| -rw-r--r-- | config/doom/config.org | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/config/doom/config.org b/config/doom/config.org index c2579df..aaff478 100644 --- a/config/doom/config.org +++ b/config/doom/config.org @@ -332,6 +332,22 @@ this new window. (use-package! org-mime :after (org notmuch) :config (setq org-mime-library 'mml)) + +(require 'comint) +(require 'ansi-color) + +(defun on/fetch-all-email () + "Start tagmail fetch on a subprocess." + (interactive) + (with-current-buffer (get-buffer-create "*E-mail fetch*") + (pop-to-buffer (current-buffer)) + (comint-mode) + (ansi-color-for-comint-mode-on) + (make-process + :name "E-mail fetch" + :buffer (current-buffer) + :command '("tagmail") + :filter #'comint-output-filter))) #+END_SRC ** Sending email #+begin_src emacs-lisp |