X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fshr-color.el;h=78fd0395290dbbc99f85e0abb3a1fd28ec67a706;hp=1e96567380325fce625945c921ee498035a14b56;hb=6140035ce0d823a83efc591efd508f994285783d;hpb=16dcabcb7241cdc9df5dbdec5dbffb1f49773168

diff --git a/lisp/shr-color.el b/lisp/shr-color.el
index 1e9656738..78fd03952 100644
--- a/lisp/shr-color.el
+++ b/lisp/shr-color.el
@@ -231,10 +231,10 @@ Like rgb() or hsl()."
   (when color
     (cond
      ;; Hexadecimal color: #abc or #aabbcc
-     ((string-match-p
-       "#[0-9a-fA-F]\\{3\\}[0-9a-fA-F]\\{3\\}?"
+     ((string-match
+       "\\(#[0-9a-fA-F]\\{3\\}[0-9a-fA-F]\\{3\\}?\\)"
        color)
-      color)
+      (match-string 1 color))
      ;; rgb() or rgba() colors
      ((or (string-match
            "rgb(\s*\\([0-9]\\{1,3\\}\\(?:\s*%\\)?\\)\s*,\s*\\([0-9]\\{1,3\\}\\(?:\s*%\\)?\\)\s*,\s*\\([0-9]\\{1,3\\}\\(?:\s*%\\)?\\)\s*)"