* mcs-om.el (mime-charset-coding-system-alist): Move forward.

[elisp/apel.git] / mcharset.el

diff --git a/mcharset.el b/mcharset.el
index 5bb5a59..3f19c39 100644 (file)
--- a/mcharset.el
+++ b/mcharset.el
@@ -1,6 +1,6 @@
 ;;; mcharset.el --- MIME charset API
 
-;; Copyright (C) 1997,1998,1999 Free Software Foundation, Inc.
+;; Copyright (C) 1997,1998,1999,2000 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <tomo@m17n.org>
 ;; Keywords: emulation, compatibility, Mule
@@ -39,8 +39,7 @@
        (require 'mcs-ltn1)))
 
 (defcustom default-mime-charset-for-write
-  (if (and (require 'pces) ; for find-coding-system
-          (find-coding-system 'utf-8))
+  (if (mime-charset-p 'utf-8)
       'utf-8
     default-mime-charset)
   "Default value of MIME-charset for encoding.