Develop and Download Open Source Software

Back to Forum List
Back to this Forum

---

RSS for this Forum

RSS for this Thread

Discussion Forums: users

Subject:[#46660] RE: pop proxy modeで新しいspamを追加する方法

Date:2009-10-26 13:21By: koie

わたしはこんなふうにせっていしてつかえています:
(setq mew-spam-prog "bsfilter")
(setq mew-spam-prog-args '("--update" "--add-spam" "--sub-clean"))
(setq mew-ham-prog "bsfilter")
(setq mew-ham-prog-args '("--update" "--add-clean" "--sub-spam"))


(Follow up message for [#46653])

Subject:[#46663] RE: pop proxy modeで新しいspamを追加する方法

Date:2009-10-26 17:21By: zenkato

私も.mew.elに以下のように設定していますが、lsをしたのちspam folder SPAM2
に入れた後
$ bsfilter < ~/Mail/SPAM2/xxxx; echo $? とすると、1 (ham)が返ってきます。
これはこのspam mailに
X-Spam-Flag: No
X-Spam-Probability: 0.500000
がつけられたからでしょうか？
X-Spam-Flag: No をYesに変更すればいいのでしょうか？　どうやったらいいので
しょうか？

~/.mew.el
;; bsfilter
;; $Id: mew.el,v 1.1 2009/04/30 16:50:26 nabeken Exp $

(setq mew-pop-proxy-server "localhost")
(setq mew-pop-proxy-port "10110")

; moved from .emacs.el
(setq mew-spam: "X-Spam-Flag:")

; put "D"
(defun mew-spam-bsfilter (val)
(let ((case-fold-search t))
(if (string-match "yes" val) ?D)))

; put "o +SPAM2" at inc
(defun mew-spam-bsfilter (val)
(let ((case-fold-search t))
(if (string-match "yes" val) "+SPAM2")))

(setq mew-inbox-action-alist
'(("X-Spam-Flag:" mew-spam-bsfilter)))

; for "ls" (learn-spam)
(setq mew-spam-prog "bsfilter")
(setq mew-spam-prog-args '("-C" "-s" "-u"))

; for "lh" (learn-ham)
(setq mew-ham-prog "bsfilter")
(setq mew-ham-prog-args '("-c" "-S" "-u"))

; for "bm" (mark-spam)
(define-key mew-summary-mode-map "bm" 'mew-summary-bsfilter-mark-region)

(defun mew-summary-bsfilter-mark-region (&optional arg)
"study/judge the region and put the '*' mark onto spams.
need to re-learn if judgment of bsfilter is wrong"
(interactive "P")
(mew-pickable
(mew-summary-with-mewl
(let* ((folder (mew-summary-physical-folder))
(msgs (mew-summary-pick-msgs folder t))
(prog "bsfilter")
(opts '("-a" "--list-spam"))
(pattern nil))
(setq msgs (mew-summary-pick-with-grep prog opts pattern folder msgs))
(mew-summary-pick-ls folder msgs)))))

; show X-Spam-Flag and X-Spam-Probability in message buffer
(setq mew-field-spec
(reverse (append (list (car (reverse mew-field-spec)))
'(("^X-Spam-Probability:$" t)
("^X-Spam-Flag:$" t))
(cdr (reverse mew-field-spec)))))



(Follow up message for [#46660])

Subject:[#46665] RE: pop proxy modeで新しいspamを追加する方法

Date:2009-10-26 21:17By: koie

bsfilter --export-spam や bsfilter --export-clean でDBの中身を標準出力に出せるので
l s の後にカウントが上がっているかどうか確認してはどうでしょうか。
私の場合は l s を10回連続実行して強力にスパム認定させています。

(Follow up message for [#46663])

Post a message to this thread:
(follow up to message [#46653])