list tagging

1 files changed, 10 insertions, 0 deletions

diff --git a/email.org b/email.org
index e2a07fb..c67a9d0 100644
--- a/email.org
+++ b/email.org
@@ -719,6 +719,10 @@
         done
       }
 
+      function tag_list () {
+        notmuch tag "+$1" -- tag:new AND List:${2:-$1}
+      }
+
       tag_directory bigml
       tag_directory jao
       tag_directory feeds
@@ -729,8 +733,14 @@
        -- "$nbml (List:bigmlcom/wintermute OR List:bigmlcom/universe)"
       notmuch tag +support -inbox -drivel -lists \
        -- "$nbml (List:support OR List:education)"
+
       notmuch tag +gmane -- tag:new AND folder:/gmane/
 
+      for l in notmuch haskell emacs-devel emacs-diffs emacs; do
+        tag_list $l
+      done
+      tag_list emacs-bugs bug-gnu-emacs
+
     #+end_src
 *** expiry shell script
     #+begin_src bash :shebang "#!/bin/bash" :tangle ./bin/notmuch-expire.sh :tangle-mode (identity #o755)