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

Synch to Oort Gnus 200304142220.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9d4f05a..50373f4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,8 @@
 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.
+	* gnus-msg.el (gnus-summary-news-other-window): Use delq and
+	copy-sequence instead of remove which is a cl run-time function in
+	Emacs 20.
 
 2003-04-14  Jesper Harder  <harder@ifa.au.dk>
 
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index d0306f5..609d642 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -725,7 +725,7 @@ network.  The corresponding backend must have a 'request-post method."
 	      (set (make-local-variable 'gnus-discouraged-post-methods)
 		   (delq
 		    (car (gnus-find-method-for-group gnus-newsgroup-name))
-		    gnus-discouraged-post-methods)))))
+		    (copy-sequence gnus-discouraged-post-methods))))))
       (save-excursion
 	(set-buffer buffer)
 	(setq gnus-newsgroup-name group)))))