projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7064878
)
Synch with Oort Gnus.
author
yamaoka
<yamaoka>
Fri, 12 Apr 2002 03:48:03 +0000
(
03:48
+0000)
committer
yamaoka
<yamaoka>
Fri, 12 Apr 2002 03:48:03 +0000
(
03:48
+0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/gnus-srvr.el
patch
|
blob
|
history
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
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))
(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))))))))
(if entry (setcdr entry info)
(setq gnus-server-alist
(nconc gnus-server-alist (list (cons server info))))))))