[mhc:01023] Re: 日本語の表示

[Hideyuki SHIRAI (白井秀行)<shirai _at_ quickhack.net>]

From: 西森　泰輔 <taisuke _at_ rda.mew.co.jp> さん曰く
Subject: [mhc:01022] Re: 日本語の表示
Message-ID: <20000913172339L.taisuke _at_ rda.mew.co.jp>
Date: Wed, 13 Sep 2000 17:23:39 +0900 (JST)

西森> > ○ (例えば) ~/Mail/schedule/2000/09/ の下に数字だけの file が出
西森> >  来ていますが、それを find-file で開いてみて、"テスト" の文字が
西森> >  ちゃんと読めますか？
西森> 
西森> いえ。Summary Buffer と同様の文字化けをしています。
西森> X-SC-Subject: ^[$B%F%9%H^[(B
西森> ....となっています。
西森> 
西森> >  そして、その file の文字コードはiso-2022-jp (junet)ですか？
西森> 
西森> いえ。M-x describe-current-coding-system によると，
西森> > buffer-file-coding-system's value is 
西森> > japanese-shift-jis-unix
西森> > Local in buffer 3; global value is 
西森> > sjis

あちゃちゃぁ、これが原因ですね。(最初、間違った方向に走って無駄
な時間を取っていただいちゃいました、ごめんなさい)

"テスト" だけを書いて、iso-2022-jp(iso-2022-7bit) で保存(*1)した
file を "1" という file名と "test.txt" などという file名にしてみ
て、ともに化けるなら

西森> > 番外:
西森> > ○ Meadow 壊れていませんか？
西森> 
西森> (^^;＃そーなのかなぁ。

これが原因だと思います。Meadow 1.10 は (結構初期の) Mule 4.1 な
のですが、その後、coding-system 判定のルーチンにバグが判明して、
手直しが入っていますし。(1.13b1 かな？反映されたのは)

# だけど、そのときは、"スコア" っていう euc-jp の file を開くと
# utf-8 になっちゃうというものなので、西森さんの原因と同じかどう
# かはわかりませんし、また、himi さんが何を直したかも理解してい
# ないし。

ちなみに、"1" だけ化けるなら話は別になりますが、前の西森さんのメー
ルを見る限り両方化けると思います。ちなみにもっと長い文字列なら、
ちゃんと iso-2022-jp と判定できるかもしれないです。

## X-SC-Subject: テストだよ
## とか。

西森> ＃。。怪しい。と思いましたが，どうしていいかわかりません。

# めちゃくちゃ怪しいです。:-)

というわけで、Meadow 1.10 を貰ってきて、速攻で立ち上げて "テスト"
だけの file を find-file したんですが、iso-2022-jp になってしま
いました。^^;;;

というわけなので、誰が悪いのかはわからないのですが、西森さんの現
象は付属のパッチで収まると思います。(西森さんの Meadow 向けパッ
チなので動いている方は必要ないです。)

# これでダメだったらどうしよう ^^;;;
# ~/.schedule は iso-2022-jp にしておいてくださいね。

-- 
白井秀行 (mailto:shirai _at_ quickhack.net)

--- mhc-schedule.el.orig	Tue Jun 06 15:07:59 2000
+++ mhc-schedule.el	Wed Sep 13 18:01:46 2000
@@ -76,7 +76,8 @@
     (get-buffer-create mhc-sch-tmp-buffer-name)
     (set-buffer mhc-sch-tmp-buffer-name)
     (erase-buffer)
-    (insert-file-contents path nil 0 3000)
+    (let ((coding-system-for-read 'iso-2022-jp))
+      (insert-file-contents path nil 0 3000))
     (goto-char (point-min))
     (mhc-sch-set-path (mhc-sch-new-from-buffer) path)))
 
@@ -806,7 +807,8 @@
       (get-buffer-create mhc-sch-rc-buffer-name)
       (set-buffer mhc-sch-rc-buffer-name)
       (erase-buffer)
-      (insert-file-contents file nil)
+      (let ((coding-system-for-read 'iso-2022-jp))
+	(insert-file-contents file nil))
       (goto-char (point-min))
       (while (re-search-forward "^X-SC-" nil t)
 	(beginning-of-line)