From c0883440c983e9beec88b000843fe91b82fded63 Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 26 Apr 2021 04:07:36 +0100 Subject: notmuch: k to mark as deleted current thread --- email.org | 16 ++++++++++++++-- 1 file changed, 14 insertions(+), 2 deletions(-) (limited to 'email.org') diff --git a/email.org b/email.org index 50bd73b..009a4f9 100644 --- a/email.org +++ b/email.org @@ -590,6 +590,17 @@ (scroll-other-window 1) (notmuch-tree-show-message nil))) + (defun jao-notmuch-tree-delete-next (thread) + "Mark as deleted current message (or thread, with prefix) and move to next." + (interactive "P") + (jao-notmuch-tree--tag-next '("+deleted" "-unread" "-new") nil thread)) + + + (defun jao-notmuch-tree-read-thread-next () + "Mark the current thread as read and move to next one." + (interactive) + (jao-notmuch-tree--tag-next '("-unread" "-new") nil t)) + (dolist (f '(notmuch-tree-match-tree-face notmuch-tree-no-match-tree-face)) (set-face-attribute f nil @@ -608,7 +619,8 @@ (("." . jao-notmuch-toggle-mime-parts) ("i" . jao-notmuch-toggle-images) ("h" . jao-notmuch-goto-message-buffer) - ("k" . jao-notmuch-tag-jump) + ("K" . jao-notmuch-tag-jump) + ("k" . jao-notmuch-tree-read-thread-next) ("n" . jao-notmuch-tree-next) ("RET" . jao-notmuch-tree-show-or-scroll) ("SPC" . jao-notmuch-tree-scroll-or-next)))) @@ -639,7 +651,7 @@ notmuch-tagging-keys '(("a" notmuch-archive-tags "Archive") ("d" notmuch-show-mark-read-tags "Mark read") - ("u" ("+new" "+unread") "Mark unred read") + ("u" ("+new" "+unread") "Mark unread") ("f" ("+flagged") "Flag") ("x" ("+deleted" "-new" "-flagged" "-unread") "Deleted"))) -- cgit v1.2.3