[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[mhc:01023] Re: 日本語の表示
From: 西森 泰輔 <taisuke@xxxxxxxxxxxxx> さん曰く
Subject: [mhc:01022] Re: 日本語の表示
Message-ID: <20000913172339L.taisuke@xxxxxxxxxxxxx>
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@xxxxxxxxxxxxx)
--- 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)