From c23e849d3ad1c3b407a58e2da4218c6aa6ad6721 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 4 Jul 2000 05:12:30 +0000
Subject: [PATCH] Fix infinite loop that occurs when expunging all messages in
 folder.

---
 v7/src/imail/imail-top.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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)
-- 
2.25.1