(gnus-invalid-group-regexp): New variable.

(gnus-read-group): Use it.

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 210a3bc..27ae6ea 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1616,6 +1616,9 @@ gnus-newsrc-hashtb should be kept so that both hold the same information.")
 
 (defvar gnus-dead-summary nil)
 
+(defvar gnus-invalid-group-regexp "[: `'\"/]\\|^$"
+  "Regexp matching invalid groups.")
+
 ;;; End of variables.
 
 ;; Define some autoload functions Gnus might use.
@@ -2803,8 +2806,8 @@ Disallow invalid group names."
   (let ((prefix "")
        group)
     (while (not group)
-      (when (string-match
-            "[: `'\"/]\\|^$"
+      (when (string-match 
+            gnus-invalid-group-regexp
             (setq group (read-string (concat prefix prompt)
                                      (cons (or default "") 0)
                                      'gnus-group-history)))