--- ../../gnus/lisp/gnus-srvr.el	Fri Dec 28 00:42:06 2001
+++ gnus-srvr.el	Thu Dec 27 23:23:12 2001
@@ -726,7 +726,9 @@
 	      (list
 	       (format
 		"Gnus: %%b {%s:%s}" (car method) (cadr method))))
-	(let ((buffer-read-only nil) charset)
+	(let ((buffer-read-only nil) charset
+	      (prefix (let ((gnus-select-method orig-select-method))
+			(gnus-group-prefixed-name "" method))))
 	  (while groups
 	    (setq group (car groups))
 	    (setq charset (gnus-group-name-charset method (car group)))
@@ -735,11 +737,7 @@
 	     (prog1 (1+ (point))
 	       (insert
 		(format "%c%7d: %s\n"
-			(let ((level
-			       (let ((gnus-select-method orig-select-method))
-				 (gnus-group-level
-				  (gnus-group-prefixed-name (car group)
-							    method)))))
+			(let ((level (gnus-group-level (concat prefix (car group)))))
 			      (cond
 			       ((<= level gnus-level-subscribed) ? )
 			       ((<= level gnus-level-unsubscribed) ?U)