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

notmuch.el: Move to first unread message on notmuch-show.

Browse source 
This is important for when a new message is delivered to an existing
enormous thread.
This commit is contained in:
Carl Worth 2009-11-04 11:19:50 -08:00
parent 08d84ceeab
commit 88810b999a
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
notmuch.el
View file

@ -172,6 +172,15 @@ message in the buffer."
(notmuch-show-next-message) (notmuch-show-next-message)
(point)))) (point))))
(defun notmuch-show-next-unread-message ()
"Advance to the beginning of the next unread message in the buffer.
Does nothing if there are no more unread messages past the
current point."
(while (and (not (eobp))
(not (member "unread" (notmuch-show-get-tags))))
(notmuch-show-next-message)))
(defun notmuch-show-previous-message () (defun notmuch-show-previous-message ()
"Backup to the beginning of the previous message in the buffer. "Backup to the beginning of the previous message in the buffer.
@ -400,6 +409,7 @@ thread from that buffer can be show when done with this one)."
(call-process "notmuch" nil t nil "show" thread-id) (call-process "notmuch" nil t nil "show" thread-id)
(notmuch-show-markup-messages) (notmuch-show-markup-messages)
) )
(notmuch-show-next-unread-message)
))) )))
(defvar notmuch-search-mode-map (defvar notmuch-search-mode-map