From 42546d169f28101bd6f1f5f770a6d0cdeadce0f1 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Thu, 14 May 1998 07:03:51 +0000
Subject: [PATCH] (write-region-as-mime-charset): New function.

---
 emu-nemacs.el |    9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/emu-nemacs.el b/emu-nemacs.el
index d5a3b4d..a130f11 100644
--- a/emu-nemacs.el
+++ b/emu-nemacs.el
@@ -312,6 +312,15 @@ find-file-hooks, etc.
 	(convert-string-kanji-code string cs 3)
       string)))
 
+(defun write-region-as-mime-charset (charset start end filename)
+  "Like `write-region', q.v., but code-convert by MIME CHARSET.
+\[emu-nemacs.el]"
+  (let ((kanji-fileio-code
+	 (or (mime-charset-to-coding-system charset)
+	     *noconv*)))
+    (write-region start end filename)
+    ))
+
 
 ;;; @ character
 ;;;
-- 
1.7.10.4