X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-srvr.el;h=81823826b41fc59187a4fbf86a0c96f4303ca42b;hb=6ea725a663243315436a4016e896903e02b072e1;hp=eb31093acae7bbfd9ebd9a19ddae52102394d624;hpb=9e50145fa2061cd5c6f9f01744aa50c7a30a7625;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el
index eb31093..8182382 100644
--- a/lisp/gnus-srvr.el
+++ b/lisp/gnus-srvr.el
@@ -660,13 +660,15 @@ The following commands are available:
 	       (insert
 		(format "%c%7d: %s\n" 
 			(let ((level
-			       (gnus-group-level
-				(gnus-group-prefixed-name (car group) method))))
-			(cond 
-			 ((<= level gnus-level-subscribed) ? )
-			 ((<= level gnus-level-unsubscribed) ?U)
-			 ((= level gnus-level-zombie) ?Z)
-			 (t ?K)))
+			       (let ((gnus-select-method orig-select-method))
+				 (gnus-group-level
+				  (gnus-group-prefixed-name (car group) 
+							    method)))))
+			      (cond 
+			       ((<= level gnus-level-subscribed) ? )
+			       ((<= level gnus-level-unsubscribed) ?U)
+			       ((= level gnus-level-zombie) ?Z)
+			       (t ?K)))
 			(max 0 (- (1+ (cddr group)) (cadr group)))
 			(gnus-group-name-decode (car group) charset))))
 	     (list 'gnus-group (car group)))