[Mew-dist 14305] Re: utashiro special

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [Mew-dist 14297] utashiro special
Message-ID: <20000928.125000.78749282.kazu at example.com>
Date: Thu, 28 Sep 2000 12:52:03 +0900

> (2) 以下のパッチを当ると、検索コマンドとの API の雛形が利用できるよう
>     になります。現在は "grep" を起動しています。
> 
> 	"C-u ?" -> "keyword"
> 
>     API として、mew-prog-grep-* で十分かしら？ (不十分でしょうね。)

もう一つ付属のパッチをあてて、

(setq mew-prog-grep "jgrep") ;; こっちは Win32 でも動いた
(setq mew-prog-grep-opts '("-l")) 

とか

(setq mew-prog-grep "mg") ;; これぞ歌代さんスペシャルかしら
(setq mew-prog-grep-opts '("-j" "jis" "-l"))

すると日本語でも検索できました。

## 日本語以外は検索ツールもメールも持っていないのでどうなるかわ
## からないのですけど。

また、

prog mew-prog-grep-key-opt pattern mew-prog-opts msgs

という形式だと、融通が利かないので変えてしまいました。

あと、Windows では /dev/null で 'そんなファイルは無いよ' エラー
になりますけど、ユーザからは見えないので気にしないことにしましょう。

> (4) mew-coding-system-p のパッチも含まれています。

どうもです。(_ _)

-- 
白井秀行＠現実逃避ネタがたくさんあって楽しい (^^;

--- mew-pick.el.orig	Thu Sep 28 12:56:08 2000
+++ mew-pick.el	Thu Sep 28 17:10:10 2000
@@ -68,11 +68,10 @@
 	(if (= (length msgs) 1) (setq msgs (cons "/dev/null" msgs)))
 	(cd dir)
 	(mew-piolet
-	 mew-cs-text-for-read mew-cs-text-for-write
+	 mew-cs-text-for-read (mew-charset-to-cs (mew-charset-guess-string pattern))
 	 (apply (function call-process)
 		mew-prog-grep nil t nil
-		mew-prog-grep-key-opt pattern
-		(if mew-prog-grep-opts (append mew-prog-grep-opts msgs) msgs)))
+		(append mew-prog-grep-opts (list pattern) msgs)))
 	(goto-char (point-min))
 	(setq msgs nil)
 	(while (not (eobp))
--- mew-vars.el.orig	Thu Sep 28 12:56:08 2000
+++ mew-vars.el	Thu Sep 28 17:02:14 2000
@@ -1677,8 +1677,7 @@
 (defvar mew-prog-shell-arg   "-c")
 
 (defvar mew-prog-grep "grep")
-(defvar mew-prog-grep-key-opt "-e")
-(defvar mew-prog-grep-opts nil)
+(defvar mew-prog-grep-opts '("-e"))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;