# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1283211319 0
# Node ID 46d881ed54913dd835832b99b2f57a8d892c5e9f
# Parent  63fee04d3f819c9849484b945a87def0dc20e602
Use insert-image instead of put-image when putting images into a buffer; This makes all the Gnus image-inserting functions work, I think; by Lars Magne Ingebrigtsen <larsi@gnus.org>.

diff -r 63fee04d3f81 -r 46d881ed5491 lisp/gnus/gnus-ems.el
--- a/lisp/gnus/gnus-ems.el	Mon Aug 30 23:29:56 2010 +0000
+++ b/lisp/gnus/gnus-ems.el	Mon Aug 30 23:35:19 2010 +0000
@@ -278,7 +278,7 @@
   (let ((point (or point (point))))
     (save-excursion
       (goto-char point)
-      (put-image glyph point)
+      (insert-image glyph (or string " "))
       (put-text-property point (point) 'gnus-image-category category)
       (unless string
 	(put-text-property (1- (point)) (point)
diff -r 63fee04d3f81 -r 46d881ed5491 lisp/gnus/gnus-html.el
--- a/lisp/gnus/gnus-html.el	Mon Aug 30 23:29:56 2010 +0000
+++ b/lisp/gnus/gnus-html.el	Mon Aug 30 23:35:19 2010 +0000
@@ -157,7 +157,7 @@
 	  (set-buffer buffer)
 	  (let ((buffer-read-only nil))
 	    (when (gnus-html-put-image file (cadr spec))
-	      (delete-region (cadr spec) (caddr spec))))))
+	      (delete-region (1+ (cadr spec)) (caddr spec))))))
       (when images
 	(gnus-html-schedule-image-fetching buffer images)))))