changeset 4454:5acc13b477c7

(sendmail-program): Try /usr/sbin/sendmail.el also.
author Richard M. Stallman <rms@gnu.org>
date Wed, 04 Aug 1993 23:19:50 +0000
parents 7f41b3648380
children 510c0b48884f
files lisp/paths.el
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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/")