From 88810b999a478b6af796eb98b0cf35020ee50901 Mon Sep 17 00:00:00 2001
From: Carl Worth <cworth@cworth.org>
Date: Wed, 4 Nov 2009 11:19:50 -0800
Subject: [PATCH] notmuch.el: Move to first unread message on notmuch-show.
This is important for when a new message is delivered to an existing
enormous thread.
---
notmuch.el | 10 ++++++++++
1 file changed, 10 insertions(+)
diff --git a/notmuch.el b/notmuch.el
index 849654b7..9bf272be 100644
--- a/notmuch.el
+++ b/notmuch.el
@@ -172,6 +172,15 @@ message in the buffer."
(notmuch-show-next-message)
(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 ()
"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)
(notmuch-show-markup-messages)
)
+ (notmuch-show-next-unread-message)
)))
(defvar notmuch-search-mode-map
--
2.45.2