X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-logic.el;h=9637ebfb38766d9ce052d7f47a0161317a5ab333;hb=8339220cc25db3fbdab4367d6252e596bddd9cb1;hp=e6d28ae26aa1ad815ae41951320cb0f3f12fdfe9;hpb=c9a393eeb329a99695566342a9f03b8a30000898;p=gnus

diff --git a/lisp/gnus-logic.el b/lisp/gnus-logic.el
index e6d28ae26..9637ebfb3 100644
--- a/lisp/gnus-logic.el
+++ b/lisp/gnus-logic.el
@@ -179,8 +179,7 @@
 (defun gnus-advanced-body (header match type)
   (when (string= header "all")
     (setq header "article"))
-  (save-excursion
-    (set-buffer nntp-server-buffer)
+  (with-current-buffer nntp-server-buffer
     (let* ((request-func (cond ((string= "head" header)
 				'gnus-request-head)
 			       ((string= "body" header)