Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 72634:66b3ce03eb24 | 72635:e4183d5068ec |
|---|---|
| 1338 Feeds the buffer to it. Probably has some flaws for Resent-* and other | 1338 Feeds the buffer to it. Probably has some flaws for Resent-* and other |
| 1339 complicated cases." | 1339 complicated cases." |
| 1340 (set-buffer prepped) | 1340 (set-buffer prepped) |
| 1341 (apply 'call-process-region | 1341 (apply 'call-process-region |
| 1342 (append (list (point-min) (point-max) | 1342 (append (list (point-min) (point-max) |
| 1343 (if (boundp 'sendmail-program) sendmail-program "/usr/lib/sendmail") | 1343 (cond ((boundp 'sendmail-program) |
| 1344 sendmail-program) | |
| 1345 ((file-exists-p "/usr/sbin/sendmail") | |
| 1346 "/usr/sbin/sendmail") | |
| 1347 ((file-exists-p "/usr/lib/sendmail") | |
| 1348 "/usr/lib/sendmail") | |
| 1349 ((file-exists-p "/usr/ucblib/sendmail") | |
| 1350 "/usr/ucblib/sendmail") | |
| 1351 (t "fakemail")) | |
| 1344 nil errors-to nil "-oi" "-t") | 1352 nil errors-to nil "-oi" "-t") |
| 1345 ;; provide envelope "from" to sendmail; results will vary | 1353 ;; provide envelope "from" to sendmail; results will vary |
| 1346 (list "-f" user-mail-address) | 1354 (list "-f" user-mail-address) |
| 1347 ;; These mean "report errors by mail" and "deliver in background". | 1355 ;; These mean "report errors by mail" and "deliver in background". |
| 1348 (if (null mail-interactive) '("-oem" "-odb"))))) | 1356 (if (null mail-interactive) '("-oem" "-odb"))))) |