From e164b4ebf8d77f0785351c18d36b8467b8c9cc34 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 21 Aug 2003 00:27:24 +0000 Subject: [PATCH] Synch to Gnus 200308201717. --- lisp/ChangeLog | 3 +++ lisp/gnus.el | 20 +++++++++++++++----- 2 files changed, 18 insertions(+), 5 deletions(-) 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 + * 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)) -- 1.7.10.4