From c640fcd1529b08e5006b8064eead608b5164f288 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Wed, 6 Oct 2010 01:38:26 +0000 Subject: [PATCH] gnus-group.el (gnus-group-completing-read): Fix last change. --- lisp/gnus/gnus-group.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index 1833c604893..c1464562208 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -2190,7 +2190,9 @@ if it is not a list." require-match initial-input (or hist 'gnus-group-history) def)) - (if (symbol-value (intern-soft group collection)) + (if (if (listp collection) + (member group (mapcar 'symbol-name collection)) + (symbol-value (intern-soft group collection))) group (mm-encode-coding-string group (gnus-group-name-charset nil group))))) -- 2.39.5