[mew-dist 26974] Re: 拡張子 .eml

[Shuichi KITAGUCHI]

北口です。

> 森村です。
> 
> At Wed, 10 May 2006 08:27:08 +0900 (JST),
> Kazu Yamamoto (山本和彦) <kazu at example.com> wrote:
> >あああ、mew-suffix は、.emacs で設定して下さい。.mew では反映されません。
> >
> >他の変数もそうですが、.emacs で設定する必要があるというこの制約は、近日
> >中に直します。(昔、アイディアを思いついていたのに、実装していなかっ
> >た。。。)
> 
> [mew-dist 26968] .emacs
> のメールの後、試してみました。問題ないようです。
> これで、かなり幸せになれました。

これ、そのままでうまくいっているでしょうか?
私のところでは、以下のパッチのようにパス名をクエリーに含める部分を
削らないと、うまくヒットしないように見えています。

Index: mew-search.el
===================================================================
RCS file: /cvsmew/mew/mew-search.el,v
retrieving revision 1.24
diff -u -r1.24 mew-search.el
--- mew-search.el	12 May 2006 08:47:46 -0000	1.24
+++ mew-search.el	12 May 2006 17:43:45 -0000
@@ -14,7 +14,7 @@
 
 (defvar mew-prog-spotlight "mdfind")
 (defvar mew-prog-wds       "wdsgrep.exe")
-(defvar mew-prog-google    "gdsgrep.rb")
+(defvar mew-prog-google    "gdgrep.rb")
 (defvar mew-prog-namazu    "namazu")
 
 (defvar mew-search-switch
@@ -348,12 +348,10 @@
 
 (defun mew-search-with-google (pattern folder)
   (let* ((path (mew-expand-folder folder))
-	 (rpath (mew-replace-character (substring path 2) ?/ ?\\))
-	 (pat (format "%s+\"%s\"" pattern rpath))
 	 msgs)
     (with-temp-buffer
       (mew-set-buffer-multibyte t)
-      (mew-search-google pat path)
+      (mew-search-google pattern path)
       (goto-char (point-min))
       (while (re-search-forward mew-regex-message-files5 nil t)
 	(setq msgs (cons (mew-match-string 1) msgs))

# 今Indexer作ろうとごちゃとちゃとやっているので、私の環境が正常
# なのかどうか、ちょっと自信がありません。インデックス件数は累積で
# 増えていくようで、ひどいことになっちゃってますし(汗

> gdsgrep.rb は、次のように変更するといけました。

似たような修正を行なったものが手元にありますので、公開しておきます。

  http://www.ysnb.net/kit/gdgrep-222.rb.bz2

なお、擬似Indexerの処理はもう不要だと思いますので、削りました。

# よってMew側のregister/unregisterの処理も不要ですが、そのあたりの
# 掃除はまた別途まとめて行ないます。

あと、mewsuffix.rbも拡張子名の変更に対応してありますので、良ければ
ご利用ください。

  http://www.ysnb.net/kit/mewsuffix-200.rb.bz2

  利用例:
  > ruby mewsuffix.rb -r Mail              (.mewから拡張子なしに変換)
  > ruby mewsuffix.rb -e eml Mail          (拡張子なしから.emlに変換)


--
Shuichi Kitaguchi // kit at example.com / ki at example.com