* shr.el (shr-parse-style): Drop !important from styles.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9b3045f..7a74beb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-11-24  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * shr.el (shr-parse-style): Drop !important from styles.
+
 2010-11-24  Daniel Schoepe  <daniel.schoepe@googlemail.com>  (tiny change)
 
        * gnus-sum.el (gnus-summary-articles-in-thread): Fix a bug that causes

diff --git a/lisp/shr.el b/lisp/shr.el
index 73649a2..43b680f 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -524,10 +524,10 @@ ones, in case fg and bg are nil."
   (when fg
     (let ((bg
            (dolist (overlay (overlays-in start end))
-             (let ((background (plist-get (overlay-get overlay 'face) :background)))
+             (let ((background (plist-get (overlay-get overlay 'face)
+                                         :background)))
                (when background
                  (return background))))))
-      (message (format "BG FOUND: %s" bg))
       (let ((new-colors (shr-color-check fg bg)))
         (when new-colors
           (overlay-put (make-overlay start end) 'face
@@ -596,6 +596,8 @@ text will be inserted at start."
                     (cadr elem))
            (let ((name (replace-regexp-in-string "^ +\\| +$" "" (car elem)))
                  (value (replace-regexp-in-string "^ +\\| +$" "" (cadr elem))))
+             (when (string-match " *!important\\'" value)
+               (setq value (substring value 0 (match-beginning 0))))
              (push (cons (intern name obarray)
                          value)
                    plist)))))