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

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

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