From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 4 Jun 2001 19:25:11 +0000 (+0000)
Subject: Select first unseen message when invoking M-x imail on a folder that
X-Git-Tag: 20090517-FFI~2724
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=67ddb7762259025d5a1cdd27d3414d20470b8bda;p=mit-scheme.git

Select first unseen message when invoking M-x imail on a folder that
is already online.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index a291c5a29..eee25cbc8 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.265 2001/06/04 17:42:30 cph Exp $
+;;; $Id: imail-top.scm,v 1.266 2001/06/04 19:25:09 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -240,7 +240,10 @@ regardless of the folder type."
 	    (begin
 	      (select-buffer buffer)
 	      (if (eq? (folder-connection-status folder) 'OFFLINE)
-		  ((ref-command imail-get-new-mail) #f)))
+		  ((ref-command imail-get-new-mail) #f)
+		  (let ((message (first-unseen-message folder)))
+		    (if message
+			(select-message folder message #t)))))
 	    (begin
 	      (let ((buffer
 		     (new-buffer
diff --git a/v7/src/imail/todo.txt b/v7/src/imail/todo.txt
index 1b5a7cd7f..ee0c564b1 100644
--- a/v7/src/imail/todo.txt
+++ b/v7/src/imail/todo.txt
@@ -1,5 +1,5 @@
 IMAIL To-Do List
-$Id: todo.txt,v 1.129 2001/06/04 17:40:38 cph Exp $
+$Id: todo.txt,v 1.130 2001/06/04 19:25:11 cph Exp $
 
 Bug fixes
 ---------
@@ -7,15 +7,9 @@ Bug fixes
 * When browser pops up a window of URLs that it is operating on, the
   strings shown should be relative to the container being browsed.
 
-* M-x imail should select the next unseen message when choosing an
-  existing buffer.
-
-* Various changes to Dired that might affect our browsers: RET selects
-  the current object (preferred to f).  D command does immediate
-  delete.  t command means toggle sense of marked lines (*t also does
-  this, perhaps is preferable).  Name of command bound to x is now
-  dired-do-flagged-delete.  S and H do links.  P prints file.  ^ runs
-  dired on parent directory of this directory.
+* Various changes to Dired that might affect our browsers: t command
+  means toggle sense of marked lines (*t also does this, perhaps is
+  preferable).  S and H do links.  P prints file.
 
 * The PROBE-FOLDER thread is left running even when connection to
   server is severed.  In fact it is running as long as the buffer is