aboutsummaryrefslogtreecommitdiffstats
path: root/bin
diff options
context:
space:
mode:
Diffstat (limited to 'bin')
-rwxr-xr-xbin/tagmail11
1 files changed, 3 insertions, 8 deletions
diff --git a/bin/tagmail b/bin/tagmail
index 9ca1771..f7836b1 100755
--- a/bin/tagmail
+++ b/bin/tagmail
@@ -182,14 +182,9 @@
(display (colorize-string "[Inbox]\n" 'BOLD 'YELLOW))
(let* ((my-emails (list "hi@oscarnajera.com" "hello@oscarnajera.com" "najera.oscar@gmail.com"
"on@mathias-kettner.de" "oscar.najera@tribe29.com"))
- (sent (format #f "~?" "(~A) AND NOT (~A)"
- (map (lambda (header)
- (string-join
- (map (lambda (address)
- (format #f "~a:~a" header address))
- my-emails)
- " OR "))
- (list "from" "to")))))
+ (sent (format #f "(~A) AND NOT (~A)"
+ (format #f "~{from:~a~^ OR ~}" my-emails)
+ (format #f "~{to:~a~^ OR ~}" my-emails))))
(notmuch-tag options ffi-db `(("+sent" ,sent "Emails I have sent")
("+inbox" "*" "Inbox for the rest")) #t)))