# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1290579771 0
# Node ID c63f96430f632e4e33125b8a0378ed23a39aeeda
# Parent  62d2be8b2bd2f885b315a068c11edb431c0c64d5
shr-color.el (shr-color->hexadecimal): Ignore case of color names.

diff -r 62d2be8b2bd2 -r c63f96430f63 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Wed Nov 24 01:28:37 2010 +0000
+++ b/lisp/gnus/ChangeLog	Wed Nov 24 06:22:51 2010 +0000
@@ -1,5 +1,7 @@
 2010-11-24  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+	* shr-color.el (shr-color->hexadecimal): Ignore case of color names.
+
 	* color-lab.el: Add coding cookie.
 	(float-pi): Use eval-and-compile.
 
diff -r 62d2be8b2bd2 -r c63f96430f63 lisp/gnus/shr-color.el
--- a/lisp/gnus/shr-color.el	Wed Nov 24 01:28:37 2010 +0000
+++ b/lisp/gnus/shr-color.el	Wed Nov 24 06:22:51 2010 +0000
@@ -260,8 +260,7 @@
             (shr-color-hsl-to-rgb-fractions h s l)
           (format "#%02X%02X%02X" (* r 255) (* g 255) (* b 255)))))
      ;; Color names
-     ((assoc color shr-color-html-colors-alist)
-      (cdr (assoc-string color shr-color-html-colors-alist t)))
+     ((cdr (assoc-string color shr-color-html-colors-alist t)))
      ;; Unrecognized color :(
      (t
       nil))))