mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-19 12:20:17 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

2
lisp/gnus/gnus-ems.el
View file

@ -278,7 +278,7 @@
(let ((point (or point (point)))) (let ((point (or point (point))))
(save-excursion (save-excursion
(goto-char point) (goto-char point)
(put-image glyph point) (insert-image glyph (or string " "))
(put-text-property point (point) 'gnus-image-category category) (put-text-property point (point) 'gnus-image-category category)
(unless string (unless string
(put-text-property (1- (point)) (point) (put-text-property (1- (point)) (point)

2
lisp/gnus/gnus-html.el
View file

@ -157,7 +157,7 @@
(set-buffer buffer) (set-buffer buffer)
(let ((buffer-read-only nil)) (let ((buffer-read-only nil))
(when (gnus-html-put-image file (cadr spec)) (when (gnus-html-put-image file (cadr spec))
(delete-region (cadr spec) (caddr spec)))))) (delete-region (1+ (cadr spec)) (caddr spec))))))
(when images (when images
(gnus-html-schedule-image-fetching buffer images))))) (gnus-html-schedule-image-fetching buffer images)))))