X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mcharset.el;h=5bb5a594a6d7a49f265e7480494044b976dfa85e;hb=984604d5fc994ae264175786ef64ddd74f6ec2cd;hp=44a65cb63d7eacdefe25c4b5b30fde60ec478ee8;hpb=e1d0a0ffe481dc40f28a10034913d0b4349eb06a;p=elisp%2Fapel.git

diff --git a/mcharset.el b/mcharset.el
index 44a65cb..5bb5a59 100644
--- a/mcharset.el
+++ b/mcharset.el
@@ -28,27 +28,18 @@
 (require 'pcustom)
 
 (cond ((featurep 'mule)
-       (cond ((featurep 'xemacs)
-	      (require 'mcs-xm)
-	      )
-	     ((>= emacs-major-version 20)
-	      (require 'mcs-e20)
-	      )
-	     (t
-	      ;; for MULE 1.* and 2.*
-	      (require 'mcs-om)
-	      ))
-       )
+       (if (>= emacs-major-version 20)
+	   (require 'mcs-20)
+	 ;; for MULE 1.* and 2.*
+	 (require 'mcs-om)))
       ((boundp 'NEMACS)
        ;; for Nemacs and Nepoch
-       (require 'mcs-nemacs)
-       )
+       (require 'mcs-nemacs))
       (t
-       (require 'mcs-ltn1)
-       ))
+       (require 'mcs-ltn1)))
 
 (defcustom default-mime-charset-for-write
-  (if (and (fboundp 'find-coding-system)
+  (if (and (require 'pces) ; for find-coding-system
 	   (find-coding-system 'utf-8))
       'utf-8
     default-mime-charset)
@@ -113,6 +104,7 @@ variable `default-mime-charset-for-write' is returned."
 ;;; @ end
 ;;;
 
-(provide 'mcharset)
+(require 'product)
+(product-provide (provide 'mcharset) (require 'apel-ver))
 
 ;;; mcharset.el ends here