From 7b29257d8e5b741634916e7d39c733cc2cb57a42 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 17 Apr 1998 00:43:43 +0000 Subject: [PATCH] Move MIME charset features to emu-e20.el again. --- emu-e20_2.el | 36 ------------------------------------ 1 file changed, 36 deletions(-) diff --git a/emu-e20_2.el b/emu-e20_2.el index b6cf55f..3781a81 100644 --- a/emu-e20_2.el +++ b/emu-e20_2.el @@ -28,42 +28,6 @@ ;;; Code: -;;; @ MIME charset -;;; - -(defsubst encode-mime-charset-region (start end charset) - "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))) - (encode-coding-region start end cs) - ))) - -(defsubst decode-mime-charset-region (start end charset) - "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))) - (decode-coding-region start end cs) - ))) - -(defsubst encode-mime-charset-string (string charset) - "Encode the STRING as MIME CHARSET." - (let (cs) - (if (and enable-multibyte-characters - (setq cs (mime-charset-to-coding-system charset))) - (encode-coding-string string cs) - string))) - -(defsubst decode-mime-charset-string (string charset) - "Decode the STRING as MIME CHARSET." - (let (cs) - (if (and enable-multibyte-characters - (setq cs (mime-charset-to-coding-system charset))) - (decode-coding-string string cs) - string))) - - ;;; @ character ;;; -- 1.7.10.4