From: tomo <tomo>
Date: Thu, 10 Aug 2000 09:07:49 +0000 (+0000)
Subject: Enclose definition of class `mime-entity' and its internal accessors
X-Git-Tag: emacs-21_0_90-flim-chao-1_14_1-1~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2bc0e45c4899a7eaf9ea75174904d8e2f8a2364d;p=elisp%2Fflim.git

Enclose definition of class `mime-entity' and its internal accessors
by `eval-and-compile'.
---

diff --git a/mmgeneric.el b/mmgeneric.el
index 84d481b..5bd9686 100644
--- a/mmgeneric.el
+++ b/mmgeneric.el
@@ -37,19 +37,21 @@
 ;; (autoload 'mime-parse-external "mime-parse")
 (autoload 'mime-entity-content "mime")
 
-(luna-define-class mime-entity ()
-		   (location
-		    content-type children parent
-		    node-id
-		    content-disposition encoding
-		    ;; for other fields
-		    original-header parsed-header))
+(eval-and-compile
+  (luna-define-class mime-entity ()
+		     (location
+		      content-type children parent
+		      node-id
+		      content-disposition encoding
+		      ;; for other fields
+		      original-header parsed-header))
+
+  (luna-define-internal-accessors 'mime-entity)
+  )
 
 (defalias 'mime-entity-representation-type-internal 'luna-class-name)
 (defalias 'mime-entity-set-representation-type-internal 'luna-set-class-name)
 
-(luna-define-internal-accessors 'mime-entity)
-
 (luna-define-method mime-entity-fetch-field ((entity mime-entity)
 					     field-name)
   (or (symbolp field-name)