[mew-dist 17974] Re: traving Korea

[Shun-ichi TAHARA ( 田原 俊一 )]

From: Shun-ichi TAHARA (田原 俊一) <jado at example.com>
Message-Id: <20010707.123610.640915491.jado at example.com>

> で、ということは、C-uC-cC-l のプロンプトに、何か気の効いたことを書いて
> やった方がいいかしら。
> 
> (read-coding-system "Coding-system (auto): ")
> 
> みたいな。

ふとupdateしてみると、これよりももっと気の効いたプロンプトが出るように
なってますね。

ついでですので、こんなのはどうでしょうか?
--
田原 / jado at example.com

diff -rc mew/mew-edit.el mew-2.0-pre1-010707/mew-edit.el
*** mew/mew-edit.el	Sun Jul  8 00:59:47 2001
--- mew-2.0-pre1-010707/mew-edit.el	Sun Jul  8 01:04:09 2001
***************
*** 354,360 ****
  	      (setq tocs (or (read-coding-system prompt) mew-cs-autoconv)))
  	     (t
  	      (setq tocs mew-cs-autoconv)
! 	      (setq prompt (format "%s: " orig-lang))
  	      (setq lang (read-language-name nil prompt orig-lang))
  	      (set-language-environment-coding-systems lang)))
  	    (mew-cs-decode-region start (point-max) tocs)
--- 354,360 ----
  	      (setq tocs (or (read-coding-system prompt) mew-cs-autoconv)))
  	     (t
  	      (setq tocs mew-cs-autoconv)
! 	      (setq prompt (format "Language (%s): " orig-lang))
  	      (setq lang (read-language-name nil prompt orig-lang))
  	      (set-language-environment-coding-systems lang)))
  	    (mew-cs-decode-region start (point-max) tocs)