alarsyo/doom-conf
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Switch around email refresh bindings

Browse source 
Refresh only main folders with the `u` binding, but refresh everything
in the background were I don't care how much time it takes.
This commit is contained in:
Antoine Martin 2022-05-03 14:18:52 +02:00
parent a16ae93583
commit 8206f655b2
1 changed files with 11 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
config.org
View file

@ -700,27 +700,25 @@ Use "french" date format in header view:
** Only fetch main directories by default ** Only fetch main directories by default
I have a lot (100+) directories on my main email account, I only want to fetch I have a lot (100+) directories on my main email account, I only want to fetch
the "important" ones by default (i.e. those coming from real individuals, the "important" ones (i.e. those coming from real individuals, addressed to me
addressed to me directly). directly) when I ask for a refresh explicitely (updating everything in the
background is fine the rest of the time).
Let's define a new function that does just that:
#+begin_src emacs-lisp :noweb-ref after-mu4e :tangle no #+begin_src emacs-lisp :noweb-ref after-mu4e :tangle no
(setq mu4e-get-mail-command "mbsync alarsyo-main lrde") (defun my/mu4e-update-main-mail-and-index (run-in-background)
#+end_src
However I also need a way to update all folders, so let's define a new function
that does just that:
#+begin_src emacs-lisp :noweb-ref after-mu4e :tangle no
(defun my/mu4e-update-all-mail-and-index (run-in-background)
"Get mail for all folders, not just the main ones" "Get mail for all folders, not just the main ones"
(interactive "P") (interactive "P")
(let ((mu4e-get-mail-command "mbsync -a")) (let ((mu4e-get-mail-command "mbsync alarsyo-main lrde"))
(mu4e-update-mail-and-index run-in-background))) (mu4e-update-mail-and-index run-in-background)))
#+end_src #+end_src
Let's also bind it to =U= in the main view: Let's also bind it to =u= in the main view, overriding the default binding
(which I'll remap to =U=).
#+begin_src emacs-lisp :noweb-ref after-mu4e :tangle no #+begin_src emacs-lisp :noweb-ref after-mu4e :tangle no
(map! :map mu4e-main-mode-map (map! :map mu4e-main-mode-map
:ne "U" #'my/mu4e-update-all-mail-and-index) :ne "u" #'my/mu4e-update-main-mail-and-index
:ne "U" #'mu4e-update-mail-and-index)
#+end_src #+end_src