mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1994-12-20 15:42:57 +00:00
parent e8c04c88ef
commit bb9dcce1b1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/mail/rmail.el
View File

@ -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))))