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 |
806 |
(mailbuf (current-buffer)) |
(mailbuf (current-buffer)) |
807 |
(program (if (boundp 'sendmail-program) |
(program (if (boundp 'sendmail-program) |
808 |
sendmail-program |
sendmail-program |
809 |
"/usr/lib/sendmail"))) |
"/usr/lib/sendmail")) |
810 |
|
(mail-envelope-from mail-envelope-from)) |
811 |
(unwind-protect |
(unwind-protect |
812 |
(save-excursion |
(save-excursion |
813 |
(set-buffer tembuf) |
(set-buffer tembuf) |