From 28e44fbf620ce0a079e492b3927a28769b318764 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sat, 4 Sep 2010 00:26:18 +0000 Subject: [PATCH] gnus-html.el: Fix up the logic that marks resized images for buffer deletion; Have the image insertion work even if the missing image is in an . --- lisp/gnus/gnus-html.el | 17 +++++++++++------ 1 file changed, 11 insertions(+), 6 deletions(-) diff --git a/lisp/gnus/gnus-html.el b/lisp/gnus/gnus-html.el index 4c0d4c0664f..a42cd9309b5 100644 --- a/lisp/gnus/gnus-html.el +++ b/lisp/gnus/gnus-html.el @@ -161,11 +161,15 @@ fit these criteria." :help-echo url :keymap gnus-html-image-map :button-keymap gnus-html-image-map) - (gnus-put-text-property - start end - 'gnus-image (list url - (set-marker (make-marker) start) - (set-marker (make-marker) end)))) + (let ((overlay (gnus-make-overlay start end)) + (spec (list url + (set-marker (make-marker) start) + (set-marker (make-marker) end)))) + (gnus-overlay-put overlay 'local-map gnus-html-image-map) + (gnus-overlay-put overlay 'gnus-image spec) + (gnus-put-text-property + start end + 'gnus-image spec))) (let ((file (gnus-html-image-id url)) width height) (when (string-match "height=\"?\\([0-9]+\\)" parameters) @@ -292,7 +296,8 @@ fit these criteria." (= (car size) 30) (= (cdr size) 30)))) (progn - (gnus-put-image (gnus-html-rescale-image image file size) + (setq image (gnus-html-rescale-image image file size)) + (gnus-put-image image (gnus-string-or string "*") 'external) (gnus-add-image 'external image) -- 2.39.2