From: yamaoka <yamaoka>
Date: Thu, 28 Mar 2002 11:41:22 +0000 (+0000)
Subject: * gnus-group.el (gnus-group-completing-read-group-name): Use `mapatoms' to
X-Git-Tag: t-gnus-6_15_6-02-quimby~20
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5b2c193e3b0eaef78c478fe0985277f5dbc177db;p=elisp%2Fgnus.git-

* gnus-group.el (gnus-group-completing-read-group-name): Use `mapatoms' to
 extract all groups from `gnus-active-hashtb'.
---

diff --git a/ChangeLog b/ChangeLog
index 695ca11..757716c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-03-28  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/gnus-group.el (gnus-group-completing-read-group-name): Use
+	`mapatoms' to extract all groups from `gnus-active-hashtb'.
+
 2002-03-26  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* lisp/gnus-group.el (gnus-group-completing-read-group-name):
diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 089f27b..18e07e3 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -1065,10 +1065,12 @@ The following commands are available:
 (defun gnus-group-completing-read-group-name
   (prompt table &optional predicate require-match initial-contents history)
   (if (vectorp table)
-      (dolist (group (prog1
-			 (delq 0 (append table nil))
-		       (setq table nil)))
-	(push (list (gnus-group-decoded-name (symbol-name group))) table))
+      (mapatoms
+       (lambda (group)
+	 (push (list (gnus-group-decoded-name (symbol-name group))) table))
+       (prog1
+	   table
+	 (setq table nil)))
     (dolist (entry (prog1
 		       table
 		     (setq table nil)))