From: morioka <morioka>
Date: Thu, 14 May 1998 07:09:31 +0000 (+0000)
Subject: (write-region-as-mime-charset): New function.
X-Git-Tag: apel-8_12~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=416738772e00c3b238f9021143aeb614b83e3613;p=elisp%2Fapel.git

(write-region-as-mime-charset): New function.
---

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
 ;;;