diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2010-11-24 00:35:23 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-11-24 00:35:23 +0000 |
| commit | 1110d53b4e577e1ad2adb25ae1d259768d84563b (patch) | |
| tree | 8146a527531b5d43c469fe452aeda7af697b1038 /lisp/gnus/shr.el | |
| parent | 094ae2abf32ae1bab203c181d42a777c773d65bc (diff) | |
| download | emacs-1110d53b4e577e1ad2adb25ae1d259768d84563b.tar.gz emacs-1110d53b4e577e1ad2adb25ae1d259768d84563b.tar.bz2 emacs-1110d53b4e577e1ad2adb25ae1d259768d84563b.zip | |
shr.el (shr-tag-font): Resurrect shr-tag-font again, since it's needed to parse <font color="red"> entries.
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 |