From 2bc0e45c4899a7eaf9ea75174904d8e2f8a2364d Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Thu, 10 Aug 2000 09:07:49 +0000
Subject: [PATCH] Enclose definition of class `mime-entity' and its internal
 accessors by `eval-and-compile'.

---
 mmgeneric.el |   20 +++++++++++---------
 1 file changed, 11 insertions(+), 9 deletions(-)

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)
-- 
1.7.10.4