From: keiichi <keiichi>
Date: Mon, 27 Dec 1999 04:20:04 +0000 (+0000)
Subject: (gnus-post-method): Do not duplicate methods.
X-Git-Tag: nana-gnus-6_13_12~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c8bcca809c2c3c3124780f980a2d7ab3ac9dc07f;p=elisp%2Fgnus.git-

(gnus-post-method): Do not duplicate methods.
---

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index da44b54..a64c24b 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -544,8 +544,9 @@ If SILENT, don't prompt the user."
 	;; Weed out all mail methods.
 	(while methods
 	  (setq method (gnus-server-get-method "" (pop methods)))
-	  (when (or (gnus-method-option-p method 'post)
-		    (gnus-method-option-p method 'post-mail))
+	  (when (and (or (gnus-method-option-p method 'post)
+			 (gnus-method-option-p method 'post-mail))
+		     (not (member method post-methods)))
 	    (push method post-methods)))
 	;; Create a name-method alist.
 	(setq method-alist
@@ -568,8 +569,9 @@ If SILENT, don't prompt the user."
      ;; Override normal method.
      ((and (eq gnus-post-method 'current)
 	   (not (eq (car group-method) 'nndraft))
+	   (gnus-get-function group-method 'request-post t)
 	   (not arg))
-      group-method) 
+      group-method)
      ((and gnus-post-method
 	   (not (eq gnus-post-method 'current)))
       gnus-post-method)
@@ -679,9 +681,7 @@ If FULL-HEADERS (the prefix), include full headers when forwarding."
     (gnus-summary-select-article)
     (let ((charset default-mime-charset))
       (set-buffer gnus-original-article-buffer)
-      (make-local-variable 'default-mime-charset)
-      (setq default-mime-charset charset)
-      )
+      (set (make-local-variable 'default-mime-charset) charset))
     (let ((message-included-forward-headers
 	   (if full-headers "" message-included-forward-headers)))
       (message-forward post))))