[Mew-Win32 01327] Re: 日本語 pick pattern

[Shun-ichi GOTO]

後藤＠太陽計測です

なんか、この話題は真剣に追いかけてなかったから、
どのバージョンで問題で、どの環境でよいのか、
どういうところが問題なのかがよくわかってなかったりします (^^;;


>>>>> at Thu, 08 Apr 1999 16:49:04 +0900 (JST)
>>>>> 堀口 <kyota at example.com> said,

堀口> C のパッチが×なら elisp のパッチ(じゃないけど)はどうでしょう. 内
堀口> 容は添付ファイルです.

堀口>  やってることは C のパッチと同じです. 1.00 オリジナル版で試したら
堀口> これでいけそうですがどうですか?  20.2 at example.com(Meadow1.00),
堀口> Mule19.28 at example.com では使えるようですが..

＃なんか同じコードを2つも書かれているのが気になる。

Meadowでこの問題が明るみになってからは、私はこんな感じにして使ってたりします。

＃ memq ... のところを増やせば対応も増やせましょう

(defadvice start-process (before mew (name buffer program &rest args) activate)
  "Convert all argument to filename coding system (for Win32 environments).
This advice is works only when major mode of current buffer is 
mew-summary-mode or mew-virtual-mode."
  (let ((coding (mew-charset-to-cs "shift_jis")))
    (if (save-excursion
	  (set-buffer buffer)
	  (memq major-mode '(mew-summary-mode mew-virtual-mode)))
	(progn
	  (message "NOTE: start-process with coding conversion")
	  (setq args (mapcar '(lambda (x) (mew-cs-encode-string x coding))
			     args))))
    ))


P.S.
といっても日本語で検索することはほとんどない

P.P.S
とはいえ、必要に迫られるときもある。。。

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