summaryrefslogtreecommitdiffhomepage
path: root/lib/net
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-01-13 23:50:40 +0000
committerjao <jao@gnu.org>2022-01-13 23:50:40 +0000
commit547ae4cc92e6f32b6f78074a4388cd79ab9aad8b (patch)
treeda58e360a29a4c63fa6dc5a61cca9283c21aa35a /lib/net
parent725e86ae70a3d5ae93b2a6c337943f32d2b278d2 (diff)
downloadelibs-547ae4cc92e6f32b6f78074a4388cd79ab9aad8b.tar.gz
elibs-547ae4cc92e6f32b6f78074a4388cd79ab9aad8b.tar.bz2
jao-notmuch: better tags reset
Diffstat (limited to 'lib/net')
-rw-r--r--lib/net/jao-notmuch.el7
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