From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/49256
Path: main.gmane.org!not-for-mail
From: Lloyd Zusman <ljz@asfast.com>
Newsgroups: gmane.emacs.gnus.general
Subject: Refactoring request for spam.el
Date: Wed, 15 Jan 2003 10:31:13 -0500
Organization: FreeBSD/Linux Hippopotamus Preserve
Sender: owner-ding@hpc.uh.edu
Message-ID: <86u1gawhtq.fsf@asfast.com>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Trace: main.gmane.org 1042644654 25540 80.91.224.249 (15 Jan 2003 15:30:54 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Wed, 15 Jan 2003 15:30:54 +0000 (UTC)
Return-path: <owner-ding@hpc.uh.edu>
Original-Received: from malifon.math.uh.edu ([129.7.128.13])
	by main.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 18YpVD-0006dT-00
	for <ding-account@gmane.org>; Wed, 15 Jan 2003 16:30:51 +0100
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 18YpVu-0004zp-00; Wed, 15 Jan 2003 09:31:34 -0600
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 15 Jan 2003 09:32:29 -0600 (CST)
Original-Received: from sclp3.sclp.com (sclp3.sclp.com [66.230.238.2])
	by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id JAA08835
	for <ding@hpc.uh.edu>; Wed, 15 Jan 2003 09:32:15 -0600 (CST)
Original-Received: (qmail 10216 invoked by alias); 15 Jan 2003 15:31:14 -0000
Original-Received: (qmail 10210 invoked from network); 15 Jan 2003 15:31:14 -0000
Original-Received: from home.acholado.net (HELO home) (Potamus@216.27.138.216)
  by 66.230.238.6 with SMTP; 15 Jan 2003 15:31:14 -0000
Original-Received: from localhost (localhost [127.0.0.1])
  (uid 1001)
  by home with local; Wed, 15 Jan 2003 10:31:13 -0500
Original-To: ding@gnus.org
X-Face: "!ga1s|?LNLE3MeeeEYs(%LIl9q[xV9!<nimJxd1qyQRquvu5XTnZ:_5VE-G&4*EAuW"7oJLIXj'DWrJ0z@,FlwvD2PA@qhQ2R#zgsc14Klk;OSE'*;+l8p?0^nK7*X#0zg5wd^!M^2pg,M4Qd^{1viG;fa{}b.s[?g(x$45c]]=@'ZQ&]sPXl!u:hxBAv>j4#xf4!**BFW_ihlOb;:Slb>)vy>CJM<qjGM,/6C6\|{))YWm6}Q#?3om%n8
User-Agent: Gnus/5.090013 (Oort Gnus v0.13) XEmacs/21.4 (Common Lisp,
 i386-debian-linux)
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:49256
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:49256

I have a request concering spam.el:

Would it be possible to conditionally execute the code in `gnus.el'
that manages the spam processing?

The reason I'm asking for this is that I still can't customize any
groups as long as the spam-related code in `gnus.el' exists; I have to
manually comment out this code in order for customization to work for
me.

And sadly, I haven't as yet had the time to do a major debugging session
for this problem.  Therefore, I'd prefer just to set some kind of
variable in order to block all spam processing.  I don't need that
processing, because I already do extensive spam filtering on my
mailserver.

I think that the following code (or something less hackish that has the
same effect) could go into `gnus.el'.  Then, I could just manually set
`gnus-load-spam-processing-code' to `nil' when I start gnus.

See the other thread relating to customization and spam.el in order to
see a more detailed explanation of my problem.


 ;;; In gnus.el ...

 (defvar gnus-load-spam-processing-code t
  "*Only load the code in `spam*.el' if this variable is set to true.")

 (when gnus-load-spam-processing-code

    ;;; group parameters for spam processing added by Ted Zlatanov <tzz@lifelogs.co$
    (defvar gnus-group-spam-classification-spam t
      "Spam group classification (requires spam.el).
    This group contains spam messages.  On summary entry, unread messages
    will be marked as spam.  On summary exit, the specified spam
    processors will be invoked on spam-marked messages, then those
    messages will be expired, so the spam processor will only see a
    spam-marked message once.")

    ;;;
    ;;; ... and everything in between, until we get here ...
    ;;;

    (gnus-define-group-parameter
     ham-process-destination
     :parameter-type '(choice
                      :tag "Destination for ham articles at summary exit from a sp$
                             (string :tag "Move to a group")
                             (other :tag "Do nothing" nil))
     :function-document
     "Where ham articles will go at summary exit from a spam group."
     :variable gnus-ham-process-destinations
     :variable-default nil
     :variable-document
     "*Groups in which to explicitly send ham articles to
    another group, or do nothing (the default).  If non-nil, this should
    be a list of group name regexps that should match all groups in which
    to do ham article moving, associated with the destination
    group or `nil' for explicit ignoring.  This only makes sense for
    mail groups, and only works in spam groups."
     :variable-group spam
     :variable-type '(repeat
                     :tag "Ham articles destination"
                     (list
                      (regexp :tag "Group Regexp")
                      (choice
                       :tag "Destination for ham articles at summary exit from spa$
                       (string :tag "Move to a group")
                       (other :tag "Expire" nil))))
     :parameter-document
     "Where ham articles will go at summary exit from a spam group.")
 )
 

-- 
 Lloyd Zusman
 ljz@asfast.com