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 e74be91e22db8b7da7eab3e8d583e6dc60ff26f9..6e1908acf22d910210cc228fba5c8c256ff40c6a 100644 (file)
--- 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 aa24e3a17a4cd8f46c9d0deaf631287fa247ef8d..2da8323cae61d0c7d24e55571f6a5572d2cb6e7d 100644 (file)
--- 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)