🚀 go-pugleaf

>>>>> In <YAS.05Apr15022453@kirk.is.tsukuba.ac.jp> 新城さん wrote:

> Mule-UCS を入れたら、Select coding system (default raw-text)
> のようなメッセージを見る頻度が増えました。raw-text でなくて、
> utfなんとかのこともあります。

指定された coding system では正しくファイルにセーブできない文字
がある場合に、使える coding system の候補を出してくれるんですが、
デフォルト値は後で困ることになるものが多い気がしますね。しかも、
それがプログラムが内部的に何かを行なっている最中に起きると、ユー
ザは何を直せば良いのかがわかりません。

> 大きな画面ではこうなります。
> ------------------------------------------------------------
> These default coding systems were tried:
>   junet-unix
> However, none of them safely encodes the target text.

> Select one of the following safe coding systems:
> ...
> ------------------------------------------------------------

> もともと電子メールで、junet-unix に設定しているのですが、そ
> れに失敗しているということになります。これが出るのは、C-x
> C-s でファイルを保存ししようとしている時です。しょうがないの
> で、C-g で、２回くらいキャンセルして、もう一度 C-x C-s とす
> ると成功します。最初から成功して欲しいわけですが、どうしたら
> よいでしょうか。

junet-unix で無理矢理セーブして、テキストが部分的に (もしかした
ら全部) 壊れてしまっても良いならば、非常に乱暴ですが、

(defalias 'select-safe-coding-system
  (lambda (&rest args) buffer-file-coding-system))

とか。
でも、すべての電子メールを junet-unix でセーブしようというのが、
そもそも無理です。それがまともな相手から来たメールであっても、欧
州の人がうっかり非-ASCII 文字を書いたり、日本の人がいわゆる半角
カタカナを引用してしまうことはあるでしょうし、spam だったら何で
もありですから。

一般に、電子メールのソフトウェアが行なうべきことは、ネットを通じ
てやってきたメールを無変換でセーブし、読んだり引用するときに適宜
デコードすることです。もちろん、デコードした文字が junet-unix で
常にセーブできることは期待できません。

> 内部的な都合で怪しい文字がバッファに入ってしまったのかもしれ
> ません。でも、JIS だけでメールを書きたいので、怪しい文字がわ
> ければ取り除きたいわけです。どうやって探したらいいでしょうか？

例えば、半角カタカナを含むテキストを引用してしまった場合だったら

  M-< M-C-s \ck RET
 (Meta-< Meta-Ctrl-s \ck RET)

で探すことができます。
junet-unix でセーブできない文字を探す一般的な方法を知らないので
すが、無理矢理で良ければ、こうです。

