projects
/
elisp
/
apel.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
60b1235
)
(mime-charset-decoder-alist): Add 'decode-mime-charset-region-for-hz
author
morioka
<morioka>
Fri, 24 Apr 1998 11:15:52 +0000
(11:15 +0000)
committer
morioka
<morioka>
Fri, 24 Apr 1998 11:15:52 +0000
(11:15 +0000)
for 'hz-gb-2312.
emu-x20.el
patch
|
blob
|
history
diff --git
a/emu-x20.el
b/emu-x20.el
index
36ade86
..
0252bbd
100644
(file)
--- 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)
'((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
(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))))))
))
(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)
(defun decode-mime-charset-region (start end charset)
"Decode the text between START and END as MIME CHARSET."
(if (stringp charset)