debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-21 18:38:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

notmuch.el: Preserve current thread when refreshing search results.

Browse source 
Otherwise, try to keep point in the same place, (such as when the
current thread has been archived away).
This commit is contained in:
Carl Worth 2009-11-03 11:54:34 -08:00
parent 2d507c9c6d
commit 6be03c1761
1 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
notmuch.el
View file

@ -420,11 +420,20 @@ Before moving, also remove the \"unread\" tag from the current message."
"Refresh the current view. "Refresh the current view.
Kills the current buffer and runs a new search with the same Kills the current buffer and runs a new search with the same
query string as the current search." query string as the current search. If the current thread is in
the new search results, then point will be placed on the same
thread. Otherwise, point will be moved to attempt to be in the
same relative position within the new buffer."
(interactive) (interactive)
(let ((query notmuch-search-query-string)) (let ((here (point))
(thread (notmuch-search-find-thread-id))
(query notmuch-search-query-string))
(kill-this-buffer) (kill-this-buffer)
(notmuch-search query))) (notmuch-search query)
(goto-char (point-min))
(if (re-search-forward (concat "^" thread) nil t)
(beginning-of-line)
(goto-char here))))
(defun notmuch-search-filter (query) (defun notmuch-search-filter (query)
"Run \"notmuch search\" to refine the current search results. "Run \"notmuch search\" to refine the current search results.