Re: Fancy splitting and spam detection

[Julien Cubizolles]

Julien Cubizolles <j.cubizolles@free.fr> writes:

> I'm trying to setup fancy splitting on an imap server and I can't get
> spam-split to work:

> (setq gnus-ignored-from-addresses (regexp-opt '("j.cubizolles@free.fr" 
> "j.cubizolles@gmail.com")))
>
> (spam-initialize 'spam-use-move)
>
> (setq spam-use-bogofilter t)
>
> (require 'spam)
>
> (setq spam-mark-ham-unread-before-move-from-spam-group t)
> (setq spam-mark-only-unseen-as-spam t)
>
> (setq spam-split-group "Junk") ;unqualified group name
>
> (setq nnmail-split-methods 'nnmail-split-fancy)
>
> (setq nnmail-split-fancy
>       `(|
>       ("from" ,gnus-ignored-from-addresses "sent-mail")
>       (: (lambda ()
>               (car (bbdb/gnus-split-method))))
>       ("gnus-warning" "duplicat\\(e\\|ion\\) of message" "duplicate")
>       ;; all the rest
>       "General"
>       ))
>
> (setq nnimap-split-fancy
>       `(|
>       ("from" ,gnus-ignored-from-addresses "sent-mail")
>       (: (lambda ()
>               (car (bbdb/gnus-split-method))))
>       ("gnus-warning" "duplicat\\(e\\|ion\\) of message" "duplicate")
>       (: spam-split 'spam-use-bogofilter)
>       ;; all the rest
>       "General"
>       ))
>
> (setq gnus-secondary-select-methods
>       '(
>       (nnimap "gmail"
>                 (nnimap-address "imap.gmail.com")
>                 (nnimap-stream ssl)
>               (nnir-search-engine imap)
>               (nnimap-split-methods 'nnimap-split-fancy)
>               (nnimap-inbox "INBOX"))
>       (nnimap "free"
>               (nnimap-address "imap.free.fr")
>               (nnir-search-engine imap)
>               (nnimap-split-methods 'nnimap-split-fancy)
>               (nnimap-inbox "INBOX")
>               )
>       )
> )

For some reason, the following works, no idea why though. I basically
changed the order in which variables are defined, and use the default
value for nnimap-split-methods, with the fancy splitting set by
nnmail-split-fancy instead of nnimap-split-fancy.

--8<---------------cut here---------------start------------->8---
(setq gnus-ignored-from-addresses (regexp-opt '("j.cubizolles@free.fr" 
"j.cubizolles@gmail.com")))

(setq bbdb/gnus-split-nomatch-function nil
      bbdb/gnus-split-default-group nil
      bbdb/gnus-split-myaddr-regexp gnus-ignored-from-addresses
      )

(require 'spam)
(spam-initialize 'spam-use-move)
(setq spam-use-bogofilter t)

(setq spam-mark-ham-unread-before-move-from-spam-group t)
(setq spam-mark-only-unseen-as-spam t)

(setq spam-split-group "Junk") ;unqualified group name

(setq gnus-secondary-select-methods
      '(
        (nnimap "gmail"
                (nnimap-address "imap.gmail.com")
                (nnimap-stream ssl)
                (nnir-search-engine imap)
                (nnimap-inbox "INBOX")
                (nnimap-split-methods default)
                )
        (nnimap "free"
                (nnimap-address "imap.free.fr")
                (nnir-search-engine imap)
                (nnimap-inbox "INBOX")
                (nnimap-split-methods default)
                )
        (nntp "news.gwene.org"
              (nnir-search-engine gmane))
        (nntp "news.gmane.org"
              (nnir-search-engine gmane))
        )
)

(setq nnmail-split-fancy
      '(|
        ;; ("from" ,gnus-ignored-from-addresses "sent-mail")
        (: (lambda ()
                (car (bbdb/gnus-split-method))))
        (: spam-split 'spam-use-bogofilter)
        ("gnus-warning" "duplicat\\(e\\|ion\\) of message" "duplicate")
        ;; all the rest
        "General"
        ))

--8<---------------cut here---------------end--------------->8---

Julien.