[mew-win32 03937] Re: mewpick について

[Shinichi IIDA ( 飯田慎一 )]

	飯田です．

mewpick について，経過報告させて頂きます．

In article <20030709.100549.47217686.shirai at example.com>,
 「[mew-win32 03932] Re: mewpick について」,
   "Hideyuki SHIRAI (白井秀行) <shirai at example.com>" writes:

> > Meadow 2.00b2(Netinstall) で Mew 4.0.54 を使用しております．
...snip
> この shift_jis-unix の部分をいろいろと変えれば動く組合わせが見つ
> かるかしら。
> 
> (setq mew-cs-database-for-arg
>       '((iso-2022-jp . shift_jis-unix) ;; <= これを変えて実験
> 	(iso-2022-kr . euc-kr-unix)))

mew-cs-database-for-arg の iso-2022-jp のコードが euc-jp,
shift_jis, iso-2022-jp のどの場合でも検索出来るように，SAITO
Takuya <reed at example.com> さんの方で修正して頂きまし
た．[mew-win32 03933] の patch と以下の patch で動作確認しま
した．

--------------------------------------------------------------
--- mewpick.orig        2003-07-12 19:14:26.000000000 +0900
+++ mewpick     2003-07-12 19:14:04.000000000 +0900
@@ -1,4 +1,4 @@
-#!/usr/bin/ruby -Ke
+#!/usr/bin/ruby
 #
 # mewpick - MH format mail (1 file is 1 mail) picker.
 #
@@ -76,6 +76,7 @@
 NAMAZU_DIR = '~/Namazu/Mail'
 #################################################

+$KCODE = 'EUC'

 require "date"
 require "parsedate"
--------------------------------------------------------------

この他にも，少し変更を加えて下さったそうなので，
http://reed1200.tripod.co.jp/emacs/lisp/mewpick
からご参照下さい．

また，SAITO Takuya <reed at example.com> さんから，以下
のようなコメントも頂いたのですが，meadow-users-jp ML の方で
質問した方が良いでしょうか．

宜しくお願いします．

In article <20030716.000945.71088628.reed at example.com>,
 「Re: mewpick について」,
   "SAITO Takuya <reed at example.com>" writes:

> これは、mw32script.el のおかげのようです。
> mewpick arg
> を実行しようとすると mewpick の一行目を見て ruby script であることを知り、
> ruby.exe [-Ke] mewpick arg
> を実行するように変更してくれています。
...snip
> mw32script.el を読んで、原因が分かったような気がします。
> 
> mw32script-resolve-script が返す値はマルチバイト表現なので、
> general-process-argument-editing-function で
> 
> (mapconcat (function concat)
> 	   (list "-Ke"			;これがマルチバイト表現
> 		 "path\\to\\mewpick"
> 		 (mew-cs-encode-arg "検索文字")
> 		 ...)
> 	   " ")
> 
> のようなものが行われたときに (mew-cs-encode-arg "検索文字") が
> マルチバイトに変換されて、壊れます。
> 
> なので、今回のケースに限っては
> 
> --- mw32script.el.orig  2003-07-15 23:37:34.000000000 +0900
> +++ mw32script.el       2003-07-15 22:36:04.000000000 +0900
> @@ -94,6 +94,7 @@
>      (unwind-protect
>         (save-excursion
>           (set-buffer buf)
> +         (set-buffer-multibyte nil)
>           (condition-case nil
>               (progn
>                 (let ((coding-system-for-read 'raw-text))
> 
> で直ると思います。
> ただ、mw32script-resolve-script が返すものに日本語が含まれるような場合には
> まずいかもしれませんので、もう少し考える必要がありそうです。
> 
> # 考えても分からないような気もするので、これ以上は mew-win32 なり Meadow なり
> # の ML で聞いた方がいいと思います。
> 
> -- 
> SAITO Takuya <reed at example.com>

--
Shinichi IIDA (飯田慎一)
 (e-mail:namkesh at example.com)