From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 4 Jul 2000 05:12:30 +0000 (+0000)
Subject: Fix infinite loop that occurs when expunging all messages in folder.
X-Git-Tag: 20090517-FFI~3397
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c23e849d3ad1c3b407a58e2da4218c6aa6ad6721;p=mit-scheme.git

Fix infinite loop that occurs when expunging all messages in folder.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 5a54c134c..f68040b9a 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.205 2000/06/30 19:12:15 cph Exp $
+;;; $Id: imail-top.scm,v 1.206 2000/07/04 05:12:30 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -1863,7 +1863,9 @@ Negative argument means search in reverse."
 	(begin
 	  (let ((m (buffer-get buffer 'IMAIL-MESSAGE #f)))
 	    (cond ((not m)
-		   (select-message folder #f #t))
+		   (let ((m (last-message folder)))
+		     (if m
+			 (select-message folder m #t))))
 		  ((not (message-attached? m folder))
 		   (select-message folder
 				   (or (first-unseen-message folder)