(mime-image-insert) [XEmacs]: Insert `string' only if it is non-nil.

diff --git a/mime-image.el b/mime-image.el
index 48e1230..76c2335 100644 (file)
--- a/mime-image.el
+++ b/mime-image.el
@@ -96,7 +96,10 @@
            glyph)))
 
       (defun mime-image-insert (image &optional string area)
-       (let ((extent (make-extent (point) (progn (insert string)(point)))))
+       (let ((extent (make-extent (point)
+                                  (progn (and string
+                                              (insert string))
+                                         (point)))))
          (set-extent-property extent 'invisible t)
          (set-extent-end-glyph extent image))))
   (condition-case nil