# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 787938177 0
# Node ID f81679f84f6898b4c6ee620030c75e145bac739f
# Parent  2569f4d3073e1f839d89c0c304acd7001b6d5229
(rmail-first-unseen-message): Fix 1-off error.

diff -r 2569f4d3073e -r f81679f84f68 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Mon Dec 19 19:09:39 1994 +0000
+++ b/lisp/mail/rmail.el	Tue Dec 20 15:42:57 1994 +0000
@@ -1734,7 +1734,7 @@
 	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))))