* mime-image.el (mime-image-create) [XEmacs]: Ignore errors about

to obtain the instance of glyph's image.
[cf. <emacs-mime-ja:989>]

diff --git a/mime-image.el b/mime-image.el
index 39806f9..1a584f8 100644 (file)
--- a/mime-image.el
+++ b/mime-image.el
@@ -92,7 +92,8 @@
                     (list type (if data-p :data :file) file-or-data)
                     props)
                  file-or-data))))
-         (if (nothing-image-instance-p (glyph-image-instance glyph)) nil
+         (if (nothing-image-instance-p (ignore-errors
+                                         (glyph-image-instance glyph))) nil
            glyph)))
 
       (defun mime-image-insert (image &optional string area)