* Re: request for group parameter: posting-charset
2002-06-14 21:54 request for group parameter: posting-charset NAGY Andras
@ 2002-06-15 10:11 ` Simon Josefsson
2002-06-15 16:30 ` NAGY Andras
0 siblings, 1 reply; 3+ messages in thread
From: Simon Josefsson @ 2002-06-15 10:11 UTC (permalink / raw)
NAGY Andras <nagya@inf.elte.hu> writes:
> Variable Group Parameter
> ----------------------------------------------------
> gnus-group-charset-alist charset
> gnus-group-ignored-charsets-alist ignored-charsets
> gnus-group-posting-charset-alist ?
>
> The `?' should be fixed. :-)
Does this work?
--- gnus-msg.el.~6.94.~ Fri Jun 14 17:55:20 2002
+++ gnus-msg.el Sat Jun 15 12:10:04 2002
@@ -160,11 +160,18 @@
(const all :tag "Any")
(string :tag "Regexp")))
-(defcustom gnus-group-posting-charset-alist
+(gnus-define-group-parameter
+ posting-charset-alist
+ :type list
+ :function-document
+ "Return the permitted unencoded charsets for posting of GROUP."
+ :variable gnus-group-posting-charset-alist
+ :variable-default
'(("^\\(no\\|fr\\)\\.[^,]*\\(,[ \t\n]*\\(no\\|fr\\)\\.[^,]*\\)*$" iso-8859-1 (iso-8859-1))
("^\\(fido7\\|relcom\\)\\.[^,]*\\(,[ \t\n]*\\(fido7\\|relcom\\)\\.[^,]*\\)*$" koi8-r (koi8-r))
(message-this-is-mail nil nil)
(message-this-is-news nil t))
+ :variable-document
"Alist of regexps and permitted unencoded charsets for posting.
Each element of the alist has the form (TEST HEADER BODY-LIST), where
TEST is either a regular expression matching the newsgroup header or a
@@ -177,7 +184,9 @@
Note that any value other than nil for HEADER infringes some RFCs, so
use this option with care."
- :type '(repeat (list :tag "Permitted unencoded charsets"
+ :variable-group gnus-charset
+ :variable-type
+ '(repeat (list :tag "Permitted unencoded charsets"
(choice :tag "Where"
(regexp :tag "Group")
(const :tag "Mail message" :value message-this-is-mail)
@@ -190,7 +199,11 @@
(const :tag "None" :value nil)
(repeat :tag "Charsets"
(symbol :tag "Charset")))))
- :group 'gnus-charset)
+ :parameter-type '(choice :tag "Permitted unencoded charsets"
+ :value nil
+ (repeat (symbol)))
+ :parameter-document "\
+List of charsets that are permitted to be unencoded.")
(defcustom gnus-debug-files
'("gnus.el" "gnus-sum.el" "gnus-group.el"
^ permalink raw reply [flat|nested] 3+ messages in thread