(message-clone-locals): Clone sendmail and smtp

variables.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4251f18..3902ed8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-07-16  Jesper Harder  <harder@ifa.au.dk>
+
+       * message.el (message-clone-locals): Clone sendmail and smtp
+       variables.
+
 2004-07-12  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * rfc2047.el (rfc2047-encode-region): Fix last change.

diff --git a/lisp/message.el b/lisp/message.el
index a6f9c7f..ade497a 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6703,7 +6703,7 @@ regexp VARSTR."
   (let ((locals (save-excursion
                  (set-buffer buffer)
                  (buffer-local-variables)))
-       (regexp "^gnus\\|^nn\\|^message\\|^user-mail-address"))
+       (regexp "^gnus\\|^nn\\|^message\\|^sendmail\\|^smtp\\|^user-mail-address"))
     (mapcar
      (lambda (local)
        (when (and (consp local)