(gnus-read-group): Offer to continue only if the invalid

char is `/' and add more information for the user.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0516c56..bfb66fa 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2003-08-20  Reiner Steib  <Reiner.Steib@gmx.de>
 
+       * gnus.el (gnus-read-group): Offer to continue only if the invalid
+       char is `/' and add more information for the user.
+
        * gnus-art.el (gnus-button-alist): Add `+' (gnus-button-handle-man).
        (gnus-header-button-alist): Added `In-Reply-To'.
 

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 586d438..b1b373b 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -3715,11 +3715,21 @@ Disallow invalid group names."
                                      (cons (or default "") 0)
                                      'gnus-group-history)))
        (let ((match (match-string 0 group)))
-         (unless (y-or-n-p
-                  (format
-                   "Name \"%s\" contain forbidden \"%s\" (see "
-                   "gnus-invalid-group-regexp).  Proceed? "
-                   group match))
+         ;; `/' may be okay (e.g. for nnimap), so ask the user:
+         (unless (and (string-match "/" match)
+                      (message-y-or-n-p
+                       "Proceed and create group anyway? " t
+"The group name \"" group "\" contains a forbidden character: \"" match "\".
+
+Usually, it's dangerous to create a group with this name, because it's not
+supported by all back ends and servers.  On some IMAP servers, it's valid to
+use the character \"/\".
+
+If you are really sure, you can proceed anyway and create the group.
+
+You may customize the variable `gnus-invalid-group-regexp', which currently is
+set to \"" gnus-invalid-group-regexp
+"\", if you want to get rid of this query."))
            (setq prefix (format "Invalid group name: \"%s\".  " group)
                  group nil)))))
     group))