From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/45261 Path: main.gmane.org!not-for-mail From: Simon Josefsson Newsgroups: gmane.emacs.gnus.general Subject: Re: request for group parameter: posting-charset Date: Sat, 15 Jun 2002 12:11:30 +0200 Sender: owner-ding@hpc.uh.edu Message-ID: References: NNTP-Posting-Host: localhost.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1024136096 3299 127.0.0.1 (15 Jun 2002 10:14:56 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sat, 15 Jun 2002 10:14:56 +0000 (UTC) Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.33 #1 (Debian)) id 17JAa7-0000r5-00 for ; Sat, 15 Jun 2002 12:14:56 +0200 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 17JAZO-0004eA-00; Sat, 15 Jun 2002 05:14:10 -0500 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sat, 15 Jun 2002 05:14:29 -0500 (CDT) Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id FAA01524 for ; Sat, 15 Jun 2002 05:14:18 -0500 (CDT) Original-Received: (qmail 18578 invoked by alias); 15 Jun 2002 10:13:54 -0000 Original-Received: (qmail 18573 invoked from network); 15 Jun 2002 10:13:54 -0000 Original-Received: from 178.230.13.217.in-addr.dgcsystems.net (HELO yxa.extundo.com) (217.13.230.178) by gnus.org with SMTP; 15 Jun 2002 10:13:54 -0000 Original-Received: from latte.josefsson.org (yxa.extundo.com [217.13.230.178]) (authenticated bits=0) by yxa.extundo.com (8.12.4/8.12.4) with ESMTP id g5FADrlf026371 for ; Sat, 15 Jun 2002 12:13:53 +0200 Original-To: ding@gnus.org Mail-Copies-To: nobody In-Reply-To: (NAGY Andras's message of "Fri, 14 Jun 2002 23:54:08 +0200") Original-Lines: 58 User-Agent: Gnus/5.090007 (Oort Gnus v0.07) Emacs/21.3.50 (i686-pc-linux-gnu) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:45261 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:45261 NAGY Andras 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"