diff options
| author | jao <jao@gnu.org> | 2021-06-09 06:00:35 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-06-09 06:00:35 +0100 |
| commit | d9d8a503b791befb15a43c1a6e72b4b8d76fe1af (patch) | |
| tree | 9b3ae14c352dd4dd3246f2d4d6c65bd3c21d2972 /email.org | |
| parent | f9915edec184b1e1d1d379e3e1df0c1cbf2585e0 (diff) | |
| download | elibs-d9d8a503b791befb15a43c1a6e72b4b8d76fe1af.tar.gz elibs-d9d8a503b791befb15a43c1a6e72b4b8d76fe1af.tar.bz2 | |
tweaks
Diffstat (limited to 'email.org')
| -rw-r--r-- | email.org | 22 |
1 files changed, 11 insertions, 11 deletions
@@ -251,8 +251,7 @@ #+begin_src emacs-lisp (defun jao-list-mailboxes (base) (let ((dir (expand-file-name base "~/var/mail"))) - (seq-difference (directory-files dir) - '("." ".." "sent" "inbox" "trash")))) + (seq-difference (directory-files dir) '("." ".." "sent" "trash")))) #+end_src * consult narrowing #+begin_src emacs-lisp @@ -360,7 +359,7 @@ (defun jao-notmuch--q (d0 d1 &optional k qs st) (let ((q (or (when qs (mapconcat #'identity qs " AND ")) - (format "folder:%s/%s and tag:unread" d0 d1)))) + (format "folder:%s/%s and tag:\"/^(unread|new)$/\"" d0 d1)))) (list :name (concat d0 (when d1 "/") d1) :key k :query q :search-type (or st 'tree) :sort-order 'oldest-first))) @@ -375,8 +374,8 @@ (setq notmuch-saved-searches `(,(jao-notmuch--q "bigml" "inbox" "bi") ,@(jao-notmuch--mboxes-search "bigml" "inbox") - ,(jao-notmuch--q "jao" "inbox" "ji") - ,@(jao-notmuch--mboxes-search "jao" "inbox") + ,(jao-notmuch--q "bigml/support" nil "bs" '("tag:new" "tag:support")) + ,@(jao-notmuch--mboxes-search "jao") ,@(jao-notmuch--mboxes-search "feeds") ,(jao-notmuch--q "gmane/emacs" nil "e" '("tag:gmane" "tag:new" "tag:emacs")) @@ -408,7 +407,7 @@ notmuch-show-empty-saved-searches nil notmuch-show-part-button-default-action 'notmuch-show-view-part notmuch-show-mark-read-tags '("-new" "-unread") - notmuch-archive-tags '("+trove" "-new" "-unread" "-flagged") + notmuch-archive-tags '("+trove" "-new") notmuch-fcc-dirs '((".*@bigml.com" . "bigml/inbox +bigml +sent -new") (".*" . "jao/inbox +jao +sent -new")) @@ -541,7 +540,8 @@ (when-let ((n (or n (jao-notmuch--unread-count)))) (rename-buffer (format "*%s - {%s messages left}*" notmuch-tree-basic-query - n)))) + n)) + (jao-minibuffer-refresh))) (defun jao-notmuch-tree-next (thread &optional no-exit) "Next message or thread in forest or exit if none." @@ -765,16 +765,16 @@ notmuch tag +gmane -- tag:new AND folder:/gmane/ - for l in notmuch haskell emacs-devel emacs-diffs emacs; do + for l in geiser notmuch haskell erlang emacs-devel emacs-diffs emacs; do tag_list $l done tag_list emacs-bugs bug-gnu-emacs - + tag_list mailutils bug-mailutils #+end_src *** expiry shell script #+begin_src bash :shebang "#!/bin/bash" :tangle ./bin/notmuch-expire.sh :tangle-mode (identity #o755) - spared_tags="tag:\"/^(trove|new|flagged|unread|draft)$/\"" + spared_tags="tag:\"/^(trove|new|flagged|unread|draft|gmane)$/\"" function tag_deleted { notmuch tag +deleted -- "$1 AND date:..${2:-3d} AND NOT $spared_tags" @@ -787,7 +787,7 @@ tag_deleted_foldr "bigml.(drivel|lists|deploys|bugs)" 3d tag_deleted_foldr "bigml.reports" 1d tag_deleted_foldr "jao.(drivel|lists|books|think|local)" 3d - tag_deleted_foldr "feeds.+" 3d + tag_deleted "tag:feeds" 3d tag_deleted "tag:support AND tag:bigml" 7d |