* lisp/message.el (message-clone-locals): Add "user-mail-address" and

"user-full-name" to macthing pattern.
;; Commit by Hiroaki Matsui  <matu@uxd.fc.nec.co.jp>

diff --git a/lisp/message.el b/lisp/message.el
index 60e6ed9..777315b 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4632,7 +4632,8 @@ regexp varstr."
   (let ((locals (save-excursion
                  (set-buffer buffer)
                  (buffer-local-variables)))
-       (regexp "^gnus\\|^nn\\|^message"))
+       (regexp
+        "^\\(gnus\\|nn\\|message\\|user-\\(mail-address\\|full-name\\)\\)"))
     (mapcar
      (lambda (local)
        (when (and (consp local)