From 382bf4dbf167d6550dcd6ea7f8b0208674cbaf3e Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 10 Aug 1998 17:54:43 +0000 Subject: [PATCH] (decode-mime-charset-region): Add new argument `lbt'. (decode-mime-charset-string): Likewise. --- emu-e20.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/emu-e20.el b/emu-e20.el index 9c524d2..2284da8 100644 --- a/emu-e20.el +++ b/emu-e20.el @@ -83,11 +83,11 @@ in the region between START and END." (encode-coding-region start end cs) ))) -(defsubst decode-mime-charset-region (start end charset) +(defsubst decode-mime-charset-region (start end charset &optional lbt) "Decode the text between START and END as MIME CHARSET." (let (cs) (if (and enable-multibyte-characters - (setq cs (mime-charset-to-coding-system charset))) + (setq cs (mime-charset-to-coding-system charset lbt))) (decode-coding-region start end cs) ))) @@ -99,11 +99,11 @@ in the region between START and END." (encode-coding-string string cs) string))) -(defsubst decode-mime-charset-string (string charset) +(defsubst decode-mime-charset-string (string charset &optional lbt) "Decode the STRING as MIME CHARSET." (let (cs) (if (and enable-multibyte-characters - (setq cs (mime-charset-to-coding-system charset))) + (setq cs (mime-charset-to-coding-system charset lbt))) (decode-coding-string string cs) string))) -- 1.7.10.4