# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 680300624 0
# Node ID 52cd078baf009e2e7b34df0b04641da0b4cb831c
# Parent  8633e6928accffb6a8b8b5a861f471c8419f1e96
*** empty log message ***

diff -r 8633e6928acc -r 52cd078baf00 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Tue Jul 23 20:13:12 1991 +0000
+++ b/lisp/mail/rmail.el	Tue Jul 23 20:23:44 1991 +0000
@@ -1158,9 +1158,9 @@
     (save-restriction
       (widen)
       (while (and (not found) (< current rmail-total-messages))
-	(setq current (1+ current))
 	(if (rmail-message-labels-p current ", ?\\(unseen\\),")
-	    (setq found current))))
+	    (setq found current))
+	(setq current (1+ current))))
     (if found
 	(rmail-show-message found))))