simplify sent search

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