(gnus-html-put-image): Put alt-text as help-echo

Now I can read xkcd properly.

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 485bfe0..836279c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
        * gnus-html.el (gnus-html-wash-images): Use xml-substitute-special on
        images alt-text.
+       (gnus-html-put-image): Put alt-text as help-echo.
 
 2010-09-22  Katsumi Yamaoka  <yamaoka@jpl.org>
 

diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el
index 7f2cea0..366c331 100644 (file)
--- a/lisp/gnus-html.el
+++ b/lisp/gnus-html.el
@@ -404,6 +404,7 @@ Return a string with image data."
               (let ((image (gnus-html-rescale-image image data size)))
                 (delete-region start end)
                 (gnus-put-image image alt-text 'external)
+                (gnus-put-text-property start (point) 'help-echo alt-text)
                 (gnus-overlay-put (gnus-make-overlay start (point)) 'local-map
                                   gnus-html-displayed-image-map)
                 (gnus-put-text-property start (point) 'gnus-alt-text alt-text)