lisp/gnus/shr.el (shr-tag-span): New function

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 7f6b171f344b2e414310a05e80c64996e9d0e6d4..8d380695ec1ffe79c6cff5c542cbf794d04009ae 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2013-05-19  Adam Sjøgren  <asjo@koldfront.dk>
+
+       * shr.el (shr-tag-span): New function.
+
 2013-05-18  Glenn Morris  <rgm@gnu.org>
 
        * message.el (message-mode): Use message-mode-abbrev-table,

diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el
index 5c1b99e77070940aed85b3474b2378bd6335389d..2d2272d6c1167285a83b5135ac5180b4950360cc 100644 (file)
--- a/lisp/gnus/shr.el
+++ b/lisp/gnus/shr.el
@@ -1088,6 +1088,14 @@ ones, in case fg and bg are nil."
     (shr-indent))
   (shr-generic cont))
 
+(defun shr-tag-span (cont)
+  (let ((title (cdr (assq :title cont))))
+    (shr-generic cont)
+    (when title
+      (when shr-start
+        (let ((overlay (shr-make-overlay shr-start (point))))
+          (overlay-put overlay 'help-echo title))))))
+
 (defun shr-tag-h1 (cont)
   (shr-heading cont 'bold 'underline))