[mew-dist 27021] mew-absfilter.el のパッチ (その二)

[Masayuki Ataka]

安宅です。

mew-dist 26886 にて、mew-absfilter のパッチを
投稿致しましたが、mew-use-suffix を t にした時
旧パッチでは不具合があるとのブログ記事を読みました。

これは、mew-expand-file ではなく mew-expand-msg を
使うことで解決できるとのことです。
メール末尾に mew-absfilter.el への修正パッチを付けました。


蛇足な話は、私のブログに書きました。
興味のある方は、ご笑覧下さい。
 - mew-absfilter 1.37 への patch その二
 http://at-aka.blogspot.com/2006/06/mew-absfilter-137-patch.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-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")