Mercurial > emacs
diff lisp/mail/feedmail.el @ 72635:e4183d5068ec
* mail/feedmail.el (feedmail-buffer-to-sendmail): Look for
sendmail in several common directories.
* mail/sendmail.el (sendmail-program): Moved here from pathe.el.
* paths.el (sendmail-program): Removed.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Mon, 04 Sep 2006 14:17:12 +0000 |
| parents | 857eb702a3f1 |
| children | d8a07f1f5442 c358d0861b16 |
line wrap: on
line diff
--- a/lisp/mail/feedmail.el Mon Sep 04 13:36:59 2006 +0000 +++ b/lisp/mail/feedmail.el Mon Sep 04 14:17:12 2006 +0000 @@ -1340,7 +1340,15 @@ (set-buffer prepped) (apply 'call-process-region (append (list (point-min) (point-max) - (if (boundp 'sendmail-program) sendmail-program "/usr/lib/sendmail") + (cond ((boundp 'sendmail-program) + sendmail-program) + ((file-exists-p "/usr/sbin/sendmail") + "/usr/sbin/sendmail") + ((file-exists-p "/usr/lib/sendmail") + "/usr/lib/sendmail") + ((file-exists-p "/usr/ucblib/sendmail") + "/usr/ucblib/sendmail") + (t "fakemail")) nil errors-to nil "-oi" "-t") ;; provide envelope "from" to sendmail; results will vary (list "-f" user-mail-address)