From 3afb7af5242b2e2bc5a822ff7b0ec2ba3cb70a6e Mon Sep 17 00:00:00 2001 From: keiichi Date: Fri, 3 Mar 2000 10:58:48 +0000 Subject: [PATCH] (TopLevel): Require `mmgeneric' when installed it. --- lisp/mmgnus.el | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) 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) -- 1.7.10.4