2008年5月30日

[mew-dist 28456] popfile and mew

坂本です。

(Meadow-version)
-->"Meadow-3.01-dev (TSUBO-SUMIRE)"
(emacs-version)
-->"GNU Emacs 22.2.1 (i386-mingw-nt5.1.2600)
of 2008-05-21 on CFR3
(mew-version-show)

-->"Mew version 6.0.51"

で、Mewからpopfileを使おうとしているのですが、少し引っかかっています。
iして、メールを取ってからspamメールに対して+trashへのoマークをつけようとここら辺
http://kobayats.seeds-man.com/note/index.php?Mew%2FPOPFile
あたりを参考に以下のようなコードを.mew.elの一番最後に入れているのですが、iでメール
をpopでとってくると
"error in pross args out of range +inbox"
みたいなメッセージが出て、C-c C-kでプロセスをキルしないと動けなくなりまし
た。
なお、この部分を1行ずつeval-regionしてからiすると成功することもありま
す(しないことのほうが多い)。
問題の.mew.elに入れたコードは以下です。

;; spam filtering
;;
;; SPAM filter
;;
(defun mew-spam-popfile (val)
(let ((case-fold-search t))
(if (string-match "^spam" val) "+trash")))

(setq mew-scan-fields (delete mew-spam: mew-scan-fields))
(setq mew-spam: "X-Text-Classification:")
(setq mew-scan-fields (append mew-scan-fields (list mew-spam:)))

(setq mew-inbox-action-alist
'(("X-Text-Classification:" mew-spam-popfile)))

このコードだと何か問題があるのでしょうか?後、この問題を解決するために何
か必要な情報とかありますでしょうか?
よろしくお願いします。
--
Mitsugu Sakamoto, ARGV
mitsugu@xxxxx
Weblog: http://d.hatena.ne.jp/mitsugusakamoto/


投稿者 xml-rpc : 2008年5月30日 22:27
役に立ちました?:
過去のフィードバック 平均:(0) 総合:(0) 投票回数:(0)
本記事へのTrackback: http://hoop.euqset.org/blog/mt-tb2006.cgi/73521
トラックバック
コメント
コメントする




画像の中に見える文字を入力してください。