Re: iso-2022-jp-3

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxxxxxxxx>]

From: Satomi Suzuki <pan@xxxxxxxxxxxxxxx> さん曰く
Subject: Re: iso-2022-jp-3
Message-ID: <wkd7f3khgp.fsf@xxxxxxxxxxxxxx>
Date: Fri, 8 Dec 2000 07:16:32 +0900

pan> >>>>> In [meadow-users-jp : No.2868] 
pan> >>>>> Masashi Kawai (河合正史) <botan@xxxxxxxxxxxxx> さま曰く
pan> >>>>> <wkitowuqvc.wl@xxxxxxxxxxxxxxxxxx>
pan> 
pan> > ;;確か、Mew は送信時に警告出してくれたような記憶が...

警告出すだけじゃなくて、全角に変換しますよ。

pan> > ;;と、wl もそういう機能が欲しいところ.
pan> 
pan> Nana-gnus の機能を応用したのがあったと思います。
pan> Wanderlust の岡田さんのページに設定方法が書いてあったような気がし
pan> ます。(多分)

## Mew から (水戸さん作)mew-lang-jp.el だけ貰ってきて使うという
## 手もありますが。。。

最近の Emacs では

japanese-zenkaku-region is an interactive compiled Lisp function in `japan-util'.
(japanese-zenkaku-region FROM TO &optional KATAKANA-ONLY)

Convert hankaku' chars in the region to Japanese `zenkaku' chars.
`Zenkaku' chars belong to `japanese-jisx0208'
`Hankaku' chars belong to `ascii' or `japanese-jisx0201-kana'.
Optional argument KATAKANA-ONLY non-nil means to convert only KATAKANA char.

という function に KATAKANA-ONLY という引数がありますから、

(defun katakana-to-zenkaku (beg end)
  (interactive "r")
  (when (member 'katakana-jisx0201
		(find-charset-region beg end))
    (japanese-zenkaku-region beg end t)
    (message "半角カタカナみっけ！！")))

という関数を mime encode する前の hook で動かすだけでも大丈夫な
んじゃないかな。

# WanderLust における適切な hook はわからなかったりしますけど。

-- 
白井秀行 (mailto:shirai@xxxxxxxxxxxxxxxxxxx)