diff options
| -rwxr-xr-x | notmuch/.config/notmuch/default/hooks/post-new | 5 | ||||
| -rwxr-xr-x | notmuch/usr/bin/notmuch-tag-mailinglists | 15 |
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))) |