Mercurial > emacs
changeset 111694:bef4f575201b
shr.el (shr-tag-font): Resurrect shr-tag-font again, since it's needed to parse <font color="red"> entries.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Wed, 24 Nov 2010 00:35:23 +0000 |
| parents | 1cb16ad0d1bc |
| children | 62d2be8b2bd2 |
| files | lisp/gnus/ChangeLog lisp/gnus/shr.el |
| diffstat | 2 files changed, 8 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Tue Nov 23 22:24:15 2010 +0000 +++ b/lisp/gnus/ChangeLog Wed Nov 24 00:35:23 2010 +0000 @@ -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 <font color="red"> entries. 2010-11-23 Andrew Cohen <cohen@andy.bu.edu>
--- a/lisp/gnus/shr.el Tue Nov 23 22:24:15 2010 +0000 +++ b/lisp/gnus/shr.el Wed Nov 24 00:35:23 2010 +0000 @@ -702,6 +702,12 @@ (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