diff options
| author | jao <jao@gnu.org> | 2022-01-13 23:50:40 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-01-13 23:50:40 +0000 |
| commit | 547ae4cc92e6f32b6f78074a4388cd79ab9aad8b (patch) | |
| tree | da58e360a29a4c63fa6dc5a61cca9283c21aa35a /lib/net | |
| parent | 725e86ae70a3d5ae93b2a6c337943f32d2b278d2 (diff) | |
| download | elibs-547ae4cc92e6f32b6f78074a4388cd79ab9aad8b.tar.gz elibs-547ae4cc92e6f32b6f78074a4388cd79ab9aad8b.tar.bz2 | |
jao-notmuch: better tags reset
Diffstat (limited to 'lib/net')
| -rw-r--r-- | lib/net/jao-notmuch.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el index ebb348a..fa33b37 100644 --- a/lib/net/jao-notmuch.el +++ b/lib/net/jao-notmuch.el @@ -299,9 +299,9 @@ (outline-show-entry) (when and-show (notmuch-tree-show-message nil))) -(defun jao-notmuch-tree--next (prev thread no-exit) +(defun jao-notmuch-tree--next (prev thread no-exit &optional ignore-new) (let ((line-move-ignore-invisible nil)) - (cond ((jao-notmuch--looking-at-new-p)) + (cond ((and (not ignore-new) (jao-notmuch--looking-at-new-p))) (thread (notmuch-tree-next-thread prev) (unless (or (not (notmuch-tree-get-message-properties)) @@ -414,7 +414,8 @@ (defun jao-notmuch-tree-reset-tags () (interactive) (let ((tags (plist-get (notmuch-tree-get-message-properties) :orig-tags))) - (jao-notmuch-tree--tag tags nil nil))) + (jao-notmuch-tree--tag tags nil nil) + (jao-notmuch-tree--next nil nil t t))) ;;;; Results formatters |