From: ueno <ueno>
Date: Tue, 24 Aug 1999 14:36:37 +0000 (+0000)
Subject: (gnus-browse-foreign-server): Don't prepend `K' if the group has
X-Git-Tag: t-gnus-6_13_0-11~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4fc327ac22cee73eaf10b9de1f98e90d0bd64e42;p=elisp%2Fgnus.git-

(gnus-browse-foreign-server): Don't prepend `K' if the group has
already been subscribed.
---

diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el
index 7d15a9f..cba8a46 100644
--- a/lisp/gnus-srvr.el
+++ b/lisp/gnus-srvr.el
@@ -600,11 +600,17 @@ The following commands are available:
       (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))