X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-msg.el;h=6ee0f57c8aaa49e8e7ed8c331fa27da19725d97a;hb=446fe302d802f1656e1f1d425d3f737d13d1b2bd;hp=84de9cb6a374ad1e70f4a60fdbc40ac60342a9fe;hpb=e5f6001177f97d947977d67fb79e98950fe68912;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 84de9cb..6ee0f57 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -360,7 +360,8 @@ post using the current select method."
 This is done simply by taking the old article and adding a Supersedes
 header line with the old Message-ID."
   (interactive)
-  (let ((article (gnus-summary-article-number)))
+  (let ((article (gnus-summary-article-number))
+	(gnus-message-setup-hook '(gnus-maybe-setup-default-charset)))
     (gnus-setup-message 'reply-yank
       (gnus-summary-select-article t)
       (set-buffer gnus-original-article-buffer)
@@ -1122,6 +1123,15 @@ this is a reply."
 	  (gnus-newsgroup-name (or gnus-newsgroup-name ""))
 	  style match variable attribute value value-value)
       (make-local-variable 'gnus-message-style-insertions)
+      ;; If the group has a posting-style parameter, add it at the end with a
+      ;; regexp matching everything, to be sure it takes precedence over all
+      ;; the others.
+      (unless (eq 0 (length gnus-newsgroup-name))
+	(let ((tmp-style (gnus-group-find-parameter gnus-newsgroup-name 
+						    'posting-style t)))
+	  (and tmp-style
+	       (setq styles (append styles (list (cons ".*" tmp-style)))))
+	  ))
       ;; Go through all styles and look for matches.
       (while styles
 	(setq style (pop styles)