From: keiichi <keiichi>
Date: Fri, 3 Mar 2000 10:58:48 +0000 (+0000)
Subject: (TopLevel): Require `mmgeneric' when installed it.
X-Git-Tag: nana-gnus-7_1_0_16~32
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3afb7af5242b2e2bc5a822ff7b0ec2ba3cb70a6e;p=elisp%2Fgnus.git-

(TopLevel): Require `mmgeneric' when installed it.
---

diff --git a/lisp/mmgnus.el b/lisp/mmgnus.el
index 9bcd755..fc6e510 100644
--- a/lisp/mmgnus.el
+++ b/lisp/mmgnus.el
@@ -25,12 +25,17 @@
 
 ;;; Code:
 
+(condition-case nil
+    (require 'mmgeneric)
+  (error nil))
 (require 'mime)
 (require 'eword-decode)
 
-(luna-define-class mmgnus-entity (mime-entity)
-		   (body
-		    header undisplayer content-description cache content-id))
+(eval-and-compile
+  (luna-define-class mmgnus-entity (mime-entity)
+		     (body
+		      header undisplayer content-description
+		      cache content-id)))
 
 (luna-define-internal-accessors 'mmgnus-entity)
 
@@ -138,9 +143,10 @@
     (insert (mmgnus-entity-body entity))
     (write-region-as-binary (point-min) (point-max) filename)))
 
-(luna-define-class mime-gnus-entity (mmgnus-entity)
-		   (number
-		    subject from date id references chars lines xref extra))
+(eval-and-compile
+  (luna-define-class mime-gnus-entity (mmgnus-entity)
+		     (number
+		      subject from date id references chars lines xref extra)))
 
 (luna-define-internal-accessors 'mime-gnus-entity)