[mew-dist 26923] Re: 検索

[Nobuya WATANABE]

渡邊と申します．

お世話になっております．

In message <20060422.012833.89773796.toshi.yamada at example.com>,
  Toshikazu YAMADA <toshi.yamada at example.com> wrote:

 > Spotlightでの検索が選択できませんでした。
 > (拡張子なしでないと使用できない状態です)

Emacs 22.0.50, CVS版 Mew (5.0.50), Mac OS X 10.4.6 で使っていますが，
.mew サフィックス付きに移行したところ，'k/' で検索結果が全く表示され
なくなってしまいました．
OS Xのメニューバー右にある「虫メガネ」からは，検索できていたので
ハックしてみたところ，次の patch で表示ができるようになりました．

--- N.Watanabe

--- CUT HERE ------ CUT HERE ------ CUT HERE ------ CUT HERE ---
--- mew-search.el.orig  2006-04-25 17:48:54.000000000 +0900
+++ mew-search.el       2006-04-25 18:04:30.000000000 +0900
@@ -267,7 +267,8 @@
 (defun mew-search-virtual-with-spotlight (pattern flds)
   (let* ((mpath (mew-expand-folder mew-folder-local))
         (mail-regex (regexp-quote (file-name-as-directory mpath)))
-        (regex (concat "^" mail-regex (file-name-as-directory "\\(.*\\)") "\\([0-9]+\\)$"))
+        (regex (concat "^" mail-regex (file-name-as-directory "\\(.*\\)")
+                       (format "\\([0-9]+\\)\\(%s\\)?$" mew-suffix)))
         (file (mew-make-temp-name))
         (prev "") (rttl 0) (n 1) crnt path)
     (unless flds (setq flds (list mew-folder-local)))