From 13632db6a55599f613e66d72875ac612f13c8da5 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Thu, 22 Sep 2022 23:00:37 -0700 Subject: [PATCH] [notmuch] Make tasks for some Alwaysdata messages --- notmuch/usr/bin/notmuch-collect-tasks | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/notmuch/usr/bin/notmuch-collect-tasks b/notmuch/usr/bin/notmuch-collect-tasks index 4eff658..0315971 100755 --- a/notmuch/usr/bin/notmuch-collect-tasks +++ b/notmuch/usr/bin/notmuch-collect-tasks @@ -6,7 +6,9 @@ exec scsh -e main -s "$0" "$@" (define message-query '(from:fidobill@fidomobile.ca - and "subject:Your Fido bill is ready")) + and "subject:Your Fido bill is ready" + or "subject:[alwaysdata] Negative balance to settle" + or "subject:[alwaysdata] Automatic renewal of domains impossible")) (define processed-tag-name "processed") @@ -28,7 +30,7 @@ exec scsh -e main -s "$0" "$@" (let ((output-file (cadr args)) (messages (run/sexp (notmuch search --format=sexp - ,@message-query + "(" ,@message-query ")" and not ,(format #f "tag:~a" processed-tag-name))))) (with-current-output-port (open-output-file output-file (file-options create append))