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

[Hideyuki SHIRAI ( 白井秀行 )]

From: Shun-ichi GOTO <gotoh at example.com> さん曰く
Subject: [Mew-dist 11729] Patch for kanji filename attachment problem
Message-ID: <19991209232343N.GOTOH at example.com>
Date: Thu, 9 Dec 1999 23:25:13 +0900

後藤> mew-win32 の方で漢字ファイル名で添付が出来ない、と言う報告がありました。
後藤> それに対するpatch です。(mew-1.95b10 用と mew-1.94.1 用)
                                                ~~~~~~~~~~
こっちのほうなのですが、後藤さんのパッチをみると

> --- mew-pick.el	1999/12/09 13:35:11	1.1.1.1
> +++ mew-pick.el	1999/12/09 13:59:40	1.2
> @@ -214,7 +214,7 @@
> 	  (setq arg "--dupchecktarget=message-id+subject"))
> 	  (t
> 	  (setq arg (format "--expression=%s" pattern))))
> -      (mew-piolet mew-cs-autoconv mew-cs-pick
> +      (mew-pioalet mew-cs-autoconv mew-cs-pick
> 	  (mew-im-call-process nil mew-prog-imgrep
> 
> --- mew-scan.el	1999/12/09 13:36:45	1.1.1.2
> +++ mew-scan.el	1999/12/09 13:59:44	1.2
> @@ -127,7 +127,7 @@
> 	      (setq mew-summary-buffer-config mew-config-imget)
> 	      (setq mew-summary-buffer-error nil)
> 	      (setq mew-summary-buffer-wrong-pws nil)
> -	    (mew-piolet read mew-cs-pick
> +	    (mew-pioalet read mew-cs-pick
> 	       (setq mew-summary-buffer-process

引数がひとつ足りないような気がするんですけど。。。(目視確認)


(以下本題) ちょっと気が早い気もするのだけど、

後藤> * imgrep および imls --grep している部分を mew-piolet から mew-pioalet
後藤>   に変更した。mew-pioalet が必要なのは他にもあるかな？

後藤さんのパッチが採用されるあかつきには、こちらもぜひ一緒にお願
いします。

# 一行分 offset が発生するんですが、気にしないで下さい。

-- 
白井秀行 (mailto:shirai at example.com)
-------------- next part --------------
*** mew-nmz.el	1999-11-24 11:39:41+09	1.3
--- mew-nmz.el	1999-12-10 12:30:32+09
***************
*** 725,732 ****
  		 (message "Listing %s ..." vfolder)
  		 (setq mew-summary-buffer-start-point (point))
  		 (setq mew-summary-buffer-string nil) ;; just in case
! 		 (mew-piolet
! 		  mew-cs-virtual mew-cs-pick
  		  (setq mew-summary-buffer-process
  			;; imls --namazu=yes --grep=pattern --src=namazu's index,... number
  			(apply (function start-process)
--- 726,733 ----
  		 (message "Listing %s ..." vfolder)
  		 (setq mew-summary-buffer-start-point (point))
  		 (setq mew-summary-buffer-string nil) ;; just in case
! 		 (mew-pioalet
! 		  mew-cs-virtual mew-cs-pick mew-cs-pick
  		  (setq mew-summary-buffer-process
  			;; imls --namazu=yes --grep=pattern --src=namazu's index,... number
  			(apply (function start-process)
***************
*** 997,1004 ****
  	  (setq prog-args (append mew-nmz-prog-args
  				  (list pattern)
  				  (list namazu-dir)))
! 	  (mew-piolet
! 	   mew-cs-autoconv mew-cs-pick
  	   (apply (function call-process)
  		  mew-nmz-prog nil t nil prog-args))
  	  (goto-char (point-min))
--- 998,1005 ----
  	  (setq prog-args (append mew-nmz-prog-args
  				  (list pattern)
  				  (list namazu-dir)))
! 	  (mew-pioalet
! 	   mew-cs-autoconv mew-cs-pick mew-cs-pick
  	   (apply (function call-process)
  		  mew-nmz-prog nil t nil prog-args))
  	  (goto-char (point-min))
***************
*** 1037,1044 ****
  	(setq prog-args (append mew-nmz-prog-args
  				(list pattern)
  				(car nmzdirs)))
! 	(mew-piolet
! 	 mew-cs-autoconv mew-cs-pick
  	 (apply (function call-process)
  		mew-nmz-prog nil t nil prog-args))
  	(goto-char (point-min))
--- 1038,1045 ----
  	(setq prog-args (append mew-nmz-prog-args
  				(list pattern)
  				(car nmzdirs)))
! 	(mew-pioalet
! 	 mew-cs-autoconv mew-cs-pick mew-cs-pick
  	 (apply (function call-process)
  		mew-nmz-prog nil t nil prog-args))
  	(goto-char (point-min))