Re: training spam filter

[Dan Christensen <jdc@uwo.ca>]

On Dec 15, 2015, Peter Münster <pmlists@free.fr> wrote:

> On Mon, Dec 14 2015, Dan Christensen wrote:
>
>> I currently have a keystroke that trains my spam filter, and moves the
>> article away,
>
> Could you post that piece of code please?

It's below.

Dan


; This is copied from someone else, and then modified by me.
; Search for *** below for where customization is needed.

(setq rgb/gnus-spam-groups '("nnfolder:spam" "nnimap+foo:spam"))

(defun rgb/gnus-treat-ham-or-spam (&optional n)
  "Handle SpamAssassin misses (in ham groups) and false
  positives (if in spam group)"
  (interactive "P")
  (let* ((ham-or-spam (if (member gnus-newsgroup-name rgb/gnus-spam-groups)
                          "ham"
                        "spam"))
         (prompt (format "Treating article %%s as %s...%%s" ham-or-spam))
         (pipe   (format "sa --%s"                          ham-or-spam))
	 ; Where to move the message after processing:  ***
         (group  (if (equal ham-or-spam "ham") "nnimap+foo:Inbox" "nnimap+foo:spam")))

    (save-excursion
      (dolist (article (gnus-summary-work-articles n))
        (message prompt article "")
        (gnus-summary-goto-subject article)
        (gnus-summary-show-raw-article)
	(if (equal ham-or-spam "spam")
	    (gnus-summary-mark-article article gnus-expirable-mark t)
	  (gnus-summary-mark-article article gnus-unread-mark t))
        ; t arg is a recent addition, to ensure article is raw:
        (gnus-summary-save-in-pipe pipe t)
        ;(message prompt article "done")
	)

    (gnus-summary-move-article nil group)))

  (gnus-summary-expand-window)
  (gnus-summary-next-subject 1)
  (gnus-summary-recenter)
  (gnus-summary-position-point)
  (gnus-set-mode-line 'summary))

(define-key gnus-summary-mode-map [?$ ?$] 'rgb/gnus-treat-ham-or-spam)

On the machine that runs spamassassin, ~/bin/sa contains:

#!/bin/sh
# Usage: cat message | sa --spam   [or --ham]
sa-learn $1 --no-sync

On another machine, ~/bin/sa contains:  ***

#!/bin/sh
# Usage: cat message | sa --spam   [or --ham]
ssh host.that.runs.spamassassin sa-learn $1 --no-sync