From 31bc27f60779c4d4a56d4c88908b8c18415db760 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 28 Dec 2001 12:20:11 +0000 Subject: [PATCH] (mail-envelope-from): Fix :type. Suggested by "Golubev I. N." . (sendmail-send-it): Copy `mail-envelope-from' from calling buffer. From "Golubev I. N." . --- lisp/ChangeLog | 5 +++++ lisp/mail/sendmail.el | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e5f85d0afe9..b6b4af23518 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-12-28 Simon Josefsson + + * mail/sendmail.el (mail-envelope-from): Fix :type. + (sendmail-send-it): Copy `mail-envelope-from' from calling buffer. + 2001-12-28 Richard M. Stallman * net/ldap.el (ldap-search-internal): Handle in results. diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 384b89e6af9..34e653cc834 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -81,7 +81,8 @@ is a privileged operation." If this is nil while `mail-specify-envelope-from' is non-nil, the content of `user-mail-address' is used." :version "21.1" - :type 'boolean + :type '(choice (const :tag "Use `user-mail-address'" nil) + string) :group 'sendmail) ;;;###autoload @@ -796,7 +797,8 @@ external program defined by `sendmail-program'." (mailbuf (current-buffer)) (program (if (boundp 'sendmail-program) sendmail-program - "/usr/lib/sendmail"))) + "/usr/lib/sendmail")) + (mail-envelope-from mail-envelope-from)) (unwind-protect (save-excursion (set-buffer tembuf) -- 2.39.2