Fix thinko.

diff --git a/v7/src/edwin/os2.scm b/v7/src/edwin/os2.scm
index 296a51d5c9f7ba6f0cfa15e9847cb6221b678fa4..4578a3ab40288d7f58fb7cf8b34811a049169abd 100644 (file)
--- a/v7/src/edwin/os2.scm
+++ b/v7/src/edwin/os2.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: os2.scm,v 1.45 1999/02/01 03:47:55 cph Exp $
+;;; $Id: os2.scm,v 1.46 1999/02/01 16:09:29 cph Exp $
 ;;;
 ;;; Copyright (c) 1994-1999 Massachusetts Institute of Technology
 ;;;
@@ -143,7 +143,7 @@
   system-mailboxes)
 
 (define (os/rmail-pop-procedure)
-  (and (os/find-program "popclient" #f (ref-variable exec-path))
+  (and (os/find-program "popclient" #f (ref-variable exec-path) #f)
        (lambda (server user-name password directory)
         (os2-pop-client server user-name password directory))))
 

diff --git a/v7/src/edwin/unix.scm b/v7/src/edwin/unix.scm
index f66f2f47575fb91369326b9490adb78809e1e56f..db7b4788df10eb4ea069d022589b68f8538cb240 100644 (file)
--- a/v7/src/edwin/unix.scm
+++ b/v7/src/edwin/unix.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: unix.scm,v 1.93 1999/02/01 03:46:43 cph Exp $
+;;; $Id: unix.scm,v 1.94 1999/02/01 16:09:25 cph Exp $
 ;;;
 ;;; Copyright (c) 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -638,7 +638,7 @@ option, instead taking -P <filename>."
   boolean?)
 
 (define (os/rmail-pop-procedure)
-  (and (os/find-program "popclient" #f (ref-variable exec-path))
+  (and (os/find-program "popclient" #f (ref-variable exec-path) #f)
        (lambda (server user-name password directory)
         (unix/pop-client server user-name password directory))))