From: morioka <morioka>
Date: Fri, 24 Apr 1998 11:15:52 +0000 (+0000)
Subject: (mime-charset-decoder-alist): Add 'decode-mime-charset-region-for-hz
X-Git-Tag: emu-unify-199811302358~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1471ab8fd13d1d4b25faa16f431b22c24bd542ef;p=elisp%2Fapel.git

(mime-charset-decoder-alist): Add 'decode-mime-charset-region-for-hz
for 'hz-gb-2312.
---

diff --git a/emu-x20.el b/emu-x20.el
index 36ade86..0252bbd 100644
--- a/emu-x20.el
+++ b/emu-x20.el
@@ -81,6 +81,7 @@ find-file-hooks, etc.
   '((iso-2022-jp . decode-mime-charset-region-with-iso646-unification)
     (iso-2022-jp-2 . decode-mime-charset-region-with-iso646-unification)
     (x-ctext . decode-mime-charset-region-with-iso646-unification)
+    (hz-gb-2312 . decode-mime-charset-region-for-hz)
     (t . decode-mime-charset-region-default))
   "Alist MIME-charset vs. decoder function."
   :group 'i18n
@@ -134,6 +135,9 @@ find-file-hooks, etc.
 	    ))
 	(setq rest (cdr rest))))))
 
+(defun decode-mime-charset-region-for-hz (start end charset)
+  (decode-hz-region start end))
+
 (defun decode-mime-charset-region (start end charset)
   "Decode the text between START and END as MIME CHARSET."
   (if (stringp charset)