From: morioka <morioka>
Date: Mon, 10 Aug 1998 17:54:43 +0000 (+0000)
Subject: (decode-mime-charset-region): Add new argument `lbt'.
X-Git-Tag: apel-8_16~40
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=382bf4dbf167d6550dcd6ea7f8b0208674cbaf3e;p=elisp%2Fapel.git

(decode-mime-charset-region): Add new argument `lbt'.
(decode-mime-charset-string): Likewise.
---

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)))