From: yamaoka <yamaoka>
Date: Thu, 21 Aug 2003 00:27:24 +0000 (+0000)
Subject: Synch to Gnus 200308201717.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e164b4ebf8d77f0785351c18d36b8467b8c9cc34;p=elisp%2Fgnus.git-

Synch to Gnus 200308201717.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0516c56..bfb66fa 100644
--- 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 049e7bd..fe96558 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -3804,11 +3804,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))