(defcustom gnus-server-browse-in-group-buffer nil
"Whether server browsing should take place in the group buffer.
If nil, a faster, but more primitive, buffer is used instead."
+ :version "21.4"
:group 'gnus-server-visual
:type 'boolean)
(defcustom gnus-server-offline-face 'gnus-server-offline-face
"Face name to use on OFFLINE servers."
+ :version "21.4"
:group 'gnus-server-visual
:type 'face)
;; Remove the server from `gnus-opened-servers' since
;; it has never been opened with the new `info' yet.
(gnus-opened-servers-remove (cdr entry))
- (setcdr entry info))
+ ;; Don't make a new Lisp object.
+ (setcar (cdr entry) (car info))
+ (setcdr (cdr entry) (cdr info)))
(setq gnus-server-alist
(nconc gnus-server-alist (list (cons server info))))))))