From 7c25252663e1d4d37ea2da35906589a44f21c31a Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Sat, 2 Jul 2022 00:05:21 -0700
Subject: [notmuch] Add some tags to incoming email

---
 notmuch/.config/notmuch/default/hooks/post-new |  5 +++--
 notmuch/usr/bin/notmuch-tag-mailinglists       | 15 +++++++++++++++
 2 files changed, 18 insertions(+), 2 deletions(-)
 create mode 100755 notmuch/usr/bin/notmuch-tag-mailinglists

(limited to 'notmuch')

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