From a3e01263b117b9f82b4c8d1e2e22f40b5112a749 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Mon, 30 Aug 2010 23:35:19 +0000 Subject: [PATCH] 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 . --- lisp/gnus/gnus-ems.el | 2 +- lisp/gnus/gnus-html.el | 2 +- 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))))) -- 2.39.2