From: hayashi <hayashi>
Date: Wed, 17 May 2000 03:22:08 +0000 (+0000)
Subject: * mime-image.el (mime-image-create) [XEmacs]: Don't call
X-Git-Tag: emy-1_13_6~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f0425ad570758d87473b50df2ae4b47913a3f71f;p=elisp%2Fsemi.git

* mime-image.el (mime-image-create) [XEmacs]: Don't call
`make-image-instance' directly.
---

diff --git a/ChangeLog b/ChangeLog
index dce0470..48623aa 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2000-05-16   Daiki Ueno  <ueno@unixuser.org>
+
+	* mime-image.el (mime-image-create) [XEmacs]: Don't call
+	`make-image-instance' directly.
+
 2000-05-16  Yoshiki Hayashi  <yoshiki@xemacs.org>
 
 	* mime-edit.el (mime-edit-mime-version-field-for-message/partial):
diff --git a/mime-image.el b/mime-image.el
index 2110e2c..db2e4b6 100644
--- a/mime-image.el
+++ b/mime-image.el
@@ -85,16 +85,15 @@
 	    (insert file-or-data)
 	    (setq file-or-data
 		  (mime-image-normalize-xbm-buffer (current-buffer)))))
-	(let ((instance
-	       (make-image-instance
+	(let ((glyph
+	       (make-glyph
 		(if (and type (mime-image-type-available-p type))
 		    (vconcat
 		     (list type (if data-p :data :file) file-or-data)
 		     props)
-		  file-or-data)
-		nil nil 'noerror)))
-	  (if (nothing-image-instance-p instance) nil
-	    (make-glyph instance))))
+		  file-or-data))))
+	  (if (nothing-image-instance-p (glyph-image-instance glyph)) nil
+	    glyph)))
 
       (defun mime-image-insert (image string &optional area)
 	(let ((extent (make-extent (point) (progn (insert string)(point)))))