call notmuch-hello less and mark tree as read

1 files changed, 11 insertions, 5 deletions

diff --git a/email.org b/email.org
index 1795daf..a08771c 100644
--- a/email.org
+++ b/email.org
@@ -387,7 +387,8 @@
         (defun jao-notmuch-refresh-hello ()
           (interactive)
           (when (derived-mode-p 'notmuch-hello-mode)
-            (notmuch-refresh-this-buffer)
+            (when (not (string-blank-p jao-notmuch-minibuffer-string))
+              (notmuch-hello))
             (let ((inhibit-message t))
               (save-window-excursion (org-agenda-list))
               (beginning-of-buffer)
@@ -493,8 +494,12 @@
         (jao-notmuch-tree--tag-and-next '("+deleted" "-new") undelete nil))
 
       (defun jao-notmuch-tree-delete-thread ()
-        (interactive "P")
-        (jao-notmuch-tree--tag-and-next '("+deleted" "-new") t nil))
+        (interactive)
+        (jao-notmuch-tree--tag-and-next '("+deleted" "-new") nil t))
+
+      (defun jao-notmuch-tree-read-thread ()
+        (interactive)
+        (jao-notmuch-tree--tag-and-next '("-unread" "-new") nil t))
 
       (defun jao-notmuch-tree-scroll-or-next ()
         "Scroll or next message in forest or exit if none."
@@ -532,11 +537,12 @@
                (("." . jao-notmuch-toggle-mime-parts)
                 ("d" . jao-notmuch-tree-delete-message)
                 ("D" . jao-notmuch-tree-delete-thread)
-                ("i" . jao-notmuch-toggle-images)
                 ("h" . jao-notmuch-goto-message-buffer)
                 ("H" . jao-notmuch-click-message-buffer)
-                ("n" . jao-notmuch-tree-next)
+                ("i" . jao-notmuch-toggle-images)
                 ("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))
                :map notmuch-show-mode-map