[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 4aafd19 2/4: Make `url-retrieve-synchronously' work
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] master 4aafd19 2/4: Make `url-retrieve-synchronously' work again with news: |
Date: |
Sun, 15 Feb 2015 23:13:00 +0000 |
branch: master
commit 4aafd19a0e800607e36779f423052df8b7a84f5f
Author: Ivan Shmakov <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>
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 deletions(-)
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index b9ae796..df33198 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2015-02-14 Ivan Shmakov <address@hidden>
+
+ * nntp.el (nntp-open-server): Set variables in the correct buffer
+ (bug#19583).
+
2015-02-14 Lars Ingebrigtsen <address@hidden>
* mm-decode.el (mm-head-p): New function.
diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el
index 0891dba..a86f45e 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)