From 1471ab8fd13d1d4b25faa16f431b22c24bd542ef Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 24 Apr 1998 11:15:52 +0000 Subject: [PATCH 1/1] (mime-charset-decoder-alist): Add 'decode-mime-charset-region-for-hz for 'hz-gb-2312. --- emu-x20.el | 4 ++++ 1 file changed, 4 insertions(+) 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) -- 1.7.10.4