From 4fc327ac22cee73eaf10b9de1f98e90d0bd64e42 Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 24 Aug 1999 14:36:37 +0000 Subject: [PATCH] (gnus-browse-foreign-server): Don't prepend `K' if the group has already been subscribed. --- lisp/gnus-srvr.el | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) 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)) -- 1.7.10.4