From f9080764e6808be1c4dacc9f8e2139188da21c85 Mon Sep 17 00:00:00 2001
From: shuhei-k <shuhei-k>
Date: Sat, 22 May 1999 13:29:31 +0000
Subject: [PATCH] Require 'poe, 'poem, and 'pcustom. (mime): Declare
 `default-mime-charset' as an initial member.

---
 mime-def.el |   17 +++++++----------
 1 file changed, 7 insertions(+), 10 deletions(-)

diff --git a/mime-def.el b/mime-def.el
index 6d3d755..75375f4 100644
--- a/mime-def.el
+++ b/mime-def.el
@@ -24,7 +24,13 @@
 
 ;;; Code:
 
+(require 'poe)
+(require 'poem)
+(require 'pcustom)
 (require 'mcharset)
+(require 'alist)
+
+(eval-when-compile (require 'cl))	; list*
 
 (eval-and-compile
   (defconst mime-library-product ["FLIM" (1 12 7) "Y.DŽþzaki"]
@@ -51,18 +57,11 @@
 ;;; @ variables
 ;;;
 
-(require 'custom)
-
-(eval-when-compile (require 'cl))
-
-(defgroup mime nil
+(defgroup mime '((default-mime-charset custom-variable))
   "Emacs MIME Interfaces"
   :group 'news
   :group 'mail)
 
-(custom-handle-keyword 'default-mime-charset :group 'mime
-		       'custom-variable)
-
 (defcustom mime-uuencode-encoding-name-list '("x-uue" "x-uuencode")
   "*List of encoding names for uuencode format."
   :group 'mime
@@ -358,8 +357,6 @@ message/rfc822, `mime-entity' structures of them are included in
 ;;; @ for mm-backend
 ;;;
 
-(require 'alist)
-
 (defvar mime-entity-implementation-alist nil)
 
 (defmacro mm-define-backend (type &optional parents)
-- 
1.7.10.4