diff options
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 |