Re: iso-2022-jp-3

[Satomi Suzuki <pan@xxxxxxxxxxxxxxx>]

お世話になっております。
ちょっと遅くなりましたが

>>>>> In [meadow-users-jp : No.2871] 
>>>>> Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxxxxxxxx> さま曰く
>>>>> <20001208.100136.68541730.shirai@xxxxxxxxxxxxxxxxxxx>

[...]

> (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 で動かすだけでも大丈夫な
> んじゃないかな。

うーん、上手く動いてくれないような気がするけど、何処が悪いのかサッ
パリわからないです。(^^;)

とりあえず、私のところでは(これも人様のをパクったもの^^;)

(defun message-check-jisx0201 ()
  (interactive)
  (let (debug-on-quit)
    (goto-char (point-min))
    (if (re-search-forward "\\ck" nil t)
	(or
	 (y-or-n-p
	  "半角カタカナらしきものがあるけど本当に送信しちゃうの?(^^;) ")
	 (signal 'quit nil))
      t))))

とかで上手く動いているようです。

もしかして、白井さんのは全角に変換してくれたりしちゃうのでしょうか?

-- 
鈴木