From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/57682 Path: main.gmane.org!not-for-mail From: "Ted Zlatanov" Newsgroups: gmane.emacs.gnus.general Subject: Re: Gnus SPAM support, and email based reporting. Date: 24 May 2004 13:40:59 -0400 Organization: =?utf-8?B?0KLQtdC+0LTQvtGAINCX0LvQsNGC0LDQvdC+0LI=?= @ Cienfuegos Sender: ding-owner@lists.math.uh.edu Message-ID: <4noeod67v8.fsf@lifelogs.com> References: <87isfy7p6a.fsf@enki.rimspace.net> <1xmm1vhg.fsf@random.localnet.unwireduniverse.com> <4nzn95gwu7.fsf@lifelogs.com> <87lljt2534.fsf@enki.rimspace.net> <4nfz9xbirq.fsf@lifelogs.com> <87d64uaxpg.fsf@enki.rimspace.net> <4naczyj5xf.fsf@lifelogs.com> <87isellxhu.fsf@enki.rimspace.net> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1085421547 1949 80.91.224.253 (24 May 2004 17:59:07 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 24 May 2004 17:59:07 +0000 (UTC) Cc: ding@gnus.org Original-X-From: ding-owner+M6222@lists.math.uh.edu Mon May 24 19:58:55 2004 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1BSJiw-0001xV-00 for ; Mon, 24 May 2004 19:58:54 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1BSJi3-0000Lb-00; Mon, 24 May 2004 12:57:59 -0500 Original-Received: from util2.math.uh.edu ([129.7.128.23]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1BSJhy-0000LW-00 for ding@lists.math.uh.edu; Mon, 24 May 2004 12:57:54 -0500 Original-Received: from justine.libertine.org ([66.139.78.221] ident=postfix) by util2.math.uh.edu with esmtp (Exim 4.30) id 1BSJhv-0002Ik-UT for ding@lists.math.uh.edu; Mon, 24 May 2004 12:57:51 -0500 Original-Received: from mail.bwh.harvard.edu (sysblade0.bwh.harvard.edu [134.174.9.44]) by justine.libertine.org (Postfix) with ESMTP id 7D9343A0036 for ; Mon, 24 May 2004 12:57:50 -0500 (CDT) Original-Received: (qmail 5838 invoked from network); 24 May 2004 17:52:09 -0000 Envelope-Sender: tzz@lifelogs.com Envelope-Recipients: daniel@rimspace.net, ding@gnus.org, Original-Received: from asimov.bwh.harvard.edu (HELO asimov) ([134.174.9.63]) (envelope-sender ) by mail.bwh.harvard.edu (qmail-ldap-1.03) with SMTP for ; 24 May 2004 17:52:08 -0000 Mail-Followup-To: "Daniel Pittman" , ding@gnus.org Original-To: "Daniel Pittman" X-Face: bd.DQ~'29fIs`T_%O%C\g%6jW)yi[zuz6;d4V0`@y-~$#3P_Ng{@m+e4o<4P'#(_GJQ%TT= D}[Ep*b!\e,fBZ'j_+#"Ps?s2!4H2-Y"sx" In-Reply-To: <87isellxhu.fsf@enki.rimspace.net> (Daniel Pittman's message of "Tue, 25 May 2004 00:18:21 +1000") User-Agent: Gnus/5.110003 (No Gnus v0.3) Emacs/21.3.50 (gnu/linux) Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:57682 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:57682 On Tue, 25 May 2004, daniel@rimspace.net wrote: > I agree with that; it makes sense to be able to treat it just like the > other spam settings. The default prompting thing would also be good, > though, for the better "out of the box" experience, I think. > > Give me a minute... > > ...and this should implement precisely that. I'm not sure I like this auto-magic setting on first use. Does anyone else like/dislike it? Seems to me like we should choose a valid default or nil, but not ask the user unless they want to be asked. Of course, I could be wrong, but nowhere else in Gnus is this used AFAIK. > No handling of the group stuff yet, because I am not sure where that > is best hooked in. I looked at gnus.el, and the attached patch adds the parameter. Let me know if the *parameter* looks OK and I can add the rest of the glue to make spam.el do a lexical let on spam-report-resend-to. Ted Index: gnus.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/gnus.el,v retrieving revision 7.21 diff -u -r7.21 gnus.el --- gnus.el 20 May 2004 18:53:28 -0000 7.21 +++ gnus.el 24 May 2004 17:55:59 -0000 @@ -1823,6 +1823,24 @@ "The spam classification (spam, ham, or neither) of this group. When a spam group is entered, all unread articles are marked as spam.") + (gnus-define-group-parameter + spam-resend-to + :type list + :function-document + "The address to get spam resent (through spam-report-resend)." + :variable gnus-spam-resend-to + :variable-default nil + :variable-document + "The address to get spam resent (through spam-report-resend)." + :variable-group spam + :variable-type '(repeat + (list :tag "Group address for resending spam" + (regexp :tag "Group") + (string :tag "E-mail address for resending spam (requires the spam-use-resend exit processor)"))) + :parameter-type 'string :tag "E-mail address for resending spam (requires the spam-use-resend exit processor)" + :parameter-document + "The address to get spam resent (through spam-report-resend).") + (defvar gnus-group-spam-exit-processor-ifile "ifile" "OBSOLETE: The ifile summary exit spam processor.")