aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorWilliam Casarin <jb55@jb55.com>2020-04-04 13:41:41 -0700
committerDavid Bremner <david@tethera.net>2020-04-06 07:17:34 -0300
commit86f3cc265a89d939facb3d29fec9b2d451500836 (patch)
treea5d2cb34c4734523a1b724e563e64e6d9ba79af8
parent1abe5a0c5b18bdbc0b25f3d138356ee73fe961d1 (diff)
emacs/tree: add notmuch-tree-archive-thread-then-exit
This is the notmuch-tree version of notmuch-show-archive-thread-then-exit Signed-off-by: William Casarin <jb55@jb55.com>
-rw-r--r--emacs/notmuch-tree.el6
1 files changed, 6 insertions, 0 deletions
diff --git a/emacs/notmuch-tree.el b/emacs/notmuch-tree.el
index 02bdd1ee..470cd517 100644
--- a/emacs/notmuch-tree.el
+++ b/emacs/notmuch-tree.el
@@ -617,6 +617,12 @@ message will be \"unarchived\", i.e. the tag changes in
(notmuch-tree-archive-message unarchive)
(notmuch-tree-next-matching-message))
+(defun notmuch-tree-archive-thread-then-exit ()
+ "Archive all messages in the current buffer, then exit notmuch-tree."
+ (interactive)
+ (notmuch-tree-archive-thread)
+ (notmuch-tree-quit t))
+
(defun notmuch-tree-archive-message-then-next-or-exit ()
"Archive current message, then show next open message in current thread.