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

bb9dcce1 · Richard M. Stallman · e8c04c88 · bb9dcce1
Commit bb9dcce1 authored Dec 20, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/mail/rmail.el lisp/mail/rmail.el +1 -1

No files found.
--- 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))))