(mime-display-image): Use `mime-entity-content'.
authormorioka <morioka>
Sun, 21 Jun 1998 11:52:30 +0000 (11:52 +0000)
committermorioka <morioka>
Sun, 21 Jun 1998 11:52:30 +0000 (11:52 +0000)
mime-image.el

index f28a08c..1e20ac0 100644 (file)
 (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!")