From 187755f0157928c66bdb83f7362b256058e4a43d Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 28 Dec 2001 12:27:49 +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 6a9879cd275..a14b2d20dd1 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 c7a2edc4ec9..614732811f8 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 @@ -805,7 +806,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