X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mcs-e20.el;h=84a4694075eb1fa1e86fe7d8df1a16fc4182a332;hb=6362a76695a230cf04f5da6109a24044949df6da;hp=6d54a01ff37cdc20f6d6484b9c90d2b09c7d60c1;hpb=fa1fd0f40b452595daed9bb5ae8bdf2429c00a4f;p=elisp%2Fapel.git

diff --git a/mcs-e20.el b/mcs-e20.el
index 6d54a01..84a4694 100644
--- a/mcs-e20.el
+++ b/mcs-e20.el
@@ -1,6 +1,6 @@
 ;;; mcs-e20.el --- MIME charset implementation for Emacs 20.1 and 20.2
 
-;; Copyright (C) 1996,1997,1998,1999 Free Software Foundation, Inc.
+;; Copyright (C) 1996,1997,1998,1999,2000 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <tomo@m17n.org>
 ;; Keywords: emulation, compatibility, Mule
@@ -28,10 +28,8 @@
 
 ;;; Code:
 
-(eval-when-compile
-  (require 'static)
-  (require 'poem)
-  )
+(require 'pces)
+(eval-when-compile (require 'static))
 
 (defsubst encode-mime-charset-region (start end charset &optional lbt)
   "Encode the text between START and END as MIME CHARSET."
@@ -177,8 +175,7 @@ Return nil if corresponding MIME-charset is not found."
 ;;; @ end
 ;;;
 
-(require 'mcs-20)
-
-(provide 'mcs-e20)
+(require 'product)
+(product-provide (provide 'mcs-e20) (require 'apel-ver))
 
 ;;; mcs-e20.el ends here