[notmuch] Make tasks for some Alwaysdata messages

1 files 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))