From 416738772e00c3b238f9021143aeb614b83e3613 Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 14 May 1998 07:09:31 +0000 Subject: [PATCH] (write-region-as-mime-charset): New function. --- emu-20.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/emu-20.el b/emu-20.el index 7b653da..463dce7 100644 --- a/emu-20.el +++ b/emu-20.el @@ -160,6 +160,15 @@ It must be symbol." "Return MIME charset for region between START and END." (charsets-to-mime-charset (find-charset-region start end))) +(defun write-region-as-mime-charset (charset start end filename + &optional append visit lockname) + "Like `write-region', q.v., but don't code-convert by MIME CHARSET." + (let ((coding-system-for-write + (or (mime-charset-to-coding-system charset) + 'binary))) + (write-region start end filename append visit lockname) + )) + ;;; @ end ;;; -- 1.7.10.4