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