From 4aafd19a0e800607e36779f423052df8b7a84f5f Mon Sep 17 00:00:00 2001 From: Ivan Shmakov Date: Sun, 15 Feb 2015 23:08:03 +0000 Subject: [PATCH] Make `url-retrieve-synchronously' work again with news: * lisp/gnus/nntp.el (nntp-open-server): Set variables in the correct buffer (bug#19583). --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/nntp.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index b9ae796782d..df331984865 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2015-02-14 Ivan Shmakov + + * nntp.el (nntp-open-server): Set variables in the correct buffer + (bug#19583). + 2015-02-14 Lars Ingebrigtsen * mm-decode.el (mm-head-p): New function. diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el index 0891dba0387..a86f45e8bf3 100644 --- a/lisp/gnus/nntp.el +++ b/lisp/gnus/nntp.el @@ -1066,7 +1066,8 @@ command whose response triggered the error." (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))))) - (nnoo-change-server 'nntp server defs) + (with-current-buffer nntp-server-buffer + (nnoo-change-server 'nntp server defs)) (if connectionless t (or (nntp-find-connection nntp-server-buffer) -- 2.39.2