gnus-html-wash-images: Fix spec computing to include start/end

Signed-off-by: Julien Danjou <julien@danjou.info>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 080233c..f4c329f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
        * gnus-html.el (gnus-html-show-images): Fix gnus-html-display-image
        arguments.
+       (gnus-html-wash-images): Fix spec computing to include start/end.
 
        * gnus-art.el (gnus-article-treat-body-boundary): Fix length computing.
 

diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el
index 926b20d..587c28e 100644 (file)
--- a/lisp/gnus-html.el
+++ b/lisp/gnus-html.el
@@ -226,7 +226,7 @@ CHARS is a regexp-like character alternative (e.g., \"[)$]\")."
                    :keymap gnus-html-image-map
                    :button-keymap gnus-html-image-map)
                   (let ((overlay (gnus-make-overlay start end))
-                        (spec (list url alt-text)))
+                        (spec (list url start end alt-text)))
                     (gnus-overlay-put overlay 'local-map gnus-html-image-map)
                     (gnus-overlay-put overlay 'gnus-image spec)
                     (gnus-put-text-property
@@ -492,11 +492,7 @@ This only works if the article in question is HTML."
     (dolist (overlay (overlays-in (point-min) (point-max)))
       (let ((o (overlay-get overlay 'gnus-image)))
         (when o
-          (apply 'gnus-html-display-image
-                 (list (car o)
-                       (overlay-start overlay)
-                       (overlay-end overlay)
-                       (cadr o))))))))
+          (apply 'gnus-html-display-image o))))))
 
 ;;;###autoload
 (defun gnus-html-prefetch-images (summary)