From 5ff06270035083a8a43b1710c1fdd41a71a3a7f7 Mon Sep 17 00:00:00 2001 From: morioka Date: Sun, 23 May 1999 09:28:52 +0000 Subject: [PATCH] (initialize-instance): Define as after method; return initialized instance. --- mmbuffer.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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)) -- 1.7.10.4