From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 1 Feb 1999 16:09:29 +0000 (+0000)
Subject: Fix thinko.
X-Git-Tag: 20090517-FFI~4642
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=399fd60c08c23075e994525886f4e0a08395faad;p=mit-scheme.git

Fix thinko.
---

diff --git a/v7/src/edwin/os2.scm b/v7/src/edwin/os2.scm
index 296a51d5c..4578a3ab4 100644
--- 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 f66f2f475..db7b4788d 100644
--- 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))))