From f82c1391f230e353dcfce0831fb8ed2f8ade46d1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=C3=93scar=20N=C3=A1jera?= Date: Mon, 4 Jan 2021 13:42:52 +0100 Subject: Use just one format instruction for sent search --- bin/tagmail | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'bin') diff --git a/bin/tagmail b/bin/tagmail index f7836b1..bd58d40 100755 --- a/bin/tagmail +++ b/bin/tagmail @@ -182,9 +182,7 @@ (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)" - (format #f "~{from:~a~^ OR ~}" my-emails) - (format #f "~{to:~a~^ OR ~}" my-emails)))) + (sent (format #f "(~{from:~a~^ OR ~}) AND NOT (~:*~{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