X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-group.el;h=5fb04d8592972577aeaefe66afa1dbecff0fa4b0;hb=26c1b062894eb187922a9cd6890a7cc5c2927c01;hp=a62aba217aee74b93195f254abd801fb6c0aba15;hpb=a28946c5feb1330711b4916b8d1b943c627dce9f;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index a62aba2..5fb04d8 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -3957,10 +3957,8 @@ The hook `gnus-suspend-gnus-hook' is called before actually suspending."
   (let ((group-buf (get-buffer gnus-group-buffer)))
     (mapcar (lambda (buf)
 	      (unless (or (member buf (list group-buf gnus-dribble-buffer))
-			  (progn
-			    (save-excursion
-			      (set-buffer buf)
-			      (eq major-mode 'message-mode))))
+			  (with-current-buffer buf
+			    (eq major-mode 'message-mode)))
 		(gnus-kill-buffer buf)))
 	    (gnus-buffers))
     (setq gnus-backlog-articles nil)