From bb9dcce1b10ce4270132742257dab11f32b90a95 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 20 Dec 1994 15:42:57 +0000 Subject: [PATCH] (rmail-first-unseen-message): Fix 1-off error. --- lisp/mail/rmail.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))))