From 7c25252663e1d4d37ea2da35906589a44f21c31a Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Sat, 2 Jul 2022 00:05:21 -0700 Subject: [PATCH] [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 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)))