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

diff --git a/emu-nemacs.el b/emu-nemacs.el
index d5a3b4d..a130f11 100644 (file)
--- 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
 ;;;