diff options
Diffstat (limited to 'bin/tagmail')
| -rwxr-xr-x | bin/tagmail | 11 |
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))) |