From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 20 Dec 1994 15:42:57 +0000 (+0000)
Subject: (rmail-first-unseen-message): Fix 1-off error.
X-Git-Tag: emacs-19.34~5665
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bb9dcce1b10ce4270132742257dab11f32b90a95;p=emacs.git

(rmail-first-unseen-message): Fix 1-off error.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 3c65e22fc3a..458415dc888 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1734,7 +1734,7 @@ Interactively, empty argument means use same regexp used last time."
 	found)
     (save-restriction
       (widen)
-      (while (and (not found) (< current rmail-total-messages))
+      (while (and (not found) (<= current rmail-total-messages))
 	(if (rmail-message-labels-p current ", ?\\(unseen\\),")
 	    (setq found current))
 	(setq current (1+ current))))