diff options
| author | jao <jao@gnu.org> | 2022-10-03 02:33:34 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-10-03 02:33:52 +0100 |
| commit | 918bdac750d094844bf263427e3c880751af042a (patch) | |
| tree | 73b89f4e53848c1d5bf8b39510cec1f06e949d96 /custom | |
| parent | 2a4e0a964ec915865ddafded2757fab97fa4ff3b (diff) | |
| download | elibs-918bdac750d094844bf263427e3c880751af042a.tar.gz elibs-918bdac750d094844bf263427e3c880751af042a.tar.bz2 | |
notmuch: search tweaks
Diffstat (limited to 'custom')
| -rw-r--r-- | custom/jao-custom-notmuch.el | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/custom/jao-custom-notmuch.el b/custom/jao-custom-notmuch.el index 1dc5fc8..29497ce 100644 --- a/custom/jao-custom-notmuch.el +++ b/custom/jao-custom-notmuch.el @@ -145,29 +145,30 @@ ,(jao-notmuch--q "jao" "flagged" "rj" '("tag:flagged" "tag:jao")) ,(jao-notmuch--q "feeds" "flagged" "rf" '("tag:flagged" "tag:feeds")))) -(jao-notmuch-def-searches dynamic +(jao-notmuch-def-searches today `(,(jao-notmuch--q "new" nil "nn" '("tag:new" "not tag:draft")) ,(jao-notmuch--q "jao" "drafts" "d" '("tag:draft")) - ,(jao-notmuch--q "bml" "sent-today" "ts" - '("tag:bigml" "date:24h.." "tag:sent")) - ,(jao-notmuch--q "jao" "sent-today" "tS" '("tag:jao" "date:24h.." "tag:sent")) - ,(jao-notmuch--q "bml" "today" "tb" '("tag:bigml" "date:24h..")) + ,(jao-notmuch--q "bml" "sent" "ts" + '("tag:bigml" "date:1d.." "tag:sent")) + ,(jao-notmuch--q "jao" "sent" "tS" + '("tag:\"/jao|hacking/\"" "date:1d.." "tag:sent")) + ,(jao-notmuch--q "bml" "today" "tb" + '("not tag:sent" "tag:bigml" "date:24h..")) ,(jao-notmuch--q "jao" "today" "tj" '("tag:jao" "date:24h.." - "not tag:\"/(feeds|spam|local)/\"")))) + "not tag:\"/(sent|feeds|spam|local)/\"")))) (jao-notmuch-def-searches trove (mapcar (lambda (m) (list :query (concat "tag:trove and tag:" m) :name (concat "trove/" m) :key (concat "t" (substring m 0 1)) :search-type 'tree)) - '("feeds" "hacking" "bills" "jao"))) + '("jao" "hacking" "feeds" "bills"))) (jao-notmuch-def-searches nil - '((:query "tag:sent and tag:bigml" :name "bigml/sent") + '((:query "not tag:trove and not tag:bigml" :name "jao/untroved") + (:query "tag:sent and tag:bigml" :name "bigml/sent") (:query "tag:sent and not tag:bigml" :name "jao/sent") - (:query "not tag:gmane" :name "email") - (:query "tag:gmane" :name "gmane") (:query "*" :name "messages"))) (defvar jao-notmuch-widened-searches |