diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2006-09-04 14:18:10 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2006-09-04 14:18:10 +0000 |
| commit | de4fbbe4ff7be8911738ba397086ff64487713e4 (patch) | |
| tree | 7462c9c72daf0cd149559932dc85b81605b7e1a3 /lisp/gnus/message.el | |
| parent | 82695714e8bf5c42f771dcb3e379944647012331 (diff) | |
| download | emacs-de4fbbe4ff7be8911738ba397086ff64487713e4.tar.gz | |
* message.el (message-send-mail-with-sendmail): Look for sendmail in
several common directories.
Diffstat (limited to 'lisp/gnus/message.el')
| -rw-r--r-- | lisp/gnus/message.el | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 4ee87933967..f8d3a32a515 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -3897,9 +3897,15 @@ If you always want Gnus to send messages in one piece, set '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 errbuf nil "-oi") ;; Always specify who from, ;; since some systems have broken sendmails. |