[Mew-dist 11732] Re: Patch for kanji filename attachment problem

[Shun-ichi GOTO]

>>>>> at Fri, 10 Dec 1999 09:26:41 +0900
>>>>> 後藤 <gotoh at example.com> said,

後藤> わーん、それじゃぁ mule-{0,2,3}.el のマクロってわけにいきませんね。

後藤> {file-name,pathname}-coding-system のみを束縛する mew-alet() とかに
後藤> しましょか？

... じゃなくて、先のパッチに対して更にこれ、でいいかな。


Index: mew-mule2.el
===================================================================
RCS file: /usr/home/gotoh/Repository/mew-1.95/mew-mule2.el,v
retrieving revision 1.1.1.1.2.2
diff -u -r1.1.1.1.2.2 mew-mule2.el
--- mew-mule2.el	1999/12/10 01:18:00	1.1.1.1.2.2
+++ mew-mule2.el	1999/12/10 01:39:38
@@ -232,7 +232,8 @@
 (defmacro mew-pioalet (input output arg &rest body)
   (` (let ((call-process-hook nil)
 	   (default-process-coding-system
-	     (cons (, input) (, output))))
+	     (cons (, input) (, output)))
+	   (pathname-coding-system ,arg))
        (,@ body))))
 
 (defmacro mew-flet (&rest body)
Index: mew-mule3.el
===================================================================
RCS file: /usr/home/gotoh/Repository/mew-1.95/mew-mule3.el,v
retrieving revision 1.1.1.1.2.2
diff -u -r1.1.1.1.2.2 mew-mule3.el
--- mew-mule3.el	1999/12/10 01:18:00	1.1.1.1.2.2
+++ mew-mule3.el	1999/12/10 01:39:38
@@ -163,6 +163,7 @@
   `(let ((call-process-hook nil)
 	 (coding-system-for-read  ,read)
 	 (coding-system-for-write ,write)
+	 (pathname-coding-system ,arg)
 	 (file-name-coding-system ,arg))
      , at example.com))



--- Regards,
 Shun-ichi Goto  <gotoh at example.com>
   R&D Group, TAIYO Corp., Tokyo, JAPAN