From: morioka <morioka>
Date: Thu, 24 Dec 1998 12:37:31 +0000 (+0000)
Subject: (default-mime-charset-for-write): New variable.
X-Git-Tag: apel-mcs-2-199812241900~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=22beba3ebe7a254671c2e1112008dcdda5abff8e;p=elisp%2Fapel.git

(default-mime-charset-for-write): New variable.
(detect-mime-charset-region): Return `default-mime-charset-for-write'
if suitable mime-charset is not found.
---

diff --git a/mcs-om.el b/mcs-om.el
index 820ee9e..bff4150 100644
--- a/mcs-om.el
+++ b/mcs-om.el
@@ -191,10 +191,19 @@
 It is used when MIME-charset is not specified.
 It must be symbol.")
 
+(defvar default-mime-charset-for-write
+  default-mime-charset
+  "Default value of MIME-charset for encoding.
+It is used when suitable MIME-charset is not found.
+It must be symbol."
+  :group 'i18n
+  :type 'mime-charset)
+
 (defun detect-mime-charset-region (start end)
   "Return MIME charset for region between START and END."
-  (charsets-to-mime-charset
-   (cons lc-ascii (find-charset-region start end))))
+  (or (charsets-to-mime-charset
+       (cons lc-ascii (find-charset-region start end)))
+      default-mime-charset-for-write))
 
 
 ;;; @ end