From c8bcca809c2c3c3124780f980a2d7ab3ac9dc07f Mon Sep 17 00:00:00 2001 From: keiichi Date: Mon, 27 Dec 1999 04:20:04 +0000 Subject: [PATCH] (gnus-post-method): Do not duplicate methods. --- lisp/gnus-msg.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) 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)))) -- 1.7.10.4