debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-24 20:08:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs/tree: add notmuch-tree-archive-message-than-next-or-exit

Browse source 
This is the notmuch-tree version of
notmuch-show-archive-message-than-next-or-exit.

Signed-off-by: William Casarin <jb55@jb55.com>
This commit is contained in:
William Casarin 2020-04-04 13:41:35 -07:00 committed by David Bremner
parent c6f43306cc
commit 1abe5a0c5b
1 changed files with 20 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
emacs/notmuch-tree.el
View file

@ -617,6 +617,15 @@ message will be \"unarchived\", i.e. the tag changes in
(notmuch-tree-archive-message unarchive) (notmuch-tree-archive-message unarchive)
(notmuch-tree-next-matching-message)) (notmuch-tree-next-matching-message))
(defun notmuch-tree-archive-message-then-next-or-exit ()
"Archive current message, then show next open message in current thread.
If at the last open message in the current thread, then exit back
to search results."
(interactive)
(notmuch-tree-archive-message)
(notmuch-tree-next-matching-message t))
(defun notmuch-tree-next-message () (defun notmuch-tree-next-message ()
"Move to next message." "Move to next message."
(interactive) (interactive)
@ -643,23 +652,24 @@ nil otherwise."
(forward-line dir)) (forward-line dir))
(not (funcall eobfn)))) (not (funcall eobfn))))
(defun notmuch-tree-matching-message (&optional prev) (defun notmuch-tree-matching-message (&optional prev pop-at-end)
"Move to the next or previous matching message" "Move to the next or previous matching message"
(interactive "P") (interactive "P")
(forward-line (if prev -1 nil)) (forward-line (if prev -1 nil))
(notmuch-tree-goto-matching-message prev) (if (and (not (notmuch-tree-goto-matching-message prev)) pop-at-end)
(when (window-live-p notmuch-tree-message-window) (notmuch-tree-quit pop-at-end)
(notmuch-tree-show-message-in))) (when (window-live-p notmuch-tree-message-window)
(notmuch-tree-show-message-in))))
(defun notmuch-tree-prev-matching-message () (defun notmuch-tree-prev-matching-message (&optional pop-at-end)
"Move to previous matching message." "Move to previous matching message."
(interactive) (interactive "P")
(notmuch-tree-matching-message t)) (notmuch-tree-matching-message t pop-at-end))
(defun notmuch-tree-next-matching-message () (defun notmuch-tree-next-matching-message (&optional pop-at-end)
"Move to next matching message." "Move to next matching message."
(interactive) (interactive "P")
(notmuch-tree-matching-message)) (notmuch-tree-matching-message nil pop-at-end))
(defun notmuch-tree-refresh-view (&optional view) (defun notmuch-tree-refresh-view (&optional view)
"Refresh view." "Refresh view."