[mew-dist 26886] mew-absfilter のパッチ

[安宅 正之]

安宅です。

Mew から bsfilter を呼び出すツールの一つに
mew-absfilter.el という EmacsLisp があります。
  http://reed1200.at.infoseek.co.jp/mew/

最近の Mew の mew-expand-folder の変更に伴い
関数 mew-absfilter-learn-clean がエラーを吐く
不具合が出ていたのでパッチを書きました。

興味を持たれた方は、私のブログの記事をお読み下さい。
 - Mew と bsfilter と mew-absfilter.el
 http://at-aka.blogspot.com/2006/04/mew-bsfilter-mew-absfilterel.html

                                    ----Input with T-Code!
                         http://pop-club.hp.infoseek.co.jp
     Masayuki Ataka / 安宅 正之 (ataka at example.com)

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