[Mew-Win32 02305] Patch for [Q]ファイル名に日本語を含むファイルの添付

[Shun-ichi GOTO]

後藤＠太陽計測です

>>>>> at Thu, 09 Dec 1999 18:23:31 +0900 (JST)
>>>>> 後藤 <gotoh at example.com> said,

後藤> このパッチは正式なものではなく一時利用のものと考えて下さい。
後藤> コメント部にもあるように imgrep に若干影響がでます。
後藤> 例えばMeadow であれば英語および漢字(shift_jis)の検索(imgrep)はOK
後藤> ですが、それ以外となるとうまく検索できなくなるでしょう。
後藤> そのことを御承知おき下さい。

... と言うことで、マトモそうなパッチも作ってみました。

mew-piolet で file-name-coding-system に干渉するのを止めて、
新たに mew-alet (argument let 位の意味) を新設しました。

このmew-alet で括る必要があるのは imgrep だけだと思っているので、
mew-pick.el の該当部分をmew-alet で括りました。

いじょ

P.S.
先ほど送ったパッチの内容も含んでいます。

--- Regards,
 Shun-ichi Goto  <gotoh at example.com>
   R&D Group, TAIYO Corp., Tokyo, JAPAN

diff -u mew-1.95b10.orig/mew-mule0.el mew-1.95b10/mew-mule0.el
--- mew-1.95b10.orig/mew-mule0.el	Mon Aug 30 03:43:15 1999
+++ mew-1.95b10/mew-mule0.el	Thu Dec 09 09:44:27 1999
@@ -92,6 +92,9 @@
   (` (let ((call-process-hook nil))
        (,@ body))))
 
+(defmacro mew-alet (coding)
+  , at example.com)
+
 (defmacro mew-flet (&rest body)
   (` (let (jam-zcat-filename-list
 	   jka-compr-compression-info-list)
diff -u mew-1.95b10.orig/mew-mule2.el mew-1.95b10/mew-mule2.el
--- mew-1.95b10.orig/mew-mule2.el	Tue Dec 07 06:39:51 1999
+++ mew-1.95b10/mew-mule2.el	Thu Dec 09 09:44:21 1999
@@ -229,6 +229,9 @@
 	     (cons (, input) (, output))))
        (,@ body))))
 
+(defmacro mew-alet (coding)
+  , at example.com)
+
 (defmacro mew-flet (&rest body)
   (` (let ((file-coding-system          '*noconv*)
 	   (file-coding-system-for-read '*noconv*)
diff -u mew-1.95b10.orig/mew-mule3.el mew-1.95b10/mew-mule3.el
--- mew-1.95b10.orig/mew-mule3.el	Tue Dec 07 06:39:51 1999
+++ mew-1.95b10/mew-mule3.el	Thu Dec 09 09:44:14 1999
@@ -155,9 +155,12 @@
 
 (defmacro mew-piolet (read write &rest body)
   `(let ((call-process-hook nil)
- 	 (file-name-coding-system ,write) ;; for imgrep
 	 (coding-system-for-read  ,read)
 	 (coding-system-for-write ,write))
+     , at example.com))
+
+(defmacro mew-alet (coding)
+  `(let ((file-name-coding-system ,coding)) ;; for imgrep
      , at example.com))
 
 (defmacro mew-flet (&rest body)
diff -u mew-1.95b10.orig/mew-pick.el mew-1.95b10/mew-pick.el
--- mew-1.95b10.orig/mew-pick.el	Mon Nov 22 09:05:17 1999
+++ mew-1.95b10/mew-pick.el	Thu Dec 09 09:44:06 1999
@@ -216,8 +216,10 @@
 	(setq arg (format "--expression=%s" pattern))))
       (mew-piolet
        mew-cs-autoconv mew-cs-pick
-       (mew-im-call-process nil mew-prog-imgrep
-			    (format "--src=%s" folder) arg range))
+       (mew-alet
+	mew-cs-pick
+	(mew-im-call-process nil mew-prog-imgrep
+			     (format "--src=%s" folder) arg range)))
       (goto-char (point-min))
       (if (search-forward "imgrep: no message" nil t)
 	  (progn