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

diff --git a/emu-20.el b/emu-20.el
index 7b653da..463dce7 100644 (file)
--- 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
 ;;;