From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 28 Feb 1999 06:22:09 +0000 (+0000)
Subject: Another patch to attempt to fix redisplay problems with long online
X-Git-Tag: 20090517-FFI~4591
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1596d0bde012981d5ac87524ee031776d6e023b0;p=mit-scheme.git

Another patch to attempt to fix redisplay problems with long online
operations.
---

diff --git a/v7/src/edwin/nntp.scm b/v7/src/edwin/nntp.scm
index 832a4c121..4e3d145e5 100644
--- a/v7/src/edwin/nntp.scm
+++ b/v7/src/edwin/nntp.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: nntp.scm,v 1.22 1999/01/02 06:11:34 cph Exp $
+;;; $Id: nntp.scm,v 1.23 1999/02/28 06:22:09 cph Exp $
 ;;;
 ;;; Copyright (c) 1995-1999 Massachusetts Institute of Technology
 ;;;
@@ -984,11 +984,13 @@
 				       replies)))
 	    ((eq? numbers numbers*) replies)
 	  (if (fix:= 0 (fix:remainder n-received 16))
-	      (message msg
-		       n-received
-		       " ("
-		       (integer-round (* n-received 100) n-to-read)
-		       "%)"))
+	      (begin
+		(message msg
+			 n-received
+			 " ("
+			 (integer-round (* n-received 100) n-to-read)
+			 "%)")
+		(update-screens! #f)))
 	  (set! n-received (fix:+ n-received 1))))
 
       (message msg)