From cf7dac3abfcfe8d4404bcaaa475e76380507995f Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 28 May 2000 15:29:22 +0000
Subject: [PATCH] Tweak conditions under which literal progress hook is called.

---
 v7/src/imail/imap-response.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/v7/src/imail/imap-response.scm b/v7/src/imail/imap-response.scm
index 170d40e09..7ac971951 100644
--- a/v7/src/imail/imap-response.scm
+++ b/v7/src/imail/imap-response.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imap-response.scm,v 1.27 2000/05/28 15:25:37 cph Exp $
+;;; $Id: imap-response.scm,v 1.28 2000/05/28 15:29:22 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -291,12 +291,12 @@
 				    port)))
 	      (if (fix:= m 0)
 		  (error "Premature EOF:" port))
-	      (let ((start* (fix:+ start m)))
+	      (let ((start (fix:+ start m)))
 		(if (and *read-literal-progress-hook*
-			 (not (and (fix:= start 0)
-				   (fix:>= start* n))))
-		    (*read-literal-progress-hook* start* n))
-		(loop start*)))))
+			 (fix:> start 0)
+			 (fix:<= start n))
+		    (*read-literal-progress-hook* start n))
+		(loop start)))))
       (if imap-transcript-port
 	  (write-string s imap-transcript-port))
       (let ((n* (translate-line-endings!:network->scheme string 0 n)))
-- 
2.25.1