X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fnntp.el;fp=lisp%2Fnntp.el;h=592b446d0db4f9acbe478f74a781499e8057a149;hp=d2c7654c151e66a9faf2cf5b7755514f90a4c322;hb=4bd325ec34ebf9a2f112044e8b0acb6891c9566e;hpb=789c31bee0f2558e907a9d174afae38fc44092d6

diff --git a/lisp/nntp.el b/lisp/nntp.el
index d2c7654c1..592b446d0 100644
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -809,7 +809,8 @@ command whose response triggered the error."
 	      (progn
 		(nntp-copy-to-buffer nntp-server-buffer
 				     (point-min) (point-max))
-		(gnus-groups-to-gnus-format method gnus-active-hashtb t))
+		(with-current-buffer nntp-server-buffer
+		  (gnus-groups-to-gnus-format method gnus-active-hashtb t)))
 	    ;; We have read active entries, so we just delete the
 	    ;; superfluous gunk.
 	    (goto-char (point-min))