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

This commit is contained in:
Katsumi Yamaoka 2010-08-30 23:35:19 +00:00
parent 929989ffac
commit a3e01263b1
2 changed files with 2 additions and 2 deletions

View file

@ -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)

View file

@ -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)))))