diff options
Diffstat (limited to 'lisp/gnus/shr.el')
| -rw-r--r-- | lisp/gnus/shr.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index 5c1b99e7707..2d2272d6c11 100644 --- 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)) |