From 3a8b6767b1ae97d4486ed6efd6f8cdc302ccf083 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=C3=93scar=20N=C3=A1jera?= Date: Mon, 4 Jan 2021 13:37:38 +0100 Subject: simplify sent search --- bin/tagmail | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) (limited to 'bin/tagmail') 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))) -- cgit v1.2.3