From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Wed, 6 Oct 2010 01:38:26 +0000 (+0000)
Subject: gnus-group.el (gnus-group-completing-read): Fix last change.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~46^2~166
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c640fcd1529b08e5006b8064eead608b5164f288;p=emacs.git

gnus-group.el (gnus-group-completing-read): Fix last change.
---

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)))))