(gnus-html-image-map): Add v to browse-url on undisplayed image.

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6897c39..71ba7cd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -20,6 +20,7 @@
        push into a temporary list.
        (gnus-html-prefetch-images): Only fetch image if they have expired.
        (gnus-html-browse-image): Fix, use 'gnus-image-url.
+       (gnus-html-image-map): Add "v" to browse-url on undisplayed image.
 
 2010-09-20  Katsumi Yamaoka  <yamaoka@jpl.org>
 

diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el
index 0f37f40..34dbb4d 100644 (file)
--- a/lisp/gnus-html.el
+++ b/lisp/gnus-html.el
@@ -68,6 +68,7 @@ fit these criteria."
   (let ((map (make-sparse-keymap)))
     (define-key map "u" 'gnus-article-copy-string)
     (define-key map "i" 'gnus-html-insert-image)
+    (define-key map "v" 'gnus-html-browse-url)
     map))
 
 (defvar gnus-html-displayed-image-map
@@ -195,6 +196,7 @@ fit these criteria."
                                     alt-text)))
                     (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-url url)
                     (gnus-put-text-property
                      start end
                      'gnus-image spec)))