From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 24 Jun 2000 01:35:41 +0000 (+0000)
Subject: Fix problem with previous change: shouldn't automatically select new
X-Git-Tag: 20090517-FFI~3450
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=263c35ad8ccfbc6abdcf1786caaa27d798c7d164;p=mit-scheme.git

Fix problem with previous change: shouldn't automatically select new
message when folder grows.  Instead, stay on current message unless
it is deleted.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 4e2a3de07..c3de8c82a 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.186 2000/06/24 01:12:26 cph Exp $
+;;; $Id: imail-top.scm,v 1.187 2000/06/24 01:35:41 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -1768,14 +1768,15 @@ Negative argument means search in reverse."
   (let ((buffer (imail-folder->buffer folder #f)))
     (if buffer
 	(begin
-	  (let ((m (selected-message #f buffer)))
+	  (let ((m (buffer-get buffer 'IMAIL-MESSAGE #f)))
 	    (cond ((not m)
 		   (select-message folder #f #t))
-		  ((message-detached? m)
+		  ((not (message-attached? m folder))
 		   (select-message folder
-				   (let ((index (message-index m)))
-				     (and (< index (folder-length folder))
-					  index))
+				   (or (first-unseen-message folder)
+				       (let ((index (message-index m)))
+					 (and (< index (folder-length folder))
+					      index)))
 				   #t))))
 	  (local-set-variable! mode-line-process
 			       (imail-mode-line-summary-string buffer)