[mew-dist 28456] popfile and mew

[Mitsugu SAKAMOTO]

坂本です。

(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でプロセスをキルしないと動けなくなりまし
た。
なお、この部分を１行ずつ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 at example.com
Weblog: http://d.hatena.ne.jp/mitsugusakamoto/