From: yamaoka <yamaoka>
Date: Tue, 17 Nov 1998 10:31:57 +0000 (+0000)
Subject: * lisp/message.el (message-clone-locals): Add "user-mail-address" and
X-Git-Tag: pgnus-ichikawa-199811302358~41
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9d1b6122fc44b16bc4590baf99b40d393e729c94;p=elisp%2Fgnus.git-

* 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
--- 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)