From 78a147fda022ac79f5398b254c6f713bac89feae Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 16 Jun 2004 08:55:02 +0000 Subject: [PATCH] Synch to No Gnus 200406160854. --- lisp/ChangeLog | 6 ++++++ lisp/gnus-srvr.el | 11 +++++++++-- 2 files changed, 15 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1608795..e44e8a9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2004-06-16 Katsumi Yamaoka + + * gnus-srvr.el (gnus-server-set-info): Remove the server from + gnus-opened-servers since it has never been opened with the new + configuration yet. + 2004-06-15 Katsumi Yamaoka * nnheader.el (nnheader-nov-read-message-id): Pass the optional diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el index 2bd5c2a..240ff3b 100644 --- a/lisp/gnus-srvr.el +++ b/lisp/gnus-srvr.el @@ -1,5 +1,5 @@ ;;; gnus-srvr.el --- virtual server support for Gnus -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen @@ -391,7 +391,14 @@ The following commands are available: (if cached (setq gnus-server-method-cache (delq cached gnus-server-method-cache))) - (if entry (setcdr entry info) + (if entry + (progn + ;; Remove the server from `gnus-opened-servers' since + ;; it has never been opened with the new `info' yet. + (setq gnus-opened-servers + (delq (assoc (cdr entry) gnus-opened-servers) + gnus-opened-servers)) + (setcdr entry info)) (setq gnus-server-alist (nconc gnus-server-alist (list (cons server info)))))))) -- 1.7.10.4