(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>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e5f85d0afe9974279de4dd2e9ff28462971735e8..b6b4af23518117c30b9d2b47e03f832fdc3885bc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-12-28  Simon Josefsson  <jas@extundo.com>
+
+       * mail/sendmail.el (mail-envelope-from): Fix :type.
+       (sendmail-send-it): Copy `mail-envelope-from' from calling buffer.
+
 2001-12-28  Richard M. Stallman  <rms@gnu.org>
 
        * net/ldap.el (ldap-search-internal): Handle <file://...> in results.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 384b89e6af9bb0f550c363168c7f48da8a420d9f..34e653cc83414b2c539730b8432b42e08053d5c3 100644 (file)
--- 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)