From 378b4afa3b471d008a6c813fdde0a6ba33229740 Mon Sep 17 00:00:00 2001 From: Amin Bandali Date: Sun, 15 Jul 2018 17:27:40 -0400 Subject: [rc/{notmuch,pigeonhole}] update sieve and notmuch rules for lists Also sort and group things more neatly. --- rc.org | 58 ++++++++++++++++++++++++++++++++++++++++++++-------------- 1 file changed, 44 insertions(+), 14 deletions(-) diff --git a/rc.org b/rc.org index baf1eee..47606a1 100644 --- a/rc.org +++ b/rc.org @@ -2137,21 +2137,48 @@ notmuch tag -new +sent -- from:amin@aminb.org or from:aminb@gnu.org or from:aban # initial tagging notmuch tag +inbox +unread -new -- tag:new + # apply tags to lists -notmuch tag -inbox +lists/haskell-weekly -- folder:amin/lists/haskell-weekly + +# +notmuch tag -inbox +lists/~sircmpwn/srht-admins -- folder:amin/lists/~sircmpwn/srht-admins +notmuch tag -inbox +lists/~sircmpwn/srht-announce -- folder:amin/lists/~sircmpwn/srht-announce +notmuch tag -inbox +lists/~sircmpwn/srht-dev -- folder:amin/lists/~sircmpwn/srht-dev +notmuch tag -inbox +lists/~sircmpwn/srht-discuss -- folder:amin/lists/~sircmpwn/srht-discuss + notmuch tag -inbox +lists/hackernewsletter -- folder:amin/lists/hackernewsletter -notmuch tag -inbox +lists/emacs-devel -- folder:gnu/l/emacs-devel -notmuch tag -inbox +lists/guix-devel -- folder:gnu/l/guix-devel -notmuch tag -inbox +lists/guile-devel -- folder:gnu/l/guile-devel -notmuch tag -inbox +lists/info-gnu-emacs -- folder:gnu/l/info-gnu-emacs -notmuch tag -inbox +lists/help-gnu-emacs -- folder:gnu/l/help-gnu-emacs -notmuch tag -inbox +lists/www-commits -- folder:gnu/l/www-commits -notmuch tag -inbox +lists/www-discuss -- folder:gnu/l/www-discuss -notmuch tag -inbox +lists/fencepost-users -- folder:gnu/l/fencepost-users -notmuch tag -inbox +webmasters -- folder:gnu/webmasters -notmuch tag -inbox +lists/deepspec -- folder:gnu/l/deepspec -notmuch tag -inbox +lists/haskell-cafe -- folder:gnu/l/haskell-cafe -notmuch tag -inbox +lists/notmuch -- folder:gnu/l/notmuch +notmuch tag -inbox +lists/haskell-weekly -- folder:amin/lists/haskell-weekly +# + +# +notmuch tag -inbox +lists/cs136 -- folder:uwaterloo/lists/cs136 +notmuch tag -inbox +lists/se463 -- folder:uwaterloo/lists/se463 + +notmuch tag -inbox +lists/clvsingle -- folder:uwaterloo/lists/Clvsingle +notmuch tag -inbox +lists/gsa -- folder:uwaterloo/lists/GSA +notmuch tag -inbox +lists/math-grad -- folder:uwaterloo/lists/Math-grad +notmuch tag -inbox +lists/scs-grads -- folder:uwaterloo/lists/scs-grads +notmuch tag -inbox +lists/watform-students -- folder:uwaterloo/lists/Watform-students +# + +# +notmuch tag -inbox +lists/emacs-devel -- folder:gnu/l/emacs-devel +notmuch tag -inbox +lists/emacs-orgmode -- folder:gnu/l/emacs-orgmode +notmuch tag -inbox +lists/emacsconf-discuss -- folder:gnu/l/emacsconf-discuss +notmuch tag -inbox +lists/fencepost-users -- folder:gnu/l/fencepost-users +notmuch tag -inbox +lists/guix-devel -- folder:gnu/l/guix-devel +notmuch tag -inbox +lists/guile-devel -- folder:gnu/l/guile-devel +notmuch tag -inbox +lists/help-gnu-emacs -- folder:gnu/l/help-gnu-emacs +notmuch tag -inbox +lists/info-gnu-emacs -- folder:gnu/l/info-gnu-emacs +notmuch tag -inbox +lists/www-commits -- folder:gnu/l/www-commits +notmuch tag -inbox +lists/www-discuss -- folder:gnu/l/www-discuss +notmuch tag -inbox +webmasters -- folder:gnu/webmasters + +notmuch tag -inbox +lists/deepspec -- folder:gnu/l/deepspec +notmuch tag -inbox +lists/haskell-cafe -- folder:gnu/l/haskell-cafe +notmuch tag -inbox +lists/haskell-art -- folder:gnu/l/haskell-art +notmuch tag -inbox +lists/notmuch -- folder:gnu/l/notmuch +# #+end_src *** notmuch.service @@ -2312,15 +2339,18 @@ require [ "regex", "variables", "fileinto", "envelope", "mailbox", "imap4flags", if anyof ( header :contains "list-id" "", + header :contains "list-id" "", + header :contains "list-id" "", + header :contains "list-id" "", header :contains "list-id" "", header :contains "list-id" "", header :contains "list-id" "", header :contains "list-id" "", header :contains "list-id" "", header :contains "list-id" "", - header :contains "list-id" "", header :contains "list-id" "", header :contains "list-id" "", + header :contains "list-id" "", header :contains "list-id" "") { if header :regex "list-id" "<([a-z_0-9-]+)[.@]" { set :lower "listname" "${1}"; -- cgit v1.2.3-60-g2f50