Add 'substring to completion-styles for group selection.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a77f688..783c283 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-08-30  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-group.el (gnus-group-completing-read): Add 'substring to
+       completion-styles for group selection.
+
 2009-02-04  Andreas Schwab  <schwab@suse.de>
 
        * gnus-score.el (gnus-score-string): Fix regex for matching extra

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 7a88773..f9f9707 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2202,7 +2202,9 @@ be permanent."
 The arguments are the same as `completing-read' except that COLLECTION
 and HIST default to `gnus-active-hashtb' and `gnus-group-history'
 respectively if they are omitted."
-  (let (group)
+  (let ((completion-styles completion-styles)
+       group)
+    (push 'substring completion-styles)
     (mapatoms (lambda (symbol)
                (setq group (symbol-name symbol))
                (set (intern (if (string-match "[^\000-\177]" group)