From 69881db0cbcf68001165a44b2ab2595c23e035e3 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Wed, 24 Nov 2010 06:50:28 +0000 Subject: [PATCH] shr.el (shr-insert-color-overlay): Pass rgb(rrr, ggg, bbb) type color expression to shr-color-check as is. --- lisp/gnus/ChangeLog | 3 +++ lisp/gnus/shr.el | 5 +++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 60173116746..e9a92acc790 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,8 @@ 2010-11-24 Katsumi Yamaoka + * 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. diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index b195f6bf8a5..3d3b199cd7e 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el @@ -502,11 +502,12 @@ START, and END." (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. -- 2.39.5