diff options
| -rw-r--r-- | lib/net/jao-notmuch.el | 10 |
1 files changed, 7 insertions, 3 deletions
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 () |