From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 28 May 2000 15:29:22 +0000 (+0000)
Subject: Tweak conditions under which literal progress hook is called.
X-Git-Tag: 20090517-FFI~3666
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cf7dac3abfcfe8d4404bcaaa475e76380507995f;p=mit-scheme.git

Tweak conditions under which literal progress hook is called.
---

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