[mew-dist 18180] mew-summary-auto-refile

[OBATA Noboru]

mew-summary-auto-refile で、変なところに `o' のマークがついてし
まいます。実際の refile の動作に支障はない模様ですが。

例えば次のような summary バッファで、

----
    1 M01-07-24 Tu 09:16  Kazu Yamamoto     8k  [mew-dist 18178] man
    2 M01-07-24 Tu 10:10  ISOBE Norikazu    7k  [mew-dist 18179] Re: man
    3  01-07-23 Mo 18:28  Stephen Taylor    2k  Re: Can't compile helloworld.C
----

メッセージ 1 の上で `.' (mew-summary-analyze-again) などを押して
パート番号を表示させます。

----
    1 M01-07-24 Tu 09:16  Kazu Yamamoto     8k  [mew-dist 18178] man
     2  Text/Plain(us-ascii)                                      mewls.1
     3  Text/Plain(us-ascii)                                      mewencode.1
    2 M01-07-24 Tu 10:10  ISOBE Norikazu    7k  [mew-dist 18179] Re: man
    3  01-07-23 Mo 18:28  Stephen Taylor    2k  Re: Can't compile helloworld.C
----

そのまま、M-o (mew-summary-auto-refile) を実行すると、メッセージ 
1 のパート番号 2 と 3 にも `o' のマークがついてしまいます。

----
    1oM01-07-24 Tu 09:16  Kazu Yamamoto     8k  [mew-dist 18178] man
     2o Text/Plain(us-ascii)                                      mewls.1
     3o Text/Plain(us-ascii)                                      mewencode.1
    2oM01-07-24 Tu 10:10  ISOBE Norikazu    7k  [mew-dist 18179] Re: man
    3o 01-07-23 Mo 18:28  Stephen Taylor    2k  Re: Can't compile helloworld.C
----

添付のパッチのようにすればいいのでしょうか。

-- 
小幡 昇 (noboru at example.com)
-------------- next part --------------
--- mew-refile.el~	Mon Jul 23 21:34:06 2001
+++ mew-refile.el	Mon Jul 23 22:08:07 2001
@@ -594,8 +594,9 @@
    (mew-summary-not-in-draft
     (let ((after-change-functions nil)
 	  (mew-use-highlight-x-face nil)
-	  (lines (mew-count-lines (point-min) (point-max)))
-	  (line 1) (mark nil) msg)
+	  (line 1) (mark nil) lines msg)
+      (mew-decode-syntax-delete)
+      (setq lines (mew-count-lines (point-min) (point-max)))
       (cond
        (mew-mark-review-only
 	(setq msg (format "Refile all messages marked with '%c'? "