From 32ad514876fe48362daf1bee3a9a6d6af6b68134 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Tue, 8 Jun 2021 02:52:10 +0100
Subject: list tagging

---
 email.org | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'email.org')

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)
-- 
cgit v1.2.3