diff options
Diffstat (limited to 'lisp/gnus/shr.el')
| -rw-r--r-- | lisp/gnus/shr.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index 8398e8a6114..b195f6bf8a5 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el @@ -702,6 +702,12 @@ START, and END." (shr-ensure-newline) (insert (make-string shr-width shr-hr-line) "\n")) +(defun shr-tag-font (cont) + (let ((start (point)) + (color (cdr (assq :color cont)))) + (shr-generic cont) + (shr-insert-color-overlay color start (point)))) + ;;; Table rendering algorithm. ;; Table rendering is the only complicated thing here. We do this by |