diff options
| author | Óscar Nájera <hi@oscarnajera.com> | 2022-10-08 15:08:42 +0200 |
|---|---|---|
| committer | Óscar Nájera <hi@oscarnajera.com> | 2022-10-08 15:08:42 +0200 |
| commit | f4baef952b1f054aa632b86bc336650ce6d6e767 (patch) | |
| tree | f7893ee21513f4f5aa1420b4c29505cec637dc57 /lib/guile/mail-tools.scm | |
| parent | 1324f71540659fa6c95f3ed7f0ee8f15748db136 (diff) | |
| download | dotfiles-f4baef952b1f054aa632b86bc336650ce6d6e767.tar.gz dotfiles-f4baef952b1f054aa632b86bc336650ce6d6e767.tar.bz2 dotfiles-f4baef952b1f054aa632b86bc336650ce6d6e767.zip | |
mail tagging & rules
Diffstat (limited to 'lib/guile/mail-tools.scm')
| -rw-r--r-- | lib/guile/mail-tools.scm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lib/guile/mail-tools.scm b/lib/guile/mail-tools.scm index b158d93..1186306 100644 --- a/lib/guile/mail-tools.scm +++ b/lib/guile/mail-tools.scm @@ -41,14 +41,13 @@ file-name-separator-string))) (define (tags-with-new rule new) - (if new (string-append (car rule) " -new") (car rule))) + (string-append (car rule) (if new " -new" ""))) (define (query-with-new rule new) - (if new - (if (string=? (cadr rule) "*") - "tag:new" - (simple-format #f "(~a) and ~a" (cadr rule) "tag:new")) - (cadr rule))) + (cond + ((and new (string=? (cadr rule) "*")) "tag:new") + (new (simple-format #f "(~a) and ~a" (cadr rule) "tag:new")) + (else (cadr rule)))) ;; NOTMUCH interface (define (nm-open-database path mode) |