mirror of
https://git.notmuchmail.org/git/notmuch
synced 2024-11-24 20:08:10 +01:00
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:
parent
874f14ec2b
commit
bcfd8575e5
1 changed files with 7 additions and 1 deletions
|
@ -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)
|
||||||
|
|
Loading…
Reference in a new issue