From: hayashi <hayashi>
Date: Fri, 21 Aug 1998 02:50:55 +0000 (+0000)
Subject: copy two more local variables in message-clone-locals
X-Git-Tag: gnus-6_8_15~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=40721b4a7843b3c76d228b36383ef7c288c6601d;p=elisp%2Fgnus.git-

copy two more local variables in message-clone-locals
---

diff --git a/lisp/message.el b/lisp/message.el
index 1e49daa..b9113bb 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3406,7 +3406,6 @@ Headers already prepared in the buffer are not modified."
   (when actions
     (setq message-send-actions actions))
   (setq message-reply-buffer replybuffer)
-  (goto-char (point-min))
   ;; Insert all the headers.
   (mail-header-format
    (let ((h headers)
@@ -3421,6 +3420,7 @@ Headers already prepared in the buffer are not modified."
   (when message-default-headers
     (insert message-default-headers)
     (or (bolp) (insert ?\n)))
+  (goto-char (point-max))
   (put-text-property
    (point)
    (progn
@@ -4216,7 +4216,7 @@ regexp varstr."
   (let ((locals (save-excursion
 		  (set-buffer buffer)
 		  (buffer-local-variables)))
-	(regexp "^gnus\\|^nn\\|^message"))
+	(regexp "^gnus\\|^nn\\|^message\\|user-mail-address\\|user-full-name"))
     (mapcar
      (lambda (local)
        (when (and (consp local)