From 294731b501bb992e9cb461f5235ccdbf353967aa Mon Sep 17 00:00:00 2001 From: rekado Date: Tue, 4 Oct 2016 11:59:58 +0200 Subject: Email: Add better bookmarks. --- lisp/email.el | 54 ++++++++++++++++++++++++++++++++++++++++++++++++++---- 1 file changed, 50 insertions(+), 4 deletions(-) diff --git a/lisp/email.el b/lisp/email.el index 629d3c6..01ffab0 100644 --- a/lisp/email.el +++ b/lisp/email.el @@ -65,10 +65,56 @@ ;; pretty quotes! (add-hook 'message-mode-hook 'typo-mode) -(add-to-list 'mu4e-bookmarks - '("maildir:\"/private/INBOX\"" "Personal inbox" ?i)) -(add-to-list 'mu4e-bookmarks - '("flag:flagged" "Flagged" ?f)) +(let ((guix "(list:guix-devel@gnu.org OR list:bug-guix@gnu.org OR list:help-guix@gnu.org OR list:guix-sysadmin@gnu.org OR list:guix-security.gnu.org)") + (guile "(list:guile-user@gnu.org OR list:guile-devel@gnu.org OR list:bug-guile@gnu.org)") + (emacs "(list:emacs-devel@gnu.org)") + (lilypond "(list:lilypond-devel@gnu.org)") + (eoma "(list:arm-netbook@lists.phcomp.co.uk)") + (fsfe "(subject:\"Willkommen in der FSFE\" list:berlin-bounces@lists.fsfe.org OR list:berlin-owner@lists.fsfe.org OR list:coordinators@lists.fsfe.org OR list:berlin@lists.fsfe.org OR list:newsletter-en@fsfeurope.org OR list:newsletter-de@fsfeurope.org)") + (dojo "(list:coderdojo-berlin-discussion@googlegroups.com OR to:hello@fhain.coderdojo.berlin)") + (unread "(flag:unread AND NOT flag:trashed)") + (me "(body:rekado OR body:Ricardo)")) + (setq mu4e-bookmarks + (list + ;; TODO: don't match my own signature + (list (concat me " " unread) + "Mentioning me (unread)" ?R) + (list "maildir:\"/private/INBOX\"" + "Personal inbox" ?i) + (list "date:today..now" + "Today's messages" ?t) + (list "date:today..now" + "Last 7 days" ?w) + (list (concat "maildir:\"/private/INBOX\"" " " unread) + "Unread messages (private)" ?u) + (list (concat guix " " unread) + "Guix" ?1) + (list (concat guile " " unread) + "Guile" ?2) + (list (concat lilypond " " unread) + "Lilypond" ?3) + (list (concat fsfe " " unread) + "FSFE" ?4) + (list (concat dojo " " unread) + "CoderDojo" ?5) + (list (concat eoma " " unread) + "EOMA68" ?6) + (list (concat emacs " " unread) + "Emacs" ?7) + (list (concat "maildir:\"/private/mailinglists\"" + " " unread + " NOT " guix + " NOT " guile + " NOT " lilypond + " NOT " fsfe + " NOT " eoma + " NOT " emacs + " NOT " dojo) + "Unread list messages" ?m) + (list "maildir:\"/private/INBOX\" flag:flagged" + "Flagged (private)" ?f) + (list "maildir:\"/mdc-personal/INBOX\" flag:flagged" + "Flagged (work)" ?g)))) ; set up email sending with msmtp (setq mail-user-agent 'mu4e-user-agent) -- cgit v1.2.3