[mew-dist 26807] Re: spamフィルターの使用について

[ryoseas-mini]

ryoseas-miniと申します． 


> しかし，今度はいままでできていた
> 
> ls
> lh
> 
> でのspam学習ができなくなりました．
> 両方ともキーをおすと以下のエラーが帰ってきますがどういうことに
> なっているのでしょうか？
> 
> Learn as spam: /usr/local/bin/bsfilter:2529:in `initialize' : Address already in use -bind(2) (Errno::EADDRINUSE)
> 
>

ということなのですが，肝心の設定内容を提示しませんでしたので
以下にお示しいたします．


;; bsfilterの設定
(setq mew-scan-fields (delete mew-spam: mew-scan-fields))
(setq mew-scan-fields (delete "Body" mew-scan-fields))
(setq mew-spam: "X-Spam-Flag:")
(setq mew-scan-fields (append mew-scan-fields (list mew-spam: "Body")))
(setq mew-inbox-action-alist
        '(("X-Spam-Flag:" mew-bsfilter)))

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

(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 spam.
need to re-learn if judgement of bsfilter is wrong"
        (interactive "P")
        (mew-pickable
                (let ((func 'mew-summary-pick-with-cmd)
                        (mew-inherit-grep-cmd "bsfilter -a --list-spam"))
                        (mew-summary-pick-body func t nill 'nopattern))))

; 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))

よろしくお願いいたします．


ryoseas-mini    ryoseas at example.com