From: Carl Worth <cworth@cworth.org>
Date: Wed, 4 Nov 2009 19:03:07 +0000 (-0800)
Subject: notmuch.el: Make next-message move to end of buffer after last message.
X-Git-Tag: 0.1~587
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=08d84ceeabce09d9fa870f64907acb8e576ebdef;p=notmuch.git

notmuch.el: Make next-message move to end of buffer after last message.

We need an easier way to detect when we're done with the last message
so taking advantage of the end-of-buffer position helps here.
---

diff --git a/notmuch.el b/notmuch.el
index 16ca037e..849654b7 100644
--- a/notmuch.el
+++ b/notmuch.el
@@ -150,12 +150,13 @@ by searching backward)."
 (defun notmuch-show-next-message ()
   "Advance to the beginning of the next message in the buffer.
 
-Moves to the beginning of the current message if already on the
-last message in the buffer."
+Moves to the end of the buffer if already on the last message in
+the buffer."
   (interactive)
   (notmuch-show-move-to-current-message-summary-line)
-  (re-search-forward notmuch-show-message-begin-regexp nil t)
-  (notmuch-show-move-to-current-message-summary-line)
+  (if (re-search-forward notmuch-show-message-begin-regexp nil t)
+      (notmuch-show-move-to-current-message-summary-line)
+    (goto-char (point-max)))
   (recenter 0))
 
 (defun notmuch-show-find-next-message ()
@@ -218,9 +219,10 @@ which this thread was originally shown."
     (if (and (not unread)
 	     (equal next (point)))
 	(notmuch-show-archive-thread)
-      (if (< (notmuch-show-find-next-message) (window-end))
-	  (notmuch-show-mark-read-then-next-message)
-	(scroll-up nil)))))
+      (if (and (> next (window-end))
+	       (< next (point-max)))
+	  (scroll-up nil)
+	(notmuch-show-mark-read-then-next-message)))))
 
 (defun notmuch-show-markup-citations-region (beg end)
   (goto-char beg)