diff options
| -rw-r--r-- | custom/jao-custom-notmuch.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/custom/jao-custom-notmuch.el b/custom/jao-custom-notmuch.el index 4d08204..974a577 100644 --- a/custom/jao-custom-notmuch.el +++ b/custom/jao-custom-notmuch.el @@ -80,7 +80,7 @@ jao-notmuch--newa (concat (jao-notmuch--new) " AND "))) (defun jao-notmuch--q (d0 &optional k d1 qs st) - (let* ((qs (when qs (mapconcat #'identity qs " AND "))) + (let* ((qs (when qs (mapconcat (lambda (q) (format "%s" q)) qs " AND "))) (q (or qs (concat (jao-notmuch--new) (mapconcat (lambda (d) (when d (concat " AND tag:" d))) |