From: yamaoka <yamaoka>
Date: Mon, 14 Apr 2003 22:14:54 +0000 (+0000)
Subject: Synch to Oort Gnus 200304142212.
X-Git-Tag: t-gnus-6_15_20-00-quimby~28
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1805e7894fe449e797772d136914965587d952e1;p=elisp%2Fgnus.git-

Synch to Oort Gnus 200304142212.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1f0d5cd..9d4f05a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+2003-04-14  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* gnus-msg.el (gnus-summary-news-other-window): Use delq instead
+	of remove which is a cl run-time function in Emacs 20.
+
+2003-04-14  Jesper Harder  <harder@ifa.au.dk>
+
+	* gnus-msg.el (gnus-summary-news-other-window): Make a buffer
+	local copy of gnus-discouraged-post-methods with the current
+	method removed.
+
 2003-04-14  Simon Josefsson  <jas@extundo.com>
 
 	* mailcap.el (mailcap-mime-data): Add application/pgp-keys.
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 3f3eca3..d0306f5 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -720,7 +720,12 @@ network.  The corresponding backend must have a 'request-post method."
 		  gnus-newsgroup-name))
 	  ;; #### see comment in gnus-setup-message -- drv
 	  (gnus-setup-message 'message
-	    (message-news (gnus-group-real-name gnus-newsgroup-name))))
+	    (progn
+	      (message-news (gnus-group-real-name gnus-newsgroup-name))
+	      (set (make-local-variable 'gnus-discouraged-post-methods)
+		   (delq
+		    (car (gnus-find-method-for-group gnus-newsgroup-name))
+		    gnus-discouraged-post-methods)))))
       (save-excursion
 	(set-buffer buffer)
 	(setq gnus-newsgroup-name group)))))