Mercurial > emacs
changeset 111699:316e4e1b628c
shr.el (shr-insert-color-overlay): Pass rgb(rrr, ggg, bbb) type color expression to shr-color-check as is.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Wed, 24 Nov 2010 06:50:28 +0000 |
| parents | b624f0531f64 |
| children | 3242c8febbd0 |
| files | lisp/gnus/ChangeLog lisp/gnus/shr.el |
| diffstat | 2 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Wed Nov 24 07:34:12 2010 +0100 +++ b/lisp/gnus/ChangeLog Wed Nov 24 06:50:28 2010 +0000 @@ -1,5 +1,8 @@ 2010-11-24 Katsumi Yamaoka <yamaoka@jpl.org> + * shr.el (shr-insert-color-overlay): Pass rgb(rrr, ggg, bbb) type color + expression to shr-color-check as is. + * shr-color.el (shr-color->hexadecimal): Ignore case of color names. * color-lab.el: Add coding cookie.
--- a/lisp/gnus/shr.el Wed Nov 24 07:34:12 2010 +0100 +++ b/lisp/gnus/shr.el Wed Nov 24 06:50:28 2010 +0000 @@ -502,11 +502,12 @@ (defun shr-insert-color-overlay (color start end) (when color - (when (string-match " " color) + (when (and (not (string-match "\\`rgb([^\)]+)\\'" color)) + (string-match " " color)) (setq color (car (split-string color)))) (let ((overlay (make-overlay start end))) (overlay-put overlay 'face (cons 'foreground-color - (cadr (shr-color-check color))))))) + (cadr (shr-color-check color))))))) ;;; Tag-specific rendering rules.