Only fetch some directories by default in mu4e
This commit is contained in:
parent
80544c8728
commit
a16ae93583
29
config.org
29
config.org
|
@ -55,6 +55,7 @@
|
||||||
- [[#enable-auto-updates][Enable auto updates]]
|
- [[#enable-auto-updates][Enable auto updates]]
|
||||||
- [[#ask-which-address-to-send-with-when-composing-a-new-mail][Ask which address to send with when composing a new mail]]
|
- [[#ask-which-address-to-send-with-when-composing-a-new-mail][Ask which address to send with when composing a new mail]]
|
||||||
- [[#date-format-in-email-view][Date format in email view]]
|
- [[#date-format-in-email-view][Date format in email view]]
|
||||||
|
- [[#only-fetch-main-directories-by-default][Only fetch main directories by default]]
|
||||||
|
|
||||||
* Misc
|
* Misc
|
||||||
|
|
||||||
|
@ -695,3 +696,31 @@ Use "french" date format in header view:
|
||||||
#+begin_src emacs-lisp :noweb-ref after-mu4e :tangle no
|
#+begin_src emacs-lisp :noweb-ref after-mu4e :tangle no
|
||||||
(setq mu4e-headers-date-format "%d/%m/%y")
|
(setq mu4e-headers-date-format "%d/%m/%y")
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
|
** Only fetch main directories by default
|
||||||
|
|
||||||
|
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,
|
||||||
|
addressed to me directly).
|
||||||
|
|
||||||
|
#+begin_src emacs-lisp :noweb-ref after-mu4e :tangle no
|
||||||
|
(setq mu4e-get-mail-command "mbsync alarsyo-main lrde")
|
||||||
|
#+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"
|
||||||
|
(interactive "P")
|
||||||
|
(let ((mu4e-get-mail-command "mbsync -a"))
|
||||||
|
(mu4e-update-mail-and-index run-in-background)))
|
||||||
|
#+end_src
|
||||||
|
|
||||||
|
Let's also bind it to =U= in the main view:
|
||||||
|
|
||||||
|
#+begin_src emacs-lisp :noweb-ref after-mu4e :tangle no
|
||||||
|
(map! :map mu4e-main-mode-map
|
||||||
|
:ne "U" #'my/mu4e-update-all-mail-and-index)
|
||||||
|
#+end_src
|
||||||
|
|
Loading…
Reference in a new issue