From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/2923
Path: news.gmane.org!not-for-mail
From: David Z Maze <dmaze@mit.edu>
Newsgroups: gmane.emacs.gnus.user
Subject: Re: spam.el/spam-stat checks in non-mail groups
Date: Fri, 22 Aug 2003 15:26:01 -0400
Message-ID: <878yplwl2u.fsf@everett.mit.edu>
References: <87ekzealuw.fsf@everett.mit.edu> <4nada2j84r.fsf@lockgroove.bwh.harvard.edu>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="=-=-="
X-Trace: sea.gmane.org 1138669188 16840 80.91.229.2 (31 Jan 2006 00:59:48 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Tue, 31 Jan 2006 00:59:48 +0000 (UTC)
Original-X-From: nobody Tue Jan 17 17:31:25 2006
Original-Path: quimby.gnus.org!newsfeed1.e.nsc.no!nsc.no!nextra.com!news.tele.dk!news.tele.dk!small.news.tele.dk!newsfeed.mathworks.com!bloom-beacon.mit.edu!senator-bedfellow.mit.edu!dreaderd!not-for-mail
Original-Newsgroups: gnu.emacs.gnus
Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwBAMAAAClLOS0AAAAFVBMVEUGBgS83KhoOivUeFmC
 pXj4o39qeFZD1JPmAAACOklEQVR4nE2UQY/bIBCFkVPlbpX0bA2tz7sQcl5SlnsWc7cclv//
 E/oGjNNxokjz8eYxA7HwR9xLKQGRC4eQezqUj7KWnDOzAOB3EjaBKDl4KPARzkvpAIqoUTwI
 a2op6WVoeXHOlfgsnJPM1kl0SdMIFEJ0AaIJshiRhkCsHbC/51LycKDmgiw2jVJy9B9IDPNN
 U5NkSMQoR+c5/zTW3qjZgwg5ylpJ2YT4wubO7FEVEs0NhvPJaqzxDaDS2gUpGUjyDkau9NxB
 fKsmu4Ir2XSpwAjxYwfsfeqlbJwqcAwwcLINxGRWtIhhMEB7ZLoAJudd4aE42e4RCQDjYMXK
 CpS6XOBtNM7EVfPAbRgihfU08Sg9jqIr9G9JJuo70cCty66gwY6kzJ9xIygyJs7mDNQcSEUV
 iPSE1qt5mLgUkcGj8ExTbrvii2CwG3UCQkxUXDUPE03KIqPw8Iq33IBfUcbw/Ez9eeo8VvPr
 qrRNj2RU1DjeaN6cG8c6RKVNnTg+GIDWfAkPBVdK2jC84fCq4n4yik+VNICNtoPlPkScrKmh
 bPw+FIGSYmBrOUPeNfATjajPpFXtMl0Hvyt4imfzqDvC9zZ3cAEYvlt/ADq7rvDbNKj3RuxC
 B7gsZRWzbSAaymNXSPxjia8id1GmV6kUyjDMf9vd3daXAiYFd4GvXNzmaT7AspRyJnoif6Nn
 Ob8UC94fN6KybTSbvB0e46d3Tyzm+I7v4QWW5WGswZulXFNyv/4DGFvqYRv4BxSm28ZwQ4mv
 AAAAAElFTkSuQmCC
X-Face: &OO..E]'&$Q?jm[7H$]lCS"t#FD[|jK.HfvP#![KZ`/,O)lQ(pE<2QS1i~K3+u\{B<n'%(d
 d|ja|1t%=%_:].7%l)O;PM:\cxIW-R^|>h"(4h4G0W#R-F<w'W=/nTBJ;[JQ22WOTpdRFb(D5h(DDu
 Dbg|$2Q8PO#;{s\WB1m&p@k]+Av_E[o78|`D)9{riNWG##4N0b@/id>2zZNO6n\!8bk;tu%)f>y{C`
 P*^7yM`e/x"b1q[?^-9zxT<CwoP1xRL>p
User-Agent: Gnus/5.1003 (Gnus v5.10.3) XEmacs/21.4 (Rational FORTRAN, linux)
Cancel-Lock: sha1:MLDLYzF5EapoflSbh8CT0TPcFDE=
Original-NNTP-Posting-Host: ENDICOTT-EIGHTY-SIX.MIT.EDU
Original-X-Trace: 1061580368 senator-bedfellow.mit.edu 562 18.99.1.86
Original-Xref: bridgekeeper.physik.uni-ulm.de gnus-emacs-gnus:3064
Original-Lines: 58
X-Gnus-Article-Number: 3064   Tue Jan 17 17:31:25 2006
Xref: news.gmane.org gmane.emacs.gnus.user:2923
Archived-At: <http://permalink.gmane.org/gmane.emacs.gnus.user/2923>

--=-=-=

Ted Zlatanov <tzz@lifelogs.com> writes:

> You can't currently do spam checks on unseen messages in a newsgroup.
>
> It should be possible though, by running spam-split on every unseen
> message at summary entry and checking if the output is equal to
> spam-split-group (remember that the ifile backend, for instance, will
> output a valid group name for non-spam so you can't just check for a
> string).

Hmm, like this?


--=-=-=
Content-Type: application/emacs-lisp
Content-Disposition: inline
Content-Transfer-Encoding: 8bit

(defun dzm-gnus-find-spam ()
  (mapcar
   (lambda (article)
     (let ((is-spam
	    (with-temp-buffer
	      (gnus-request-article-this-buffer article gnus-newsgroup-name)
	      (equal (spam-split) spam-split-group))))
       (if is-spam
	   (add-to-list 'gnus-newsgroup-spam-marked article))))
   gnus-newsgroup-articles))

(defun dzm-gnus-nndsc-spam ()
  (progn
    (if (equal (car (gnus-find-method-for-group gnus-newsgroup-name)) 'nndsc)
	(dzm-gnus-find-spam))))

(add-hook 'gnus-select-group-hook 'dzm-gnus-nndsc-spam)

--=-=-=


I should probably use gnus-newsgroup-unseen rather than
gnus-newsgroup-articles.  But for a first pass, this appears to at
least be close.

> I don't think there's a way to automatically find out if a group is
> not a mail group, is there?

I actually only care about a single backend, which is easier to
check.  You can check if something is news or not (gnus-news-group-p),
at least.

-- 
David Maze             dmaze@mit.edu          http://www.mit.edu/~dmaze/
"Theoretical politics is interesting.  Politicking should be illegal."
	-- Abra Mitchell

--=-=-=--