(setq defs (cons (list 'nntp-port-number (car defs)) (cdr defs))))
(unless (assq 'nntp-address defs)
(setq defs (append defs (list (list 'nntp-address server)))))
- (with-current-buffer nntp-server-buffer
- (nnoo-change-server 'nntp server defs))
+ (nnoo-change-server 'nntp server defs)
(if connectionless
t
(or (nntp-find-connection nntp-server-buffer)