From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 11 May 1996 08:51:31 +0000 (+0000)
Subject: When doing certain extended server interactions, do redisplay
X-Git-Tag: 20090517-FFI~5531
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a63323d2c64695d924e82fb17610d672b2cd277f;p=mit-scheme.git

When doing certain extended server interactions, do redisplay
periodically to show changes to the user.
---

diff --git a/v7/src/edwin/snr.scm b/v7/src/edwin/snr.scm
index 2cd078b4f..a2cd9d58c 100644
--- a/v7/src/edwin/snr.scm
+++ b/v7/src/edwin/snr.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: snr.scm,v 1.6 1996/05/06 00:09:30 cph Exp $
+;;;	$Id: snr.scm,v 1.7 1996/05/11 08:51:31 cph Exp $
 ;;;
 ;;;	Copyright (c) 1995-96 Massachusetts Institute of Technology
 ;;;
@@ -739,7 +739,9 @@ With negative argument -N, show the N oldest unread articles."
       (for-each-vector-element (news-server-buffer:groups buffer)
 	(lambda (group)
 	  (if (news-group:subscribed? group)
-	      (read-news-group-headers buffer group)))))))
+	      (begin
+		(read-news-group-headers buffer group)
+		(update-screens! #f))))))))
 
 (define-command news-read-group-headers
   "Read the unread headers for the News group indicated by point.
@@ -766,7 +768,8 @@ This command has no effect in the all-groups buffer."
       (if (news-server-buffer? buffer)
 	  (for-each-vector-element (news-server-buffer:groups buffer)
 	    (lambda (group)
-	      (refresh-news-group buffer group)))))))
+	      (refresh-news-group buffer group)
+	      (update-screens! #f)))))))
 
 (define-command news-refresh-group
   "Update the unread-message estimate for the News group indicated by point.