From: keiichi <keiichi>
Date: Thu, 21 Jan 1999 08:25:49 +0000 (+0000)
Subject: (encode-mime-charset-region): Add new optional argument `lbt'.
X-Git-Tag: apel-mcs-2-199901211900
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=75ae88e773db26996dbe07be0556235300d2ccaf;p=elisp%2Fapel.git

(encode-mime-charset-region): Add new optional argument `lbt'.
(encode-mime-charset-string): Ditto.
---

diff --git a/mcs-e20.el b/mcs-e20.el
index f46d491..610e2c4 100644
--- a/mcs-e20.el
+++ b/mcs-e20.el
@@ -28,11 +28,11 @@
 
 ;;; Code:
 
-(defsubst encode-mime-charset-region (start end charset)
+(defsubst encode-mime-charset-region (start end charset &optional lbt)
   "Encode 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)))
 	(encode-coding-region start end cs)
       )))
 
@@ -45,11 +45,11 @@
       )))
 
 
-(defsubst encode-mime-charset-string (string charset)
+(defsubst encode-mime-charset-string (string charset &optional lbt)
   "Encode 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)))
 	(encode-coding-string string cs)
       string)))
 
diff --git a/mcs-xm.el b/mcs-xm.el
index dabffa0..5caf854 100644
--- a/mcs-xm.el
+++ b/mcs-xm.el
@@ -32,9 +32,9 @@
 (require 'mcs-20)
 
 
-(defun encode-mime-charset-region (start end charset)
+(defun encode-mime-charset-region (start end charset &optional lbt)
   "Encode the text between START and END as MIME CHARSET."
-  (let ((cs (mime-charset-to-coding-system charset)))
+  (let ((cs (mime-charset-to-coding-system charset lbt)))
     (if cs
 	(encode-coding-region start end cs)
       )))
@@ -125,9 +125,9 @@
 		       (assq t mime-charset-decoder-alist)))))
     (funcall func start end charset lbt)))
 
-(defsubst encode-mime-charset-string (string charset)
+(defsubst encode-mime-charset-string (string charset &optional lbt)
   "Encode the STRING as MIME CHARSET."
-  (let ((cs (mime-charset-to-coding-system charset)))
+  (let ((cs (mime-charset-to-coding-system charset lbt)))
     (if cs
 	(encode-coding-string string cs)
       string)))