Re: Gnus SPAM support, and email based reporting.

["Ted Zlatanov" <tzz@lifelogs.com>]

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.")