Re: iso-2022-jp-3

[Satomi Suzuki <pan@xxxxxxxxxxxxxxx>]

ちょっと間違えてしまいました。^^;

> (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))))



 (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)))

こっちですね。
hook の設定をしていないから1個余計でした。

-- 
鈴木