[mew-dist 20054] tis620 problems (was: iso-8859-1)

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 20045] Re: iso-8859-1
Message-ID: <20020110.085138.74184558.kazu at example.com>
Date: Thu, 10 Jan 2002 08:51:38 +0900 (JST)

> > と、.Xdefaultで、無理矢理iso-8859-1にタイ語のフォントを入れていたことで
> > した。
> 
> ですから、XEmacs の正式なサポートじゃないんですよね。タイで使われてい
> た、いわゆる iso-8859-1 fake ですね。XEmacs をちょっと改造してあったん
> でしょう。

iso-8859-1 なタイ語はどうしようもないですが、XEmacs でも折角

TIS620 -- tis620
  external=tis620, internal=thai-xtis

があるので XEmacs のタイ語対応をしてみました。

(1) XEmacs での coding-system は tis-620。Emacs20/21 は tis-620,
    tis620 ともに存在するので、tis-620 を使う。

(2) XEmacs でタイ語が混じったものに find-charset-region() すると、
    (ascii thai-xtis) という感じで帰ってくるので、その対応。

です。


P.S.

タイ語のメールを書いて(というか HELLO からコピーして)遊んでいて
気付いたのですが、Emacs21 では composition を text property で実
現しているため、tis620 が subject や本文に混じるメールに返信した
りすると、draft で合成がはずれてしまいます。
mew-header-get-value(), mew-draft-yank(), mew-draft-cite() で
mew-buffer-substring() を使っているからなのですが。。。

# そのまま C-cC-m すると +queue では、またくっついていますけど :-)

単純に buffer-substring() にすると face とかも引き継いでしまって
イヤだったので、ものは試しに mew-buffer-substring2() を作って
composition だけ復活するようにしてみたのですが、scan した
.mew-cache の subject とかがダメだったので捨ててしまいました。

-- 
白井秀行 (mailto:shirai at example.com)
-------------- next part --------------
--- mew-mule3.el.orig	Thu Jan 10 10:19:39 2002
+++ mew-mule3.el	Thu Jan 10 09:47:57 2002
@@ -59,7 +59,9 @@
     ((ascii latin-iso8859-9)    iso-8859-9  "quoted-printable" "B")
     ((ascii latin-iso8859-15)   iso-8859-15 "quoted-printable" "Q")
     ((ascii thai-tis620 composition) ;; composition for Emacs 20
-                                tis620     "base64"           "B")
+                                tis-620     "base64"           "B")
+    ((ascii thai-xtis) ;; thai-xtis for XEmacs
+                                tis-620     "base64"           "B")
     ((ascii latin-jisx0201 japanese-jisx0208 japanese-jisx0208-1978)
                                iso-2022-jp "7bit"             "B")
     ((ascii korean-ksc5601)     euc-kr     "8bit"             "B")
@@ -108,7 +110,7 @@
     ("euc-jp"          . euc-japan)
     ("shift_jis"       . shift_jis)
     ("koi8-r"          . koi8-r)
-    ("tis-620"         . tis620)
+    ("tis-620"         . tis-620)
     ("iso-2022-int-1"  . iso-2022-int-1)
     ("utf-7"           . utf-7)
     ("utf-8"           . utf-8)))