X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lisp%2Fgnus-srvr.el;h=d08c8d4b2eea2eee348d6a752341570e1b9564af;hb=99c9ed12a0d074be5c49e7b58f2328ab771d7336;hp=7d15a9f529ad7c1ec11a2f69ba72c3fa754a1e1c;hpb=a526b7eba49c81420c8caed38c3bafe0e20cdecb;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el
index 7d15a9f..d08c8d4 100644
--- a/lisp/gnus-srvr.el
+++ b/lisp/gnus-srvr.el
@@ -26,7 +26,6 @@
 ;;; Code:
 
 (eval-when-compile (require 'cl))
-
 (require 'gnus)
 (require 'gnus-spec)
 (require 'gnus-group)
@@ -592,19 +591,28 @@ The following commands are available:
 	  (goto-char (point-min))
 	  (unless (string= gnus-ignored-newsgroups "")
 	    (delete-matching-lines gnus-ignored-newsgroups))
-         (while (and (not (eobp)) (forward-line))
+	  (while (not (eobp)) 
 	    (ignore-errors
-             (push (cons (read cur)
+             (push (cons (let ((p (point)))
+			   (skip-chars-forward "^ \t")
+			   (buffer-substring p (point)))
 			  (max 0 (- (1+ (read cur)) (read cur))))
-		    groups)))))
+		    groups))
+	    (forward-line))))
       (setq groups (sort groups
 			 (lambda (l1 l2)
 			   (string< (car l1) (car l2)))))
-      (let ((buffer-read-only nil))
+      (let ((buffer-read-only nil) 
+	    (gnus-select-method nil) 
+	    name)
 	(while groups
-	  (setq group (car groups))
-	  (insert
-	   (format "K%7d: %s\n" (cdr group) (car group)))
+	  (setq group (car groups)
+		name (format "%s" (car group)))
+	  (insert (if (cadr (gnus-gethash 
+			     (gnus-group-prefixed-name name method)
+			     gnus-newsrc-hashtb))
+		      " " "K")
+		  (format "%7d: " (cdr group)) name "\n")
 	  (setq groups (cdr groups))))
       (switch-to-buffer (current-buffer))
       (goto-char (point-min))