Synch with Oort Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2e22611..5445b16 100644 (file)
--- 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 (file)
--- 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))))))))