先日 mew-absfilter.el が github に公開されたと書いた。
このたび、その mew-absfilter.el が mew-contrib (@github) に含まれることになった。mew-contrib は Mew を便利に使うために有志が公開した mew のための EmacsLisp を含めたリポジトリー。管理者は Mew の開発者・山本さん。
mew-contrib には、スパム・フィルターである mew-absfilter の他にも、mew から Namazu 検索するための mew-nmz、mew からウェブ・ブラウザーを開くための mew-browse などが含まれている。
Mew を使う人には、mew-contrib を是非チェックして欲しい。
Infoseek のウェブ・サービス終了とともに mew-absfilter.el のウェブ・サイトも消えた。mew-absfilter.el の配布サイトが Infoseek のウェブ・サービス上で公開されていたため。
その、mew-absfilter.el。github で改めて公開されることになった。
作者の Saito さんには感謝。
今はまだ mew-absfilter.el の説明など少ないけれど、次第に充実していくことと思う。
Mew という Emacs 用のメール・ソフトがある。2010-01-05、この Mew がバージョン管理ツールを CVS から git へと変更した。ニュースとしては遅いけど、Mew はぼくにとってとても影響のあるツールなのでご紹介。
ソースコードの入手法は、git の普段の手順通り。
$ git clone http://github.com/kazu-yamamoto/Mew.git
最近は、github のおかげか Git を使う開発者が多くなってきたね。分散バージョン管理は、サーバーとの通信なしで開発が進められるので便利。嬉しいなぁ。
Mew でスパム・フィルター bsfilter を走らせる Elisp mew-absfilter.el のお話。
上記エントリーの続き。
パッチその三をあてると、
(setq mew-use-suffix nil) (setq mew-suffix ".mew")
な条件で、スパム・フィルターがメールを見つけられないバグがあることを発見した。mew-absfilter.el 1.37 に対するパッチを公開する。
※パッチその三をあててる方は、逆パッチしてから下記パッチをあてられたし。
--- mew-absfilter.el.org 2005-05-17 11:54:00.000000000 +0900
+++ mew-absfilter.el 2007-01-16 13:06:26.000000000 +0900
@@ -112,7 +112,7 @@
;; spam check
(defun mew-absfilter-collect-message-region (begin end)
- "Returns a list of message number in region."
+ "Returns a list of message number or number.suffix in region."
(let (msgs)
(save-excursion
(save-restriction
@@ -121,7 +121,7 @@
(while (not (eobp))
(when (and (mew-summary-markable)
(mew-sumsyn-match mew-regex-sumsyn-short))
- (push (mew-sumsyn-message-number) msgs))
+ (push (mew-msg-get-filename (mew-sumsyn-message-number)) msgs))
(forward-line))))
(nreverse msgs)))
@@ -178,8 +178,8 @@
(set-buffer vfolder)
(save-excursion
(dolist (msg msgs)
- (if (or (re-search-forward (mew-regex-sumsyn-msg msg) nil t)
- (re-search-backward (mew-regex-sumsyn-msg msg) nil t))
+ (if (or (re-search-forward (mew-absfilter-regex-sumsyn-msg msg) nil t)
+ (re-search-backward (mew-absfilter-regex-sumsyn-msg msg) nil t))
(mew-absfilter-summary-spam-one 'no-msg)
;; if msg is not found, try to mark in physical folder
(push msg spam)))))))
@@ -187,10 +187,16 @@
(set-buffer case:folder)
(save-excursion
(dolist (msg spam)
- (when (or (re-search-forward (mew-regex-sumsyn-msg msg) nil t)
- (re-search-backward (mew-regex-sumsyn-msg msg) nil t))
+ (when (or (re-search-forward (mew-absfilter-regex-sumsyn-msg msg) nil t)
+ (re-search-backward (mew-absfilter-regex-sumsyn-msg msg) nil t))
(mew-absfilter-summary-spam-one 'no-msg))))))))
+(defun mew-absfilter-regex-sumsyn-msg (msg)
+ (mew-regex-sumsyn-msg
+ (if (and mew-use-suffix mew-suffix)
+ (substring msg 0 (- (length mew-suffix)))
+ msg)))
+
(defun mew-absfilter-sentinel (process event)
;; exit status of "bsfilter --list-spam"
;; 0: some spams are found
@@ -224,7 +230,7 @@
(when (mew-sumsyn-match mew-regex-sumsyn-short)
(let* ((msg (mew-sumsyn-message-number))
(case:folder (mew-sumsyn-folder-name))
- (file (mew-expand-folder case:folder msg)))
+ (file (mew-absfilter-expand-msg case:folder msg)))
(when (eq (mew-summary-get-mark) mew-absfilter-mark-spam)
(mew-summary-undo))
(unless mark-only
@@ -239,12 +245,20 @@
(when (mew-sumsyn-match mew-regex-sumsyn-short)
(let* ((msg (mew-sumsyn-message-number))
(case:folder (mew-sumsyn-folder-name))
- (file (mew-expand-folder case:folder msg)))
+ (file (mew-absfilter-expand-msg case:folder msg)))
(mew-absfilter-summary-spam-one)
(unless mark-only
(mew-absfilter-add-spam (list file))
(message "Learned as spam"))))))
+(defun mew-absfilter-expand-msg (folder msg)
+ "Expand message MSG in FOLDER.
+Function `mew-expand-new-msg' is defined after Mew 4.2.53.
+Use `mew-expand-folder' iff `mew-expand-new-msg' is not available."
+ (if (fboundp 'mew-expand-new-msg)
+ (mew-expand-new-msg folder msg)
+ (mew-expand-folder folder msg)))
+
(defun mew-absfilter-mark-learn-clean (&optional mark-only)
"Learn all messages marked with '*' as clean (not spam)."
(interactive "P")
Mew でスパム・フィルター bsfilter を走らせる Elisp mew-absfilter.el のお話。本ブログで、mew-absfilter.el を最新の Mew (4.2.53 以降) に追随させる patch を公開していたのだけど、バグがあった。具体的には
(setq mew-use-suffix t) (setq mew-suffix ".eml")
という設定に対して、mew-absfilter.el が bsfilter を上手く走らせられないというバグ。これは、保存したメールに拡張子 .eml を付けるという設定。拡張子を付けた時に、mew-absfilter.el が拡張子のついたメールを bsfilter に渡せなくなっていた。
この問題を修正するパッチを、問記事の末尾に載せる。対象は素の mew-absfilter.el 1.37。本ブログで提供している古い patch を当ててる方は、逆パッチして下さい。
mew-absfilter.el の設定、前パッチでの修正点 etc... は過去記事を参照されたし。
--- mew-absfilter.el.org 2005-05-17 11:54:00.000000000 +0900
+++ mew-absfilter.el 2006-09-29 04:25:09.000000000 +0900
@@ -112,7 +112,7 @@
;; spam check
(defun mew-absfilter-collect-message-region (begin end)
- "Returns a list of message number in region."
+ "Returns a list of message number or number.suffix in region."
(let (msgs)
(save-excursion
(save-restriction
@@ -121,7 +121,7 @@
(while (not (eobp))
(when (and (mew-summary-markable)
(mew-sumsyn-match mew-regex-sumsyn-short))
- (push (mew-sumsyn-message-number) msgs))
+ (push (mew-msg-get-filename (mew-sumsyn-message-number)) msgs))
(forward-line))))
(nreverse msgs)))
@@ -178,8 +178,8 @@
(set-buffer vfolder)
(save-excursion
(dolist (msg msgs)
- (if (or (re-search-forward (mew-regex-sumsyn-msg msg) nil t)
- (re-search-backward (mew-regex-sumsyn-msg msg) nil t))
+ (if (or (re-search-forward (mew-absfilter-regex-sumsyn-msg msg) nil t)
+ (re-search-backward (mew-absfilter-regex-sumsyn-msg msg) nil t))
(mew-absfilter-summary-spam-one 'no-msg)
;; if msg is not found, try to mark in physical folder
(push msg spam)))))))
@@ -187,10 +187,16 @@
(set-buffer case:folder)
(save-excursion
(dolist (msg spam)
- (when (or (re-search-forward (mew-regex-sumsyn-msg msg) nil t)
- (re-search-backward (mew-regex-sumsyn-msg msg) nil t))
+ (when (or (re-search-forward (mew-absfilter-regex-sumsyn-msg msg) nil t)
+ (re-search-backward (mew-absfilter-regex-sumsyn-msg msg) nil t))
(mew-absfilter-summary-spam-one 'no-msg))))))))
+(defun mew-absfilter-regex-sumsyn-msg (msg)
+ (mew-regex-sumsyn-msg
+ (if mew-suffix
+ (substring msg 0 (- (length mew-suffix)))
+ msg)))
+
(defun mew-absfilter-sentinel (process event)
;; exit status of "bsfilter --list-spam"
;; 0: some spams are found
@@ -224,7 +230,7 @@
(when (mew-sumsyn-match mew-regex-sumsyn-short)
(let* ((msg (mew-sumsyn-message-number))
(case:folder (mew-sumsyn-folder-name))
- (file (mew-expand-folder case:folder msg)))
+ (file (mew-absfilter-expand-msg case:folder msg)))
(when (eq (mew-summary-get-mark) mew-absfilter-mark-spam)
(mew-summary-undo))
(unless mark-only
@@ -239,12 +245,20 @@
(when (mew-sumsyn-match mew-regex-sumsyn-short)
(let* ((msg (mew-sumsyn-message-number))
(case:folder (mew-sumsyn-folder-name))
- (file (mew-expand-folder case:folder msg)))
+ (file (mew-absfilter-expand-msg case:folder msg)))
(mew-absfilter-summary-spam-one)
(unless mark-only
(mew-absfilter-add-spam (list file))
(message "Learned as spam"))))))
+(defun mew-absfilter-expand-msg (folder msg)
+ "Expand message MSG in FOLDER.
+Function `mew-expand-new-msg' is defined after Mew 4.2.53.
+Use `mew-expand-folder' iff `mew-expand-new-msg' is not available."
+ (if (fboundp 'mew-expand-new-msg)
+ (mew-expand-new-msg folder msg)
+ (mew-expand-folder folder msg)))
+
(defun mew-absfilter-mark-learn-clean (&optional mark-only)
"Learn all messages marked with '*' as clean (not spam)."
(interactive "P")
随分遅れた記事になってしまうけど、Emacs 上の MUA (メール・ソフト) である Mew の最新ベータ版 (バージョン 5.1.50) が 2006-08-16 にリリースされた。本バージョンは、来たるべき安定版 Mew 5.2 へのベータ開発版。
バージョン 5.1.50 では、大きな変更が三つ加えられた。一つは、添付された JPEG/PNG 画像の自動縮小表示記能。もう一つは、Hyper Estraier のサポート。最後の一つが、S/MIME のフル・サポート。
画像の自動縮小機能を使うには、netpbm が必要。netpbm は、Linux なら大低インストールされている画像変換ツール。画像変換には、convert を含む ImageMagick も有名だけど、netpbm は Windows 版も提供されている事が大きな強み。
Hyper Estraier は、国産の全文検索システム。同種のツールに Namazu がある。今回の Hyper Estraier サポートは、Mew からメールの検索を Hyper Estraier 経由で行なおうというもの。Mew にも検索機能はあるけど、grep をベースにしたものでスピードが遅い。
設定は下記ページを参照のこと。
S/MIME は、PGP と並ぶメールの暗号規格 (ちょっと、この説明きびしいな... ^^;)。GnuPG に含まれる gpgsm コマンドを利用して、メールの暗号化が行なえる。
本当は、新機能のレビューをしっかりやりたいんだけど、Hyper Estraier は使ったことがない。S/MIME は送る相手がいなくて、検証が出来ない。画像の自動縮小は、そのまんまの機能だしね :p というわけで、新機能をさらっと紹介しただけ。
それでも、Mew が S/MIME をサポートしてないから敬遠してる人達がいると聞く。そんな人達の福音になれば :)
Mew でスパム・フィルター bsfilter を走らせるスクリプト mew-absfilter.el にバグがあったので、パッチを公開する。
Mew と bsfilter、mew-absfilter.el の説明、インストール方法、使い方については前記事を参照されたし。
前記事では、関数 mew-expand-folder の引数の扱いが変わったことから、新設の関数 mew-expand-file を使うように修正するパッチも併せて公開していた。
けれど、K4Family さんの報告によると、前パッチを適用しても問題が起こるという。以下、該当記事の引用:
mew 5 にして、
(setq mew-use-suffix t)とすると拡張子が邪魔をして、bsfilter の db が更新されない orz
この問題を解決するべく、K4Family さんはパッチも公開しておられる。彼のパッチでは、mew-expand-file の代わりに mew-expand-msg を使う。正確には、mew-expand-msg, mew-expand-file, mew-expand-folder の順に関数の有無をチェックし、存在する関数を使う。
Mew のソースを見た所、mew-expand-msg は mew-expand-file を補う動作をすることが分かった。そこで、mew-expand-msg と mew-expand-folder のみを使うよう新しくパッチを書いた。新パッチでは、同様の問題が起きた時に保守性を上げるため、mew-absfilter-expand-msg という関数を新設した。
新パッチは、mew-absfilter.el 最新版 1.37 用。前記事のパッチを当てておられる方は、パッチ済みのファイルを削除し、もう一度 mew-absfilter.el の最新版をダウンロードした上で下記パッチを当てて下さい。
--- mew-absfilter.el.org 2005-05-17 11:54:00.000000000 +0900
+++ mew-absfilter.el 2006-06-11 15:35:27.112181280 +0900
@@ -224,7 +224,7 @@
(when (mew-sumsyn-match mew-regex-sumsyn-short)
(let* ((msg (mew-sumsyn-message-number))
(case:folder (mew-sumsyn-folder-name))
- (file (mew-expand-folder case:folder msg)))
+ (file (mew-absfilter-expand-msg case:folder msg)))
(when (eq (mew-summary-get-mark) mew-absfilter-mark-spam)
(mew-summary-undo))
(unless mark-only
@@ -239,12 +239,20 @@
(when (mew-sumsyn-match mew-regex-sumsyn-short)
(let* ((msg (mew-sumsyn-message-number))
(case:folder (mew-sumsyn-folder-name))
- (file (mew-expand-folder case:folder msg)))
+ (file (mew-absfilter-expand-msg case:folder msg)))
(mew-absfilter-summary-spam-one)
(unless mark-only
(mew-absfilter-add-spam (list file))
(message "Learned as spam"))))))
+(defun mew-absfilter-expand-msg (folder msg)
+ "Expand message MSG in FOLDER.
+Function `mew-expand-msg' is defined after Mew 4.2.53.
+Use `mew-expand-folder' iff `mew-expand-msg' is not available."
+ (if (fboundp 'mew-expand-msg)
+ (mew-expand-msg folder msg)
+ (mew-expand-folder folder msg)))
+
(defun mew-absfilter-mark-learn-clean (&optional mark-only)
"Learn all messages marked with '*' as clean (not spam)."
(interactive "P")
2006-05-25 に、Mew のベータ最新版 5.0.52 がリリースされた。Mew は Emacs 上で動く MUA (メーラー) ね。5.0.52 の目玉はマスター・パスワード機能。その紹介を順を追ってしてみやう。
と、その前に、リリース・ノートとマスター・パスワードへのリンクを書いとかう。
Mew は、基本的にパスワードを覚えない方針を取ってきた。メールというものは、プライバシーの塊だからね。洩れてはいけない情報もあるし、セキュリティーを高めるのに越したことはない。その代わり、メールの送受信の都度、パスワードの入力を求められた。
これでは、いかにも煩雑ということで、パスワードをメモリー上に一時保存する機能が作られた。一定期間内であれば、パスワードの入力を省くことができる。時間内にメールの送受信をすれば、パスワード保存時間が延長される (デフォールトは 20 分)。上手く繰り返せば、最初に一回だけパスワードを入力するだけで事足りるようになる。
必設定ファイル等に書き出さないのは、そのファイルが第三者の手に渡ったら、パスワードが盗まれてしまうから。
ただ、最近はメール・アカウントが増えて煩雑になってきた。Gmail やら、Windows Live Mail やら、Yahoo Mail やら、Skype やら、会社のメール・アドレスやら... ぼくは、今思いつく限りでも、6 つのフリーメールのアカウントを持ってる。これらのメールを受信するのに、パスワードを一々入力するのは面倒。
そこで、各々のパスワードをファイルに保存して暗号化するアイデアが生まれた。この方法なら、パスワードの数が 100 個に増えようが問題ない。ファイルが盗まれても、暗号化されてるので (比較的) 安全。覚えるパスワードは、パスワード用ファイルの暗号化を解くためのパスワード一つだけ。このパスワードをマスター・パスワードという。
Thunderbird や Outlook なんかだと、Windows にログインしてから席を外した間に、第三者がパスワードを盗むことができちゃう。Mew のマスター・パスワード方式なら、ログイン後に席を外しても、メールのパスワードは盗まれない。セキュリティーがより強固といえるでせう。といっても、マスワー・パスワード入力後に席を外したら、パスワードを盗まれる可能性はあるので過信は禁物。
ともかく、メール・アカウントが増えるこれからは、あると便利な機能だね。
パスワード・ファイルの暗号化に GnuPG を利用する。GnuPG がインストールされていなければ、入れておく。
設定は次の一行を加えるだけ。
(setq mew-use-master-passwd t)
Mew の起動時にマスター・パスワードを聞かれるので入力。万が一、マスター・パスワードを忘れちゃったら、~/Mail/.mew-passwd.gpg を削除する。覚えさせたパスワードは全部失われるけど、そこは涙を呑むしかない。
ああ、もちろん、Mew 5.0.52 以上が必要ですよ。
ぼくは、メーラー (MUA) に Mew を、スパム・フィルターに bsfilter を使ってる。
bsfilter はベイジアン・フィルタという種類のスパム・フィルター。Ruby で書かれていて、日本語が通る。ベイジアン・フィルタの詳しい説明は、Wikipedia の説明を参照されたし。
bsfilter のインストールは、本体 (bsfilter) をパスの通った場所に置くだけ。ここまでは簡単。問題は、Mew からどうやって bsfilter を使うか。これにはいくつか方法があって、ぼくは mew-absfilter.el というのを使ってる。
mew-absfilter.el は Mew から bsfilter を呼び出すツール。次のサイトから手に入る。
Mew でメールを取得すると、自動的に bsfilter を呼び出しスパム・フィルターを実行。スパムには ; というマークを付ける。x で ; マークの付いたスパムは削除される。ユーザーとしては、特に何もすることがないので便利。
時々、フィルターを潜り抜けるスパムがあったり、誤判定されたメールがあるので、フィルターに学習させなきゃいけない (まぁ、100% は、どんなツールでも無理だしね)。とりあえず、次の二つのキー操作を覚えておけばいい。
インストールは簡単。mew-absfilter.el を load-path 下に置いて、mew.el に次の二行を追加するだけ。
(require 'mew-absfilter) (mew-absfilter-mode 1)
Mew 4.2.53 より新しいバージョンで mew-absfilter.el を使うと、スパム学習のキー操作でエラーになる。というのも、Mew 4.2.53 以前は mew-expand-folder という関数でフォルダーもファイルも扱っていたのを、フォルダーは mew-expand-folder で、ファイルは mew-expand-file で扱うようにしませう。という風に変わったから。
簡単なパッチを書いたので、開発版 Mew で mew-absfilter.el を使う方はどうぞお使い下さい。
--- mew-absfilter.el.org 2005-05-17 11:54:00.000000000 +0900
+++ mew-absfilter.el 2006-04-05 12:18:08.742847765 +0900
@@ -224,7 +224,9 @@
(when (mew-sumsyn-match mew-regex-sumsyn-short)
(let* ((msg (mew-sumsyn-message-number))
(case:folder (mew-sumsyn-folder-name))
- (file (mew-expand-folder case:folder msg)))
+ (file (if (fboundp 'mew-expand-file)
+ (mew-expand-file case:folder msg)
+ (mew-expand-folder case:folder msg))))
(when (eq (mew-summary-get-mark) mew-absfilter-mark-spam)
(mew-summary-undo))
(unless mark-only
@@ -239,7 +241,9 @@
(when (mew-sumsyn-match mew-regex-sumsyn-short)
(let* ((msg (mew-sumsyn-message-number))
(case:folder (mew-sumsyn-folder-name))
- (file (mew-expand-folder case:folder msg)))
+ (file (if (fboundp 'mew-expand-file)
+ (mew-expand-file case:folder msg)
+ (mew-expand-folder case:folder msg))))
(mew-absfilter-summary-spam-one)
(unless mark-only
(mew-absfilter-add-spam (list file))
EH さんの紹介で Gmail のアカウントを手に入れた (EH さん、ありがとう!)。で、Mew 使いの T-Code 使いとしては、当然 Emacs 上で Gmail のメールを見たり書いたりしたいのだけど、この設定にかなり苦戦した。役に立つ事もあると思うので、その記録を残しておく。
Gmail に届いたメールを、POP でゲットして Mew で読みたい。Mew でドラフトを書いて、Gmail の SMTP からメールを発信したい。
常用のコンピューターはファイヤーウォールの中にある。今回は、ssh の port forward を使って対処した。仮に次のような環境にいるとして読んで下さい。
メール・アドレスは、スパム対策のため秘密。ここでは nemo@gmail.com とします (注: Gmail では 6 文字以下のメール・アカウントは作れない)。
まず、gmail 側の POP ポート 995 と SMTP ポート 465 を、foo.bar.ne.jp を経由して自分のマシンのポート 10995 と 10465 に ssh で port forward する。port forward は、ログインする度に必要?
$ ssh -f -N -L 10995:pop.gmail.com:995 foo.bar.ne.jp $ ssh -f -N -L 10465:smtp.gmail.com:465 foo.bar.ne.jp
Mew の設定は .mew.el に次の様に書く。
(setq mew-ssl-verify-level 0)
(setq mew-config-alist
'(;; config alist
("gmail"
("user" . "nemo")
("mail-domain" . "gmail.com")
("pop-user" . "nemo@gmail.com")
("pop-ssl" . t)
("pop-delete" . nil)
("pop-server" . "localhost")
("pop-ssl-port" . "10995")
("smtp-user" . "nemo@gmail.com")
("smtp-ssl" . t)
("smtp-server" . "localhost")
("smtp-ssl-port" . "10465")
)
("default"
("user" . "ataka")
("mail-domain" . "milk.free.mail.ne.jp")
... 以下略 )
))
以上で、設定はお終い。M-x mew でメールの送受信ができるようになるはず。Mew から送ったメールは、Gmail の「送信済みメール」の中に入る。ただし、From フィールドが Gmail 側の設定に上書きされてしまう。今の所、書き換えを抑制する方法はないようだ。
FC2 を使っていると、stunnel が動いてくれない。この問題は mew-dist ML でも議論されている ([mew-dist 25404] から始まるスレッド)。中村さんの報告によると、原因は Emacs から start-process されたプロセスが signal 1 を受け取って死んでしまう
ことにあるらしい。解決策は、次のような shell script を書いて
#!/bin/sh /usr/sbin/stunnel $@
~/bin に stunnel という名前で放り込んでおき、Mew からは .mew.el でパスを指定する。
(setq mew-prog-ssl "~/bin/stunnel")
FedoraCore3 でこの問題が fix されているのかどうか知らないが、逃げ道はあるという事だね。あと、mew-ssl-verify-level を 0 以外にした時の設定をしたいのだけど、やり方が分からない。調べはしたけど、無知が災いしてか見当もつかない。設定方法を知ってる方、教えて下さい。