From 75ae88e773db26996dbe07be0556235300d2ccaf Mon Sep 17 00:00:00 2001 From: keiichi Date: Thu, 21 Jan 1999 08:25:49 +0000 Subject: [PATCH] (encode-mime-charset-region): Add new optional argument `lbt'. (encode-mime-charset-string): Ditto. --- mcs-e20.el | 8 ++++---- mcs-xm.el | 8 ++++---- 2 files changed, 8 insertions(+), 8 deletions(-) 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))) -- 1.7.10.4