Bind RET and TAB on images for better UX.

diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el
index 82fae17..0308941 100644 (file)
--- a/lisp/gnus-html.el
+++ b/lisp/gnus-html.el
@@ -76,6 +76,9 @@ fit these criteria."
   (let ((map (make-sparse-keymap)))
     (define-key map "a" 'gnus-html-show-alt-text)
     (define-key map "i" 'gnus-html-browse-image)
+    (define-key map "\r" 'gnus-html-browse-url)
+    (define-key map "u" 'gnus-article-copy-string)
+    (define-key map [tab] 'widget-forward)
     map))
 
 ;;;###autoload
@@ -271,6 +274,14 @@ fit these criteria."
   (interactive)
   (browse-url (get-text-property (point) 'gnus-image)))
 
+(defun gnus-html-browse-url ()
+  "Browse the image under point."
+  (interactive)
+  (let ((url (get-text-property (point) 'gnus-string)))
+    (if (not url)
+       (message "No URL at point")
+      (browse-url url))))
+
 (defun gnus-html-schedule-image-fetching (buffer images)
   (gnus-message 8 "gnus-html-schedule-image-fetching: buffer %s, images %s"
                 buffer images)