Use insert-image instead of put-image when putting images into a buffer; This makes...

diff --git a/lisp/gnus/gnus-ems.el b/lisp/gnus/gnus-ems.el
index b7dc4874f6dff5df7262713832aff17c5458c018..ab9782ab36c4edef283c327667c91db300321dd9 100644 (file)
--- 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 9c9908e0693ade99ad7f98fe8a9a575ac4a59aca..7bfb3cd785d00bb59ecba3c856cf54b468bfe102 100644 (file)
--- 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)))))