2001-02-17 13:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-msg.el (gnus-configure-posting-styles): Match header in
	gnus-article-copy.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4b4ec69..54b70d8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-02-17 13:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-msg.el (gnus-configure-posting-styles): Match header in
+       gnus-article-copy.
+
 2001-02-16 22:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * message.el (message-do-send-housekeeping): Rename to a better

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index fc3bc6e..1a30067 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1280,9 +1280,11 @@ this is a reply."
                ;; Regexp string match on the group name.
                (string-match match group))
               ((eq match 'header)
-               (let ((header (message-fetch-field (pop style))))
-                 (and header
-                      (string-match (pop style) header))))
+               (and (gnus-buffer-live-p gnus-article-copy)
+                    (with-current-buffer gnus-article-copy
+                      (let ((header (message-fetch-field (pop style))))
+                        (and header
+                             (string-match (pop style) header))))))
               ((or (symbolp match)
                    (gnus-functionp match))
                (cond