bsfilter

こんにちは。
Windows-XPでWeMail32というMUAを使っております。
bsfilter をローカル POP proxy として使い始めてみましたが、WeMail32 の振り分け機能の方が X-Spam-Filter を参照出来ないことに後から気づきました (--;

そこで、X-Spam-Flag: Yes と同じ条件で Subject に [SPAM] を追加する簡単なパッチを作ってみました。

Ruby のソースを見るのは初めてだったので妙なことをしているかも知れませんが、同じようにシンプルな振り分け機能しか持っていないメールソフトも多かろうと思いましたので、投稿します。

簡単な使い方：
オプションに --mark-subject を指定して起動すると、Subject ヘッダに [SPAM] を追加します。

以下パッチ本文です。
----
*** bsfilter.orig Mon Oct 25 13:08:47 2004
--- bsfilter Mon Oct 25 16:09:08 2004
***************
*** 1,5 ****
--- 1,6 ----
#! /usr/bin/env ruby
## -*-Ruby-*- $Id: bsfilter,v 1.65 2004/10/23 18:47:18 nabeken Exp $
+ # Added --mark-subject option by suzu-kat 2004/10/25

## Copyright (C) 2003, 2004 NABEYA Kenichi
##
***************
*** 17,22 ****
--- 18,24 ----
## along with this program; if not, write to the Free Software
## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

+
require 'getoptlong'
require 'nkf'

***************
*** 121,126 ****
--- 123,140 ----
end
end

+ def mark_subject!(buf, marker) # by suzu-kat 2004/10/25
+ buf[0] =~ /([\r\n]*)\z/
+ eol = $1
+
+ (0 ... buf.length).each do |i|
+ if (buf[i] =~ /\ASubject:/)
+ buf[i] = buf[i].gsub( /Subject: /, "Subject: #{marker} ")
+ break
+ end
+ end
+ end
+
def x_spam_flag
return sprintf("X-%s-Flag:", Options["header-prefix"])
end
***************
*** 151,156 ****
--- 165,177 ----
updated = true
insert_header!(buf, x_spam_probability, sprintf("%f", probability))
end
+ if (Options["mark-subject"]) # by suzu-kat 2004/10/25
+ if (spam_flag)
+ print "spam_flag\n"
+ updated = true
+ mark_subject!(buf, "[SPAM]")
+ end
+ end
return updated
end
end # end of module
***************
*** 1837,1842 ****
--- 1858,1866 ----
--insert-probability
insert "X-Spam-Probability: number" into a mail

+ --mark-subject
+ mark "[SPAM]" at the beginning of Subject header
+
--header-prefix string
insert "X-spcecified_string-..." headers, instead of "Spam"

***************
*** 2646,2651 ****
--- 2670,2676 ----
["--insert-flag", GetoptLong::NO_ARGUMENT],
["--insert-probability", GetoptLong::NO_ARGUMENT],
["--header-prefix", GetoptLong::REQUIRED_ARGUMENT],
+ ["--mark-subject", GetoptLong::NO_ARGUMENT],
["--list-clean", GetoptLong::NO_ARGUMENT],
["--list-spam", GetoptLong::NO_ARGUMENT],
["--show-db-status", GetoptLong::NO_ARGUMENT],