From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 17 May 2000 17:04:08 +0000 (+0000)
Subject: Change FIRST-UNSEEN-MESSAGE to return #F if there are no unseen
X-Git-Tag: 20090517-FFI~3845
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=06d398487ddc44085639d472e09aefd63b5ae03a;p=mit-scheme.git

Change FIRST-UNSEEN-MESSAGE to return #F if there are no unseen
messages; previously it returned the last message.  Reexamine all of
the uses of FIRST-UNSEEN-MESSAGE and refine the logic there.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index ff03f68a9..29a7d421a 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.49 2000/05/17 17:00:54 cph Exp $
+;;; $Id: imail-top.scm,v 1.50 2000/05/17 17:04:08 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -133,6 +133,7 @@ May be called with an IMAIL folder URL as argument;
   (without-interrupts
    (lambda ()
      (buffer-put! buffer 'IMAIL-FOLDER folder)
+     (buffer-put! buffer 'IMAIL-MESSAGE message)
      (folder-put! folder 'BUFFER buffer)
      (add-event-receiver! (folder-modification-event folder)
        (lambda (folder)