From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 17 May 2000 18:37:29 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~3835
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f5ddc6bba72fe0c9ae77c65958b60767f1615265;p=mit-scheme.git

Fix typo.
---

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index f3085a5c8..b2f9dd188 100644
--- a/v7/src/imail/imail-core.scm
+++ b/v7/src/imail/imail-core.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-core.scm,v 1.65 2000/05/17 17:30:54 cph Exp $
+;;; $Id: imail-core.scm,v 1.66 2000/05/17 18:37:29 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -388,11 +388,11 @@
 (define (first-unseen-message folder)
   (let ((end (folder-length folder)))
     (let loop ((start (first-unseen-message-index folder)))
-      (if (< start end)
-	  (let ((message (get-message folder start)))
-	    (if (message-seen? message)
-		(loop (+ start 1))
-		message))))))
+      (and (< start end)
+	   (let ((message (get-message folder start)))
+	     (if (message-seen? message)
+		 (loop (+ start 1))
+		 message))))))
 
 (define-generic first-unseen-message-index (folder))
 (define-method first-unseen-message-index ((folder <folder>))