81 |
If this is nil while `mail-specify-envelope-from' is non-nil, the |
If this is nil while `mail-specify-envelope-from' is non-nil, the |
82 |
content of `user-mail-address' is used." |
content of `user-mail-address' is used." |
83 |
:version "21.1" |
:version "21.1" |
84 |
:type 'boolean |
:type '(choice (const :tag "Use `user-mail-address'" nil) |
85 |
|
string) |
86 |
:group 'sendmail) |
:group 'sendmail) |
87 |
|
|
88 |
;;;###autoload |
;;;###autoload |
797 |
(mailbuf (current-buffer)) |
(mailbuf (current-buffer)) |
798 |
(program (if (boundp 'sendmail-program) |
(program (if (boundp 'sendmail-program) |
799 |
sendmail-program |
sendmail-program |
800 |
"/usr/lib/sendmail"))) |
"/usr/lib/sendmail")) |
801 |
|
(mail-envelope-from mail-envelope-from)) |
802 |
(unwind-protect |
(unwind-protect |
803 |
(save-excursion |
(save-excursion |
804 |
(set-buffer tembuf) |
(set-buffer tembuf) |