diff lisp/gnus/nnrss.el @ 110395:5be11972ce6a

Silence byte-compiler * lisp/gnus/nnrss.el (nnrss-retrieve-headers, nnrss-request-list-newsgroups) (nnrss-retrieve-groups): * lisp/gnus/pop3.el (pop3-open-server, pop3-read-response, pop3-list) (pop3-retr, pop3-quit): Use with-current-buffer.

--- a/lisp/gnus/nnrss.el	Fri Sep 17 15:30:30 2010 +0200
+++ b/lisp/gnus/nnrss.el	Fri Sep 17 16:22:06 2010 +0200
@@ -134,8 +134,7 @@
   (setq group (nnrss-decode-group-name group))
   (nnrss-possibly-change-group group server)
   (let (e)
-    (save-excursion
-      (set-buffer nntp-server-buffer)
+    (with-current-buffer nntp-server-buffer
       (erase-buffer)
       (dolist (article articles)
 	(if (setq e (assq article nnrss-group-data))
@@ -384,8 +383,7 @@
 
 (deffoo nnrss-request-list-newsgroups (&optional server)
   (nnrss-possibly-change-group nil server)
-  (save-excursion
-    (set-buffer nntp-server-buffer)
+  (with-current-buffer nntp-server-buffer
     (erase-buffer)
     (dolist (elem nnrss-group-alist)
       (if (third elem)
@@ -396,8 +394,7 @@
   (nnrss-possibly-change-group nil server)
   (dolist (group groups)
     (nnrss-check-group group server))
-  (save-excursion
-    (set-buffer nntp-server-buffer)
+  (with-current-buffer nntp-server-buffer
     (erase-buffer)
     (dolist (group groups)
       (let ((elem (assoc group nnrss-server-data)))