From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 4 Aug 1993 23:19:50 +0000 (+0000)
Subject: (sendmail-program): Try /usr/sbin/sendmail.el also.
X-Git-Tag: emacs-19.34~11397
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9c85ef9fe1dfc4f825647670f46ad21b8501bf0a;p=emacs.git

(sendmail-program): Try /usr/sbin/sendmail.el also.
---

diff --git a/lisp/paths.el b/lisp/paths.el
index 9e1b8f8e94a..ea97278faf3 100644
--- a/lisp/paths.el
+++ b/lisp/paths.el
@@ -108,11 +108,11 @@ Will use `gnus-startup-file'-SERVER instead if exists.")
 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/")