From: yamaoka <yamaoka>
Date: Fri, 12 Apr 2002 03:48:03 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_6-02-quimby~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=04f680e4b4d4c4f346d614e7f04d76a4e379c8e1;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2e22611..5445b16 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-04-12  Daiki Ueno  <ueno@unixuser.org>
+
+	* gnus-srvr.el (gnus-server-set-info): Clear
+	`gnus-server-method-cache' when `gnus-server-alist' is changed.
+
 2002-04-11  Simon Josefsson  <jas@extundo.com>
 
 	* gnus-sum.el (gnus-summary-force-verify-and-decrypt): Force
diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el
index 9d6b543..e452861 100644
--- a/lisp/gnus-srvr.el
+++ b/lisp/gnus-srvr.el
@@ -380,7 +380,11 @@ The following commands are available:
      (concat "(gnus-server-set-info \"" server "\" '"
 	     (prin1-to-string info) ")"))
     (let* ((server (nth 1 info))
-	   (entry (assoc server gnus-server-alist)))
+	   (entry (assoc server gnus-server-alist))
+	   (cached (assoc server gnus-server-method-cache)))
+      (if cached
+	  (setq gnus-server-method-cache
+		(delq cached gnus-server-method-cache)))
       (if entry (setcdr entry info)
 	(setq gnus-server-alist
 	      (nconc gnus-server-alist (list (cons server info))))))))