From: William Casarin Date: Tue, 11 Aug 2020 17:36:53 +0000 (-0700) Subject: emacs/tree: add notmuch-tree-archive-thread-then-next X-Git-Tag: 0.31_rc0~4 X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=commitdiff_plain;h=bcfd8575e5d3040a6b536928e9c163592e689da9;hp=874f14ec2b25f7593edf872c254db344195fce84 emacs/tree: add notmuch-tree-archive-thread-then-next Now that notmuch-tree-next-thread acts more like its notmuch-show counterpart, let's update the binding to move to the next thread after archiving. Signed-off-by: William Casarin --- diff --git a/emacs/notmuch-tree.el b/emacs/notmuch-tree.el index bf500b60..2bb7c80f 100644 --- a/emacs/notmuch-tree.el +++ b/emacs/notmuch-tree.el @@ -338,7 +338,7 @@ FUNC." (define-key map [mouse-1] 'notmuch-tree-show-message) (define-key map "x" 'notmuch-tree-archive-message-then-next-or-exit) (define-key map "X" 'notmuch-tree-archive-thread-then-exit) - (define-key map "A" 'notmuch-tree-archive-thread) + (define-key map "A" 'notmuch-tree-archive-thread-then-next) (define-key map "a" 'notmuch-tree-archive-message-then-next) (define-key map "z" 'notmuch-tree-to-tree) (define-key map "n" 'notmuch-tree-next-matching-message) @@ -497,6 +497,12 @@ NOT change the database." (notmuch-tree-close-message-window) (notmuch-tree query))) +(defun notmuch-tree-archive-thread-then-next () + "Archive all messages in the current buffer, then show next thread from search." + (interactive) + (notmuch-tree-archive-thread) + (notmuch-tree-next-thread)) + (defun notmuch-unthreaded-from-tree-current-query () "Switch from tree view to unthreaded view." (interactive)