From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 12 May 1996 07:14:21 +0000 (+0000)
Subject: Change popclient code to use new indicator to allow redisplay during
X-Git-Tag: 20090517-FFI~5527
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=99b52c82e2bb728a51c1b71e10217a674604e24d;p=mit-scheme.git

Change popclient code to use new indicator to allow redisplay during
synchronous-subprocess execution.
---

diff --git a/v7/src/edwin/os2.scm b/v7/src/edwin/os2.scm
index e74be91e2..6e1908acf 100644
--- a/v7/src/edwin/os2.scm
+++ b/v7/src/edwin/os2.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: os2.scm,v 1.31 1996/05/11 08:46:35 cph Exp $
+;;;	$Id: os2.scm,v 1.32 1996/05/12 07:14:12 cph Exp $
 ;;;
 ;;;	Copyright (c) 1994-96 Massachusetts Institute of Technology
 ;;;
@@ -344,7 +344,8 @@ filename suffix \".gz\"."
 			     "-p" (os2-pop-client-password password)
 			     "-o" target
 			     server)))
-		  (apply run-synchronous-process #f (buffer-end buffer) #f #f
+		  (apply run-synchronous-process
+			 #f (cons (buffer-end buffer) #t) #f #f
 			 "popclient"
 			 "-3"
 			 (if (ref-variable rmail-pop-delete)
diff --git a/v7/src/edwin/unix.scm b/v7/src/edwin/unix.scm
index aa24e3a17..2da8323ca 100644
--- a/v7/src/edwin/unix.scm
+++ b/v7/src/edwin/unix.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: unix.scm,v 1.70 1996/05/11 08:46:52 cph Exp $
+;;;	$Id: unix.scm,v 1.71 1996/05/12 07:14:21 cph Exp $
 ;;;
 ;;;	Copyright (c) 1989-96 Massachusetts Institute of Technology
 ;;;
@@ -724,7 +724,7 @@ option, instead taking -P <filename>."
 				   password-options
 				   (list "-o" target server))))
 		      (apply run-synchronous-process
-			     #f (buffer-end buffer) #f #f
+			     #f (cons (buffer-end buffer) #t) #f #f
 			     "popclient"
 			     "-3"
 			     (if (ref-variable rmail-pop-delete)