[mew-dist 27537] Re: Mew 5.2 release candidate 2

[INOUE Tomohiro]

井上です。

Tatsuya Kinoshita <tats at example.com> wrote:
> > > 例えばサーチコマンド (wdsgrep) が +draft の #1(.mew) などを拾ってしまう
> > > と、それ以降のファイルがコマンドでは探せているのにもかかわらず、Mew の
> > > インタフェースでは検索できない結果になります。
> > > 
> > > 添付パッチで WDS (Windows Desktop Search) 関係に関しては直したつもりで
> > > すが、その他のいくつかの mew-search-virtual-with-* についても同じ問題が
> > > ありそうです。
> > 
> > *-with-estと*-with-namazuは問題なさそうです。
> 
> *-with-spotlightと*-with-googleでは、*-with-wdsと同じような修正
> が必要?

以下の変更を、mew-search-virtual-with-(spotlight|google) にも適用するという
話ですよね。

--- mew-search.el.orig  2006-11-07 15:14:46.000000000 +0900
+++ mew-search.el       2006-12-24 01:03:10.756375000 +0900
@@ -477,14 +477,15 @@
        crnt)
    (mew-search-wds pattern path)
    (goto-char (point-min))
-    (while (looking-at regex)
-      (setq rttl (1+ rttl))
-      (setq crnt (match-string 1))
-      (delete-region (match-beginning 0) (match-beginning 2))
-      (when (not (string= crnt prev))
-       (beginning-of-line)
-       (insert "CD:" mew-folder-local crnt "\n"))
-      (setq prev crnt)
+    (while (not (eobp))
+      (when (looking-at regex)
+       (setq rttl (1+ rttl))
+       (setq crnt (match-string 1))
+       (delete-region (match-beginning 0) (match-beginning 2))
+       (when (not (string= crnt prev))
+         (beginning-of-line)
+         (insert "CD:" mew-folder-local crnt "\n"))
+       (setq prev crnt))
      (forward-line))
    (mew-frwlet
     mew-cs-text-for-read mew-cs-text-for-write


spotlight と google の環境で確認したわけではありませんが、特に副作用が
考えられないのならば同じように修正しておいた方が無難だと思います。

-- 井上 知洋