From: morioka <morioka>
Date: Wed, 30 Sep 1998 17:20:14 +0000 (+0000)
Subject: (mime-entity-buffer): Register return value from method function.
X-Git-Tag: chao-1_10-199811302358~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fd39f1e767ef876f6a5497be2c040407b83bcbfe;p=elisp%2Fflim.git

(mime-entity-buffer): Register return value from method function.
(mime-entity-content-type): Fix typo.
---

diff --git a/mime.el b/mime.el
index b5529c1..3e8bfd2 100644
--- a/mime.el
+++ b/mime.el
@@ -157,7 +157,8 @@ If MESSAGE is specified, it is regarded as root entity."
 
 (defun mime-entity-buffer (entity)
   (or (mime-entity-buffer-internal entity)
-      (mime-entity-send entity 'entity-buffer)))
+      (mime-entity-set-buffer-internal
+       (mime-entity-send entity 'entity-buffer))))
 
 (mm-define-generic entity-point-min (entity)
   "Return the start point of ENTITY in the buffer which contains ENTITY.")
@@ -223,7 +224,7 @@ If MESSAGE is specified, it is regarded as root entity."
   (or (mime-entity-content-type-internal entity)
       (let ((ret (mime-fetch-field 'Content-Type entity)))
 	(if ret
-	    (mime-entity-set-content-disposition-internal
+	    (mime-entity-set-content-type-internal
 	     entity (mime-parse-Content-Type ret))
 	  ))))