From 1110d53b4e577e1ad2adb25ae1d259768d84563b Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Wed, 24 Nov 2010 00:35:23 +0000 Subject: [PATCH] shr.el (shr-tag-font): Resurrect shr-tag-font again, since it's needed to parse entries. --- lisp/gnus/ChangeLog | 2 ++ lisp/gnus/shr.el | 6 ++++++ 2 files changed, 8 insertions(+) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 3717191ba32..41eab2f092a 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -2,6 +2,8 @@ * shr.el (shr-insert-color-overlay): Split stuff like "#444444 !important" to find the real colour. + (shr-tag-font): Resurrect shr-tag-font again, since it's needed to + parse entries. 2010-11-23 Andrew Cohen 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 -- 2.39.2