X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime-image.el;fp=mime-image.el;h=76c23356a8171b8bb4466ac38e42387b9ff12eba;hb=04ba6eda9f256106a9cdf215998b71b51a2023b1;hp=48e1230b5f9f1e6712564d3d57c7ce68fbe23ba1;hpb=48273ef4f64d947e1e2e7fd717e521cdc10f8439;p=elisp%2Fsemi.git

diff --git a/mime-image.el b/mime-image.el
index 48e1230..76c2335 100644
--- 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