From: morioka <morioka>
Date: Sun, 21 Jun 1998 11:52:30 +0000 (+0000)
Subject: (mime-display-image): Use `mime-entity-content'.
X-Git-Tag: semi-1_7_1~20
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=587feb88016928b3834054e7f9132bd6fd46f891;p=elisp%2Fsemi.git

(mime-display-image): Use `mime-entity-content'.
---

diff --git a/mime-image.el b/mime-image.el
index f28a08c..1e20ac0 100644
--- a/mime-image.el
+++ b/mime-image.el
@@ -138,15 +138,7 @@
 (defun mime-display-image (entity situation)
   (message "Decoding image...")
   (let ((gl (image-normalize (cdr (assq 'image-format situation))
-			     (with-temp-buffer
-			       (insert-buffer-substring
-				(mime-entity-buffer entity)
-				(mime-entity-body-start entity)
-				(mime-entity-body-end entity))
-			       (mime-decode-region
-				(point-min)(point-max)
-				(mime-entity-encoding entity))
-			       (buffer-string)))))
+			     (mime-entity-content entity))))
     (cond ((image-invalid-glyph-p gl)
 	   (setq gl nil)
 	   (message "Invalid glyph!")