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 <jb55@jb55.com>
This commit is contained in:
William Casarin 2020-08-11 10:36:53 -07:00 committed by David Bremner
parent 874f14ec2b
commit bcfd8575e5

View file

@ -338,7 +338,7 @@ FUNC."
(define-key map [mouse-1] 'notmuch-tree-show-message) (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-message-then-next-or-exit)
(define-key map "X" 'notmuch-tree-archive-thread-then-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 "a" 'notmuch-tree-archive-message-then-next)
(define-key map "z" 'notmuch-tree-to-tree) (define-key map "z" 'notmuch-tree-to-tree)
(define-key map "n" 'notmuch-tree-next-matching-message) (define-key map "n" 'notmuch-tree-next-matching-message)
@ -497,6 +497,12 @@ NOT change the database."
(notmuch-tree-close-message-window) (notmuch-tree-close-message-window)
(notmuch-tree query))) (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 () (defun notmuch-unthreaded-from-tree-current-query ()
"Switch from tree view to unthreaded view." "Switch from tree view to unthreaded view."
(interactive) (interactive)