From: morioka <morioka>
Date: Fri, 21 May 1999 11:27:15 +0000 (+0000)
Subject: (detect-mime-charset-region): Use `find-mime-charset-by-charsets'.
X-Git-Tag: apel-9_19~14
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=43fd8adb6259e75aa36a1a04830df312f30b355d;p=elisp%2Fapel.git

(detect-mime-charset-region): Use `find-mime-charset-by-charsets'.
---

diff --git a/mcs-20.el b/mcs-20.el
index c115e4c..5fc7502 100644
--- a/mcs-20.el
+++ b/mcs-20.el
@@ -139,13 +139,8 @@ It must be symbol."
 
 (defun detect-mime-charset-region (start end)
   "Return MIME charset for region between START and END."
-  (let ((charsets (find-charset-region start end)))
-    (or (charsets-to-mime-charset charsets)
-	(if default-mime-charset-detect-method-for-write
-	    (funcall default-mime-charset-detect-method-for-write
-		     'region charsets start end)
-	  default-mime-charset-for-write)
-	)))
+  (find-mime-charset-by-charsets (find-charset-region start end)
+				 'region start end))
 
 (defun write-region-as-mime-charset (charset start end filename
 					     &optional append visit lockname)