Mercurial > emacs

changeset 110780:1d132c3c1987

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gnus-group.el (gnus-group-completing-read): Fix last change.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Wed, 06 Oct 2010 01:38:26 +0000
parents 9d935b7bf464
children 664402ada542
files lisp/gnus/gnus-group.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/gnus-group.el	Wed Oct 06 01:09:32 2010 +0000
+++ b/lisp/gnus/gnus-group.el	Wed Oct 06 01:38:26 2010 +0000
@@ -2190,7 +2190,9 @@
 				      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)))))