From 5f6426fd240bd2e1048e920d4e1016829785c724 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Tue, 8 Jun 2021 02:53:33 +0100
Subject: notmuch nits

---
 email.org | 22 ++++++++++++++--------
 1 file changed, 14 insertions(+), 8 deletions(-)

(limited to 'email.org')

diff --git a/email.org b/email.org
index fb0a2c1..2e3e5af 100644
--- a/email.org
+++ b/email.org
@@ -374,12 +374,12 @@
 
       (setq notmuch-saved-searches
             `(,(jao-notmuch--q "bigml" "inbox" "bi")
-              ,@(jao-notmuch--mboxes-search "bigml" "inbox" "deploys")
+              ,@(jao-notmuch--mboxes-search "bigml" "inbox")
               ,(jao-notmuch--q "jao" "inbox" "ji")
               ,@(jao-notmuch--mboxes-search "jao" "inbox")
               ,@(jao-notmuch--mboxes-search "feeds")
               ,(jao-notmuch--q "gmane/emacs" nil "e"
-                               '("tag:gmane" "tag:new" "List:emacs"))
+                               '("tag:gmane" "tag:new" "tag:emacs"))
               ,(jao-notmuch--q "gmane" nil "g" '("tag:gmane" "tag:new"))
               ,(jao-notmuch--q "bml/today" nil "tb" '("tag:bigml" "date:1d..") t)
               ,(jao-notmuch--q "jao/today" nil "tj" '("tag:jao" "date:1d..") t)
@@ -427,6 +427,12 @@
           (interactive)
           (save-window-excursion (org-agenda-list)))
 
+        (defun jao-notmuch-hello-first ()
+          (interactive)
+          (let ((inhibit-message t))
+            (beginning-of-buffer)
+            (widget-forward 2)))
+
         (defun jao-notmuch-refresh-hello ()
           (interactive)
           (ignore-errors
@@ -434,9 +440,7 @@
                        (derived-mode-p 'notmuch-hello-mode))
               (when (not (string-blank-p jao-notmuch-minibuffer-string))
                 (let ((notmuch-hello-auto-refresh nil)) (notmuch-hello)))
-              (let ((inhibit-message t))
-                (beginning-of-buffer)
-                (widget-forward 2)))))
+              (jao-notmuch-hello-first))))
 
         (defun jao-notmuch-open-enclosure (add)
           (interactive "P")
@@ -460,6 +464,7 @@
                (("a" . jao-notmuch-refresh-agenda)
                 ("S" . consult-notmuch)
                 ("g" . jao-notmuch-refresh-hello)
+                ("." . jao-notmuch-hello-first)
                 ("SPC" . widget-button-press))
                :map notmuch-common-keymap
                (("E" . jao-notmuch-open-enclosure))))
@@ -541,7 +546,8 @@
         "Next message or thread in forest or exit if none."
         (interactive "P")
         (if thread
-            (notmuch-tree-next-thread)
+            (progn (notmuch-tree-next-thread)
+                   (notmuch-tree-show-message nil))
           (notmuch-tree-next-matching-message (not no-exit)))
         (jao-notmuch-tree-update-buffer-name))
 
@@ -617,8 +623,8 @@
                      ("h" . jao-notmuch-goto-message-buffer)
                      ("H" . jao-notmuch-click-message-buffer)
                      ("i" . jao-notmuch-toggle-images)
-                     ("k" . jao-notmuch-tag-jump-and-next)
-                     ("K" . jao-notmuch-tree-read-thread)
+                     ("K" . jao-notmuch-tag-jump-and-next)
+                     ("k" . jao-notmuch-tree-read-thread)
                      ("n" . jao-notmuch-tree-next)
                      ("RET" . jao-notmuch-tree-show-or-scroll)
                      ("SPC" . jao-notmuch-tree-scroll-or-next))
-- 
cgit v1.2.3