From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Wed, 24 Nov 2010 06:22:51 +0000 (+0000)
Subject: shr-color.el (shr-color->hexadecimal): Ignore case of color names.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~45^2~135
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4b8b6f602a2a006f4a1a8257e1110eb3d3d8bb1b;p=emacs.git

shr-color.el (shr-color->hexadecimal): Ignore case of color names.
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index a1f1fa5eaea..60173116746 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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 --git a/lisp/gnus/shr-color.el b/lisp/gnus/shr-color.el
index d611609e39c..1e965673803 100644
--- a/lisp/gnus/shr-color.el
+++ b/lisp/gnus/shr-color.el
@@ -260,8 +260,7 @@ Like rgb() or hsl()."
             (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))))