[Emacs-diffs] /srv/bzr/emacs/trunk r102496: shr-color.el (shr-color->hexadecimal): Ignore case of color names.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 102496
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2010-11-24 06:22:51 +0000
message:
  shr-color.el (shr-color->hexadecimal): Ignore case of color names.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/shr-color.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-11-24 01:28:37 +0000
+++ b/lisp/gnus/ChangeLog       2010-11-24 06:22:51 +0000
@@ -1,5 +1,7 @@
 2010-11-24  Katsumi Yamaoka  <address@hidden>
 
+       * shr-color.el (shr-color->hexadecimal): Ignore case of color names.
+
        * color-lab.el: Add coding cookie.
        (float-pi): Use eval-and-compile.
 

=== modified file 'lisp/gnus/shr-color.el'
--- a/lisp/gnus/shr-color.el    2010-11-23 22:24:15 +0000
+++ b/lisp/gnus/shr-color.el    2010-11-24 06:22:51 +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))))