[notmuch] Add some tags to incoming email

2 files changed, 18 insertions, 2 deletions

diff --git a/notmuch/.config/notmuch/default/hooks/post-new b/notmuch/.config/notmuch/default/hooks/post-new
index 28ba263..4def978 100755
--- a/notmuch/.config/notmuch/default/hooks/post-new
+++ b/notmuch/.config/notmuch/default/hooks/post-new
@@ -4,5 +4,6 @@ IFS=" "
 exec scsh -e main -s "$0" "$@"
 !#
 
-(define (main . args)
-  (run (notmuch-collect-tasks ,(format #f "~a/documents/gtd/inbox.org" (getenv "HOME")))))
+(define (main args)
+  (run (notmuch-collect-tasks ,(format #f "~a/documents/gtd/inbox.org" (getenv "HOME"))))
+  (run (notmuch-tag-mailinglists)))
diff --git a/notmuch/usr/bin/notmuch-tag-mailinglists b/notmuch/usr/bin/notmuch-tag-mailinglists
new file mode 100755
index 0000000..148988c
--- /dev/null
+++ b/notmuch/usr/bin/notmuch-tag-mailinglists
@@ -0,0 +1,15 @@
+#!/usr/bin/env sh
+# -*- mode: scheme; -*-
+IFS=" "
+exec scsh -e main -s "$0" "$@"
+!#
+
+(define (main args)
+  (run (notmuch tag +help-gnu-emacs to:help-gnu-emacs@gnu.org))
+  (run (notmuch tag +help-guix to:help-guix@gnu.org))
+  (run (notmuch tag +gnu-emacs-sources to:gnu-emacs-sources@gnu.org))
+  (run (notmuch tag +guile-user to:guile-user@gnu.org))
+  (run (notmuch tag +emacs-devel to:emacs-devel@gnu.org))
+  (run (notmuch tag +conkeror to:conkeror@freelists.org))
+  (run (notmuch tag +arch-announce to:arch-announce@archlinux.org))
+  (run (notmuch tag +info-gnu-emacs to:info-gnu-emacs@gnu.org)))