* 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 (file)
--- 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 (file)
--- 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)))