[Emacs] Better mu4e inboxes

Mailing lists are now separated from my main inbox. Linguistics and
Emacs now both have their own inbox.
This commit is contained in:
Lucien Cartier-Tilet 2020-12-10 09:09:08 +01:00
parent 0a54b4d67f
commit 7e91539f5e
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA

View File

@ -3179,19 +3179,33 @@ The following also allows me to automatically include my signature in my Emails,
This source block is an example of the search queries in mu4e, and part of the reason why I very much like mu4e: these bookmarks are actually defined by search queries, but act as if they were just yet another type of custom inbox you get with modern Email client (and often you dont even get them). All these bookmarks can be accessed through a shortcut on the main mu4e buffer, prefixed by ~b~. So, for instance, my unread messages are accessed through ~bU~. This source block is an example of the search queries in mu4e, and part of the reason why I very much like mu4e: these bookmarks are actually defined by search queries, but act as if they were just yet another type of custom inbox you get with modern Email client (and often you dont even get them). All these bookmarks can be accessed through a shortcut on the main mu4e buffer, prefixed by ~b~. So, for instance, my unread messages are accessed through ~bU~.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(setq mu4e-bookmarks (setq mu4e-bookmarks
`(("maildir:/Inbox AND NOT flag:trashed" "Inbox" ?i) `((,(s-join " "
'("maildir:/Inbox"
"AND NOT flag:trashed"
"AND NOT to:CONLANG@LISTSERV.BROWN.EDU"
"AND NOT to:AUXLANG@LISTSERV.BROWN.EDU"
"AND NOT to:ateliers-emacs.framalistes.org"
"AND NOT to:ateliers-paris.emacs-doctor.com"
"AND NOT list:ateliers-emacs.framalistes.org"
"AND NOT list:ateliers-paris.emacs-doctor.com"))
"Inbox" ?i) ;; Inbox without the linguistics mailing lists
(,(s-join " " (,(s-join " "
'("maildir:/Inbox" '("maildir:/Inbox"
"AND NOT flag:trashed" "AND NOT flag:trashed"
"AND (f:/.*up8\.edu|.*univ-paris8.*/" "AND (f:/.*up8\.edu|.*univ-paris8.*/"
"OR c:/.*up8\.edu|.*univ-paris8.*/" "OR c:/.*up8\.edu|.*univ-paris8.*/"
"OR t:/.*up8\.edu|.*univ-paris8.*/)")) "OR t:/.*up8\.edu|.*univ-paris8.*/)"))
"University" ?u) "University" ?u) ;; University-related emails
(,(s-join " "
'("maildir:/Inbox"
"AND (to:CONLANG@LISTSERV.BROWN.EDU"
"OR to:AUXLANG@LISTSERV.BROWN.EDU)"))
"Linguistics" ?l) ;; linguistics mailing lists
(,(s-join " " (,(s-join " "
'("maildir:/Inbox" '("maildir:/Inbox"
"AND (list:ateliers-emacs.framalistes.org" "AND (list:ateliers-emacs.framalistes.org"
"OR list:ateliers-paris.emacs-doctor.com)")) "OR list:ateliers-paris.emacs-doctor.com)"))
"Emacs" ?e) "Emacs" ?e) ;; Emacs mailing list
("maildir:/Sent" "Sent messages" ?s) ("maildir:/Sent" "Sent messages" ?s)
("flag:unread AND NOT flag:trashed" "Unread messages" ?U) ("flag:unread AND NOT flag:trashed" "Unread messages" ?U)
("date:today..now AND NOT flag:trashed" "Today's messages" ?t) ("date:today..now AND NOT flag:trashed" "Today's messages" ?t)