From: shuhei-k <shuhei-k>
Date: Sat, 22 May 1999 13:29:31 +0000 (+0000)
Subject: Require 'poe, 'poem, and 'pcustom.
X-Git-Tag: flim-1_12_7~33
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f9080764e6808be1c4dacc9f8e2139188da21c85;p=elisp%2Fflim.git

Require 'poe, 'poem, and 'pcustom.
(mime): Declare `default-mime-charset' as an initial member.
---

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)