From a053df6981f436d475424462bbbc0612864a4b5e Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Mon, 19 Apr 2021 03:53:53 +0100
Subject: notmuch tweaks

---
 email.org | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

(limited to 'email.org')

diff --git a/email.org b/email.org
index 3af339d..bf21157 100644
--- a/email.org
+++ b/email.org
@@ -218,13 +218,13 @@
                :count-query "folder:bigml/inbox and tag:unread"
                :search-type tree
                :query "folder:bigml/inbox")
-              (:name "today" :key "t" :search-type tree
-                     :query "tag:/support|inbox|bugs|bills|hacking/ and date:1d..")
               ,@(jao-notmuch--mboxes-search "bigml")
               ,@(jao-notmuch--mboxes-search "jao")
               ,@(jao-notmuch--mboxes-search "feeds")
               (:name "feeds" :query "tag:new and tag:feeds and not tag:emacs"
                :key "f" :search-type tree)
+              (:name "today" :key "t" :search-type tree
+                     :query "tag:/support|inbox|bugs|bills|hacking/ and date:1d..")
               (:name "new" :query "tag:new" :key "n" :search-type tree))
             notmuch-hello-sections '(notmuch-hello-insert-saved-searches
                                      notmuch-hello-insert-alltags
@@ -236,7 +236,7 @@
             notmuch-show-logo nil
             notmuch-show-empty-saved-searches nil)
     #+end_src
-*** extended commands
+*** commands
     #+begin_src emacs-lisp
       (defvar-local jao-notmuch--tree-buffer nil)
 
@@ -288,13 +288,15 @@
               notmuch-archive-tags '("+archive" "-new" "-unread")
               notmuch-tagging-keys
               '(("a" notmuch-archive-tags "Archive")
-                ("u" notmuch-show-mark-read-tags "Mark read")
+                ("d" notmuch-show-mark-read-tags "Mark read")
+                ("u" ("+new" "+unread") "Mark unred read")
                 ("f" ("+flagged") "Flag")
-                ("s" ("+spam" "-new") "Mark as spam")
-                ("d" ("+deleted" "-new" "-unread") "Delete"))
+                ("x" ("+expired" "-new" "-flagged" "-unread") "Expired"))
               notmuch-show-all-multipart/alternative-parts nil
               notmuch-show-indent-messages-width 2
+              notmuch-show-imenu-indent t
               notmuch-show-part-button-default-action 'notmuch-show-view-part
+              notmuch-show-only-matching-messages t
               notmuch-tree-result-format
               '(("date" . "%12s  ")
                 ("authors" . "%-35s")
@@ -306,7 +308,6 @@
                 ("authors" . "%-35s")
                 ("subject" . "%-95s")
                 ("tags" . "(%s)"))
-              notmuch-show-only-matching-messages t
               notmuch-unthreaded-result-format notmuch-tree-result-format
               notmuch-wash-wrap-lines-length 80
               notmuch-wash-citation-lines-prefix 10
-- 
cgit v1.2.3