From 04f680e4b4d4c4f346d614e7f04d76a4e379c8e1 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 12 Apr 2002 03:48:03 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 5 +++++ lisp/gnus-srvr.el | 6 +++++- 2 files changed, 10 insertions(+), 1 deletion(-) 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 + + * gnus-srvr.el (gnus-server-set-info): Clear + `gnus-server-method-cache' when `gnus-server-alist' is changed. + 2002-04-11 Simon Josefsson * 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)))))))) -- 1.7.10.4