summaryrefslogtreecommitdiff
path: root/lisp/gnus/gnus-int.el
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2019-09-27 02:17:14 +0200
committerLars Ingebrigtsen <larsi@gnus.org>2019-09-27 02:17:14 +0200
commit2712187032d73d6a8b6f8d6a501467a7dc1d0778 (patch)
tree044647579e0c63134111ca14457cc30ae9642904 /lisp/gnus/gnus-int.el
parentfd6f4bf648c5a4417eb591a8c54b87c7c60de154 (diff)
downloademacs-2712187032d73d6a8b6f8d6a501467a7dc1d0778.tar.gz
Fix problem with changing to correct NNTP server
* lisp/gnus/nntp.el (nntp-close-server): * lisp/gnus/nnimap.el (nnimap-close-server): * lisp/gnus/gnus-int.el (gnus-close-server): Take an optional DEFS parameter to enable switching to the correct nnoo server (bug#20319) when there's two servers with the same address.
Diffstat (limited to 'lisp/gnus/gnus-int.el')
-rw-r--r--lisp/gnus/gnus-int.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el
index b27a8a18ebf..0abbfe6720b 100644
--- a/lisp/gnus/gnus-int.el
+++ b/lisp/gnus/gnus-int.el
@@ -352,7 +352,8 @@ If it is down, start it up (again)."
(when (stringp gnus-command-method)
(setq gnus-command-method (gnus-server-to-method gnus-command-method)))
(funcall (gnus-get-function gnus-command-method 'close-server)
- (nth 1 gnus-command-method)))
+ (nth 1 gnus-command-method)
+ (nthcdr 2 gnus-command-method)))
(defun gnus-request-list (gnus-command-method)
"Request the active file from GNUS-COMMAND-METHOD."