[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Fancy splitting and spam detection
From: |
Julien Cubizolles |
Subject: |
Re: Fancy splitting and spam detection |
Date: |
Wed, 26 Aug 2015 22:58:31 +0200 |
User-agent: |
Gnus/5.130014 (Ma Gnus v0.14) Emacs/25.0.50 (gnu/linux) |
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.