From a2baa53f54bbeef31096356e76e361ed796f59ef Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 14 May 1998 06:56:43 +0000 Subject: [PATCH] (write-region-as-mime-charset): New function. --- emu-mule.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/emu-mule.el b/emu-mule.el index 63be74e..b089a14 100644 --- a/emu-mule.el +++ b/emu-mule.el @@ -220,6 +220,14 @@ find-file-hooks, etc. (decode-coding-string string cs) string))) +(defun write-region-as-mime-charset (charset start end filename) + "Like `write-region', q.v., but code-convert by MIME CHARSET." + (let ((file-coding-system + (or (mime-charset-to-coding-system charset) + *noconv*))) + (write-region start end filename append visit) + )) + ;;; @@ to coding-system ;;; -- 1.7.10.4