(defun find-invalid-junet-char ()
  (interactive)
  (re-search-forward
   (format "[^\000-\177%c-%c]"
	   (make-char 'japanese-jisx0208 33 33)
	   (make-char 'japanese-jisx0208 127 127))
   nil t))

> 今の場合、C-g して最終的には C-x C-s に成功するので、怪しい
> 文字はそもそも存在しないのかもしれません。

C-g でもって junet-unix でセーブできない文字が無くなったように思
えるんですが、どうしてそんなことが起きるのか不思議です。;-)
-- 
山岡

>>>>> In <YAS.05Apr15022453@kirk.is.tsukuba.ac.jp> 
>>>>> Yasushi Shinjo wrote:
> Mule-UCS を入れたら、Select coding system (default raw-text) 
> のようなメッセージを見る頻度が増えました。raw-text でなくて、
> utfなんとかのこともあります。

Emacs のバージョンはいくつですか?

Emacs21.4 と Mule-UCS の組みあわせで同様の問題がおこるという
ことで Meadow2.10(based on Emacs21.4) では mule.el の
register-char-codings() に変更がはいっているそうです。

http://svn.meadowy.org/Meadow/branches/2.1/lisp/international/mule.el
の r3635 の変更です。
-- 
こせき // kose (a) Meadow y.org

$B?7>k!wC^GHBg3X>pJs$G$9!#$3$s$K$A$O!#(B

In article <2005041587r7hcdacv.00kose@meadowy.org>
	KOSEKI Yoshinori <kose@meadowy.org> writes:
> > Mule-UCS $B$rF~$l$?$i!"(BSelect coding system (default raw-text) 
> > $B$N$h$&$J%a%C%;!<%8$r8+$kIQEY$,A}$($^$7$?!#(Braw-text $B$G$J$/$F!"(B
> > utf$B$J$s$H$+$N$3$H$b$"$j$^$9!#(B
> Emacs $B$N%P!<%8%g%s$O$$$/$D$G$9$+(B?

Emacs 21.3.2 $B$G$9!#(BMule-UCS $B$O!"(B2001/4/13 $BHG!#(B

> Emacs21.4 $B$H(B Mule-UCS $B$NAH$_$"$o$;$GF1MM$NLdBj$,$*$3$k$H$$$&(B
> $B$3$H$G(B Meadow2.10(based on Emacs21.4) $B$G$O(B mule.el $B$N(B
> register-char-codings() $B$KJQ99$,$O$$$C$F$$$k$=$&$G$9!#(B
> 
> http://svn.meadowy.org/Meadow/branches/2.1/lisp/international/mule.el
> $B$N(B r3635 $B$NJQ99$G$9!#(B

$B$J$k$[$I!#:#N9@h$GMn$ACe$$$F;n$;$J$$$N$G$9$,!"F1$8OC$O8z$/4|(B
$BBT$,$"$j$^$9!#(B

In article <b9yd5sxhr1a.fsf@jpl.org>
	Katsumi Yamaoka <yamaoka@jpl.org> writes:
> junet-unix $B$GL5M}LpM}%;!<%V$7$F!"%F%-%9%H$,ItJ,E*$K(B ($B$b$7$+$7$?(B
> $B$iA4It(B) $B2u$l$F$7$^$C$F$bNI$$$J$i$P!"Hs>o$KMpK=$G$9$,!"(B
> (defalias 'select-safe-coding-system
>   (lambda (&rest args) buffer-file-coding-system))

$B$3$N(B defalias $B$,%0%m!<%P%k$K$+$+$k$H4m$J$5$=$&$@$1$I!"%m!<%+(B
$B%k!&%9%3!<%W$K$G$-$k$H$$$$$+$b!#%m!<%+%k$N4X?tDj5A$O$G$-$^$7(B
$B$?$C$1!)(B

> $B$G$b!"$9$Y$F$NEE;R%a!<%k$r(B junet-unix $B$G%;!<%V$7$h$&$H$$$&$N$,!"(B
> $B$=$b$=$bL5M}$G$9!#$=$l$,$^$H$b$JAj<j$+$iMh$?%a!<%k$G$"$C$F$b!"2$(B
> $B=#$N?M$,$&$C$+$jHs(B-ASCII $BJ8;z$r=q$$$?$j!"F|K\$N?M$,$$$o$f$kH>3Q(B
> $B%+%?%+%J$r0zMQ$7$F$7$^$&$3$H$O$"$k$G$7$g$&$7!"(Bspam $B$@$C$?$i2?$G(B
> $B$b$"$j$G$9$+$i!#(B

$B30$+$i$b$i$C$?%a!<%k$rI=<($9$k=j$G$O!"FC$KLdBj$O=P$F$$$^$;$s!#(B
$B:#$O<+J,$G(B junet-unix $B$GAw$k$Y$/EE;R%a!<%k$NJ8=q$N2<=q$-$r:n(B
$B@.$7$F$$$k;~$NLdBj$G$9!#0zMQ$9$k$3$H$b$"$j$^$9$,!"%Z!<%9%H$9(B
$B$k=V4V$K7Y9p$7$F$/$l$k$H!"0lHV$$$$$s$@$1$I!#J]B8$9$k;~$K8@$C(B
$B$F$/$k$+$i!#(B

> junet-unix $B$G%;!<%V$G$-$J$$J8;z$rC5$90lHLE*$JJ}K!$rCN$i$J$$$N$G(B
> $B$9$,!"L5M}LpM}$GNI$1$l$P!"$3$&$G$9!#(B
> 
> (defun find-invalid-junet-char ()
>   (interactive)
>   (re-search-forward
>    (format "[^\000-\177%c-%c]"
> 	   (make-char 'japanese-jisx0208 33 33)
> 	   (make-char 'japanese-jisx0208 127 127))
>    nil t))

$B$J$k$[$I!#@55,I=8=$K4A;z$rF~$l$F$$$k$o$1$G$9$M!#:#!"N9@h$GMn(B
$B$ACe$$$F;n$;$J$$$N$G8e$G;n$7$F$_$^$9!#(B

$B!@!@!!?7>k!!Lw!!!J$7$s$8$g$&!!$d$9$7!K!!!@!@(B
$B!@!@!!C^GHBg3X!!EE;R!&>pJs!!!!!!!!!!!!!!!@!@(B