From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/46268 Path: main.gmane.org!not-for-mail From: Simon Josefsson Newsgroups: gmane.emacs.gnus.general Subject: gnus-group-posting-charset-alist Date: Tue, 27 Aug 2002 15:20:01 +0200 Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: localhost.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1030454375 20562 127.0.0.1 (27 Aug 2002 13:19:35 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Tue, 27 Aug 2002 13:19:35 +0000 (UTC) Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 17jgFp-0005LC-00 for ; Tue, 27 Aug 2002 15:19:33 +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 17jgGc-0000hn-00; Tue, 27 Aug 2002 08:20:22 -0500 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Tue, 27 Aug 2002 08:20:54 -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 IAA10652 for ; Tue, 27 Aug 2002 08:20:42 -0500 (CDT) Original-Received: (qmail 10876 invoked by alias); 27 Aug 2002 13:20:06 -0000 Original-Received: (qmail 10871 invoked from network); 27 Aug 2002 13:20:05 -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; 27 Aug 2002 13:20:05 -0000 Original-Received: from latte.josefsson.org (yxa.extundo.com [217.13.230.178]) (authenticated bits=0) by yxa.extundo.com (8.12.5/8.12.5) with ESMTP id g7RDK1NJ009734 for ; Tue, 27 Aug 2002 15:20:02 +0200 Original-To: ding@gnus.org X-Hashcash: 0:020827:ding@gnus.org:4cf718be4ba5e743 Original-Lines: 63 User-Agent: Gnus/5.090008 (Oort Gnus v0.08) Emacs/21.3.50 (i686-pc-linux-gnu) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:46268 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:46268 I've been running with this for a long time (probably since someone suggested that the variable should be a group parameter too), but I don't use g-g-p-c-a much so I would probably not notice if it didn't work. Anyway, I'm committing this since I think it would be nice if it was possible to set the posting charset using group parameters too. If something breaks, holler. 2002-08-27 Simon Josefsson * gnus-msg.el (posting-charset-alist): Use gnus-define-group-parameter instead of defcustom. Index: gnus-msg.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/gnus-msg.el,v retrieving revision 6.95 diff -u -p -u -w -r6.95 gnus-msg.el --- gnus-msg.el 2002/07/01 09:34:16 6.95 +++ gnus-msg.el 2002/08/27 13:47:35 @@ -160,11 +160,18 @@ If nil, attach files as normal parts." (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 @@ nil (always encode using quoted-printabl 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 @@ use this option with care." (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"