From 6815f2238459cfda15565f2b3194e30d31bbe841 Mon Sep 17 00:00:00 2001 From: Julien Danjou Date: Tue, 21 Sep 2010 11:05:18 +0200 Subject: [PATCH] (gnus-html-image-map): Add v to browse-url on undisplayed image. Signed-off-by: Julien Danjou --- lisp/ChangeLog | 1 + lisp/gnus-html.el | 2 ++ 2 files changed, 3 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6897c3983..71ba7cdd3 100644 --- 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 diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el index 0f37f400c..34dbb4dd8 100644 --- 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))) -- 2.25.1