From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 1 Mar 1999 05:32:04 +0000 (+0000)
Subject: Revert previous change, which was really due to a bug in the runtime
X-Git-Tag: 20090517-FFI~4589
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=92bcc6145a83912abaadef188304a43fa7b85910;p=mit-scheme.git

Revert previous change, which was really due to a bug in the runtime
system's handling of input events.
---

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