From: morioka <morioka>
Date: Sun, 23 May 1999 09:28:52 +0000 (+0000)
Subject: (initialize-instance): Define as after method; return initialized
X-Git-Tag: chao-1_13_0~38
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5ff06270035083a8a43b1710c1fdd41a71a3a7f7;p=elisp%2Fflim.git

(initialize-instance): Define as after method; return initialized
instance.
---

diff --git a/mmbuffer.el b/mmbuffer.el
index 62ddbee..4e8bbe3 100644
--- a/mmbuffer.el
+++ b/mmbuffer.el
@@ -37,7 +37,8 @@
   (luna-define-internal-accessors 'mime-buffer-entity)
   )
 
-(mm-define-method initialize-instance ((entity buffer))
+(luna-define-method initialize-instance :after ((entity mime-buffer-entity)
+						&rest init-args)
   (mime-buffer-entity-set-buffer-internal
    entity (mime-entity-location-internal entity))
   (save-excursion
@@ -68,7 +69,8 @@
       (mime-buffer-entity-set-header-end-internal entity header-end)
       (mime-buffer-entity-set-body-start-internal entity body-start)
       (mime-buffer-entity-set-body-end-internal entity body-end)
-      )))
+      ))
+  entity)
 
 (luna-define-method mime-entity-name ((entity mime-buffer-entity))
   (buffer-name (mime-buffer-entity-buffer-internal entity))