aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xbin/tagmail14
1 files changed, 4 insertions, 10 deletions
diff --git a/bin/tagmail b/bin/tagmail
index e6b4c50..9ca1771 100755
--- a/bin/tagmail
+++ b/bin/tagmail
@@ -161,7 +161,7 @@
(define tag-rules
'(("+ci" "from:travis-ci.com or from:travis-ci.org or from:appveyor.com or from:circleci.com or from:mg.gitlab.com and subject:Pipeline")
- ("+CMK-JIRA -inbox" "from:infra@mathias-kettner.de or from:jira@tribe29.com")
+ ("+CMK-JIRA -inbox" "from:infra@mathias-kettner.de or (from:jira and not subject:\"mentioned you\")")
("+slack" "from:slack.com")
("+alle-mk" "to:alle@mathias-kettner.de to:technik@tribe29.com")
("+cmk-commits" "to:cmk-internal-commits@mathias-kettner.de")
@@ -198,7 +198,9 @@
(help (single-char #\h) (value #f))
(all (value #f))
(dry-run (single-char #\n) (value #f))))
- (options (cons '(mail-repo . "/home/titan/.mail/")
+ (options (cons (cons 'mail-repo (string-append
+ (passwd:dir (getpwuid (geteuid)))
+ "/.mail/" ))
(getopt-long args option-spec)))
(account (if (null? (assq-ref options '())) "hi_pers" (car (assq-ref options '())))))
(delete-email-files! options)
@@ -220,11 +222,3 @@
(clear-inbox options ffi-db)
(tag-spam options ffi-db "tag:inbox")
(notmuch_database_destroy ffi-db))))
-
-(let* ((ffi-db (nm-open-database "/home/titan/.mail/" 0))
- (query (nm-query-db ffi-db "subject:^.FYI"))
- (subjects (nm-iter messages (nm-result-messages query)
- (lambda (msg) (nm-header msg "subject")))))
-
- (notmuch_database_destroy ffi-db)
- subjects)