diff options
| author | Richard M. Stallman | 1994-12-20 15:42:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-12-20 15:42:57 +0000 |
| commit | bb9dcce1b10ce4270132742257dab11f32b90a95 (patch) | |
| tree | d0ddfafece4ef945e6829e8d1f18faddb4e0d7b5 | |
| parent | e8c04c88ef6db97d6f4012172dfd2290aa5562cf (diff) | |
| download | emacs-bb9dcce1b10ce4270132742257dab11f32b90a95.tar.gz emacs-bb9dcce1b10ce4270132742257dab11f32b90a95.zip | |
(rmail-first-unseen-message): Fix 1-off error.
| -rw-r--r-- | lisp/mail/rmail.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 1734 | found) | 1734 | found) |
| 1735 | (save-restriction | 1735 | (save-restriction |
| 1736 | (widen) | 1736 | (widen) |
| 1737 | (while (and (not found) (< current rmail-total-messages)) | 1737 | (while (and (not found) (<= current rmail-total-messages)) |
| 1738 | (if (rmail-message-labels-p current ", ?\\(unseen\\),") | 1738 | (if (rmail-message-labels-p current ", ?\\(unseen\\),") |
| 1739 | (setq found current)) | 1739 | (setq found current)) |
| 1740 | (setq current (1+ current)))) | 1740 | (setq current (1+ current)))) |