diff options
author | William Casarin <jb55@jb55.com> | 2020-08-11 10:36:53 -0700 |
---|---|---|
committer | David Bremner <david@tethera.net> | 2020-08-16 10:42:27 -0300 |
commit | bcfd8575e5d3040a6b536928e9c163592e689da9 (patch) | |
tree | 61cc47334a7d276c628599d65f93455fc7431b6f | |
parent | 874f14ec2b25f7593edf872c254db344195fce84 (diff) |
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>
-rw-r--r-- | emacs/notmuch-tree.el | 8 |
1 files changed, 7 insertions, 1 deletions
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) |