From 38590fd6c9e7aec2ada3dc208a4b76823e95d216 Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 5 Jun 2021 16:22:51 +0100 Subject: call notmuch-hello less and mark tree as read --- email.org | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) (limited to 'email.org') 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 -- cgit v1.2.3