From f5ddc6bba72fe0c9ae77c65958b60767f1615265 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 17 May 2000 18:37:29 +0000
Subject: [PATCH] Fix typo.
---
v7/src/imail/imail-core.scm | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
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>))
--
2.25.1