[Emacs-diffs] /srv/bzr/emacs/trunk r102499: shr.el (shr-insert-color-overlay): Pass rgb(rrr, ggg, bbb) type color expression to shr-color-check as is.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 102499
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2010-11-24 06:50:28 +0000
message:
  shr.el (shr-insert-color-overlay): Pass rgb(rrr, ggg, bbb) type color 
expression to shr-color-check as is.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/shr.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-11-24 06:22:51 +0000
+++ b/lisp/gnus/ChangeLog       2010-11-24 06:50:28 +0000
@@ -1,5 +1,8 @@
 2010-11-24  Katsumi Yamaoka  <address@hidden>
 
+       * 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.

=== modified file 'lisp/gnus/shr.el'
--- a/lisp/gnus/shr.el  2010-11-24 00:35:23 +0000
+++ b/lisp/gnus/shr.el  2010-11-24 06:50:28 +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.