Mercurial > emacs

changeset 42370:fd0376bcb507

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-envelope-from): Fix :type. Suggested by "Golubev I. N." <gin@mo.msk.ru>. (sendmail-send-it): Copy `mail-envelope-from' from calling buffer. From "Golubev I. N." <gin@mo.msk.ru>.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 28 Dec 2001 12:17:37 +0000
parents 8c74ef3ab03f
children c64a96f6a814
files lisp/mail/sendmail.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/sendmail.el	Fri Dec 28 06:29:37 2001 +0000
+++ b/lisp/mail/sendmail.el	Fri Dec 28 12:17:37 2001 +0000
@@ -81,7 +81,8 @@
 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 @@
 	(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)