Mercurial > emacs
comparison lisp/gnus/message.el @ 72636:cbdca6c6638d
* message.el (message-send-mail-with-sendmail): Look for sendmail in
several common directories.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Mon, 04 Sep 2006 14:18:10 +0000 |
| parents | 6ee457a7e830 |
| children | 637b0854d9b5 c358d0861b16 |
comparison
equal
deleted
inserted
replaced
| 72635:e4183d5068ec | 72636:cbdca6c6638d |
|---|---|
| 3895 (coding-system-for-write message-send-coding-system) | 3895 (coding-system-for-write message-send-coding-system) |
| 3896 (cpr (apply | 3896 (cpr (apply |
| 3897 'call-process-region | 3897 'call-process-region |
| 3898 (append | 3898 (append |
| 3899 (list (point-min) (point-max) | 3899 (list (point-min) (point-max) |
| 3900 (if (boundp 'sendmail-program) | 3900 (cond ((boundp 'sendmail-program) |
| 3901 sendmail-program | 3901 sendmail-program) |
| 3902 "/usr/lib/sendmail") | 3902 ((file-exists-p "/usr/sbin/sendmail") |
| 3903 "/usr/sbin/sendmail") | |
| 3904 ((file-exists-p "/usr/lib/sendmail") | |
| 3905 "/usr/lib/sendmail") | |
| 3906 ((file-exists-p "/usr/ucblib/sendmail") | |
| 3907 "/usr/ucblib/sendmail") | |
| 3908 (t "fakemail")) | |
| 3903 nil errbuf nil "-oi") | 3909 nil errbuf nil "-oi") |
| 3904 ;; Always specify who from, | 3910 ;; Always specify who from, |
| 3905 ;; since some systems have broken sendmails. | 3911 ;; since some systems have broken sendmails. |
| 3906 ;; But some systems are more broken with -f, so | 3912 ;; But some systems are more broken with -f, so |
| 3907 ;; we'll let users override this. | 3913 ;; we'll let users override this. |