Mercurial > emacs
changeset 110041:46d881ed5491
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>.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Mon, 30 Aug 2010 23:35:19 +0000 |
| parents | 63fee04d3f81 |
| children | d8ded88bb148 |
| files | lisp/gnus/gnus-ems.el lisp/gnus/gnus-html.el |
| diffstat | 2 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)
--- 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)))))