# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 744506390 0
# Node ID 5acc13b477c7b2f0f3874daebd834c7ef6ae4ab0
# Parent  7f41b3648380d00f7580a41ee4fe42f2f896794a
(sendmail-program): Try /usr/sbin/sendmail.el also.

diff -r 7f41b3648380 -r 5acc13b477c7 lisp/paths.el
--- a/lisp/paths.el	Wed Aug 04 23:02:10 1993 +0000
+++ b/lisp/paths.el	Wed Aug 04 23:19:50 1993 +0000
@@ -108,11 +108,11 @@
 Its name should end with a slash.")
 
 (defconst sendmail-program
-  (if (file-exists-p "/usr/lib/sendmail")
-      "/usr/lib/sendmail"
-    (if (file-exists-p "/usr/ucblib/sendmail")
-	"/usr/ucblib/sendmail"
-      "fakemail"))			;In ../etc, to interface to /bin/mail.
+  (cond
+    ((file-exists-p "/usr/lib/sendmail") "/usr/lib/sendmail")
+    ((file-exists-p "/usr/sbin/sendmail") "/usr/sbin/sendmail")
+    ((file-exists-p "/usr/ucblib/sendmail") "/usr/ucblib/sendmail")
+    (t "fakemail"))			;In ../etc, to interface to /bin/mail.
   "Program used to send messages.")
 
 (defconst term-file-prefix (if (eq system-type 'vax-vms) "[.term]" "term/")