diff options
| author | jao <jao@gnu.org> | 2021-10-22 22:35:53 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-10-22 22:35:53 +0100 |
| commit | d844b740db1ea5c19485a148b5b2e6ab96c5238f (patch) | |
| tree | 7341d6aa38ed870a7f5e30f5af065ec0ae49eb0d | |
| parent | 664df6d51e02d4549402e1cbb18fee08c0118424 (diff) | |
| download | elibs-d844b740db1ea5c19485a148b5b2e6ab96c5238f.tar.gz elibs-d844b740db1ea5c19485a148b5b2e6ab96c5238f.tar.bz2 | |
notmuch-tree: better (as in functional) tag and next
| -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 () |