From 4bde6f833256381705dbf81233e2ff5bf1bc9a8e Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 27 Feb 2004 09:14:00 +0000 Subject: [PATCH] Synch to No Gnus 200402270913. --- lisp/ChangeLog | 3 +++ lisp/gnus-msg.el | 9 +++++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 75a49b9..bad3364 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2004-02-27 Katsumi Yamaoka + * gnus-msg.el (gnus-setup-message): Ignore an article copy while + parsing gnus-posting-styles when the message is not for replying. + * dgnushack.el: Autoload sgml-mode for XEmacs. * nnrss.el (nnrss-opml-export): Use diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index df10587..e6918bb 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -434,8 +434,13 @@ Thank you for your help in stamping out bugs. ;; added an optional argument to `gnus-configure-posting-styles' to ;; make sure that the correct value for the group name is used. -- drv (add-hook 'message-mode-hook - (lambda () - (gnus-configure-posting-styles ,group))) + (if (memq ,config '(reply-yank reply)) + (lambda () + (gnus-configure-posting-styles ,group)) + (lambda () + ;; There may be an old " *gnus article copy*" buffer. + (let (gnus-article-copy) + (gnus-configure-posting-styles ,group))))) (gnus-pull ',(intern gnus-draft-meta-information-header) message-required-headers) (when (and ,group -- 1.7.10.4