From: Katsumi Yamaoka Date: Mon, 30 Aug 2010 23:35:19 +0000 (+0000) Subject: Use insert-image instead of put-image when putting images into a buffer; This makes... X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~48^2~199 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a3e01263b117b9f82b4c8d1e2e22f40b5112a749;p=emacs.git 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 . --- 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)))))