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>.

2 files changed, 2 insertions, 2 deletions

diff --git a/lisp/gnus/gnus-ems.el b/lisp/gnus/gnus-ems.el
index b7dc4874f6d..ab9782ab36c 100644
--- a/lisp/gnus/gnus-ems.el
+++ b/lisp/gnus/gnus-ems.el
@@ -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 --git a/lisp/gnus/gnus-html.el b/lisp/gnus/gnus-html.el
index 9c9908e0693..7bfb3cd785d 100644
--- a/lisp/gnus/gnus-html.el
+++ b/lisp/gnus/gnus-html.el
@@ -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)))))