From d844b740db1ea5c19485a148b5b2e6ab96c5238f Mon Sep 17 00:00:00 2001 From: jao Date: Fri, 22 Oct 2021 22:35:53 +0100 Subject: notmuch-tree: better (as in functional) tag and next --- lib/net/jao-notmuch.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'lib/net') diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el index b49fe1c..8d88b4b 100644 --- a/lib/net/jao-notmuch.el +++ b/lib/net/jao-notmuch.el @@ -367,13 +367,17 @@ (notmuch-tag-jump reverse) (jao-notmuch-tree-next nil t)) -(defun jao-notmuch-tree--tag-and-next (tags reverse whole-thread) +(defun jao-notmuch-tree--tag (tags reverse whole-thread) (let ((c (notmuch-tag-change-list tags reverse))) - (if whole-thread (notmuch-tree-tag-thread c) (notmuch-tree-tag c))) + (if whole-thread (notmuch-tree-tag-thread c) (notmuch-tree-tag c)))) + +(defun jao-notmuch-tree--tag-and-next (tags reverse whole-thread) + (jao-notmuch-tree--tag tags reverse whole-thread) + (jao-notmuch-tree--forward) (jao-notmuch-tree-next whole-thread t)) (defun jao-notmuch-tree-delete-message (undelete) - (interactive "P") + (interactive "p") (jao-notmuch-tree--tag-and-next '("+deleted" "-new" "-unread") undelete nil)) (defun jao-notmuch-tree-delete-thread () -- cgit v1.2.3