From 5b2c193e3b0eaef78c478fe0985277f5dbc177db Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 28 Mar 2002 11:41:22 +0000 Subject: [PATCH] * gnus-group.el (gnus-group-completing-read-group-name): Use `mapatoms' to extract all groups from `gnus-active-hashtb'. --- ChangeLog | 5 +++++ lisp/gnus-group.el | 10 ++++++---- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 695ca11..757716c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2002-03-28 Katsumi Yamaoka + + * 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 * 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))) -- 1.7.10.4