Call OS/FIND-PROGRAM explicitly in one place where it is needed.

diff --git a/v7/src/edwin/sendmail.scm b/v7/src/edwin/sendmail.scm
index 617c2221ce04cae1e5fba19e3715a2d47b0a25d6..a4bc0bf43207ac5bc3f2d13c713fe43b98d6f87f 100644 (file)
--- a/v7/src/edwin/sendmail.scm
+++ b/v7/src/edwin/sendmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: sendmail.scm,v 1.22 1995/04/09 23:06:17 cph Exp $
+;;;    $Id: sendmail.scm,v 1.23 1995/04/10 20:21:31 cph Exp $
 ;;;
 ;;;    Copyright (c) 1991-95 Massachusetts Institute of Technology
 ;;;
@@ -519,7 +519,7 @@ Numeric argument means justify as well."
            ;; user as soon as possible.
            (let ((process
                   (start-pipe-subprocess
-                   program
+                   (os/find-program program #f)
                    (vector (file-namestring program)
                            "-oi" "-t"
                            (string-append "-f" user-name)