From a258e6fd7a68dbd95d6a1c9ff3e3adf22dda65fc Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 5 Jul 2000 18:07:04 +0000
Subject: [PATCH] In M-x imail-get-new-mail (and M-x imail), move to first
 unseen message even if the server probe reveals no new mail.  This is
 important because the new mail is usually fetched by the background probe
 thread.

---
 v7/src/imail/imail-top.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index b5e7d4805..38b2705b0 100644
--- a/v7/src/imail/imail-top.scm
+++ b/v7/src/imail/imail-top.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-top.scm,v 1.207 2000/07/05 01:04:40 cph Exp $
+;;; $Id: imail-top.scm,v 1.208 2000/07/05 18:07:04 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -1422,10 +1422,10 @@ A prefix argument says to prompt for a URL and append all messages
 	(let* ((folder (selected-folder))
 	       (count (folder-modification-count folder)))
 	  (probe-folder folder)
-	  (cond ((<= (folder-modification-count folder) count)
-		 (message "No changes to mail folder"))
-		((navigator/first-unseen-message folder)
+	  (cond ((navigator/first-unseen-message folder)
 		 => (lambda (unseen) (select-message folder unseen)))
+		((<= (folder-modification-count folder) count)
+		 (message "No changes to mail folder"))
 		((selected-message #f)
 		 (message "No unseen messages"))
 		((navigator/last-message folder)
-- 
2.25.1