[mew-dist 26924] Re: 検索

[Toshikazu YAMADA]

最初の質問者の山田です。

 ありがとうございます。私のところでも、そのpatchでうまく動作する
ようになりました。感激です。

> 渡邊と申します．
> 
> お世話になっております．
> 
> 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)))