When the background color isn't explicit, use a fixed background.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 562cc60..6b71289 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -9,6 +9,8 @@
        (shr-tag-body): Use post-hoc colorizations.
        (shr-tag-body): Set up a style sheet based on bgcolor/fgcolor.
        (shr-put-color-1): Don't overwrite old colors.
+       (shr-colorize-region): When the background color isn't explicit, use
+       a fixed background.
 
        * gnus-util.el (gnus-output-to-mail): Require nnmail before using
        nnmail variables.

diff --git a/lisp/shr.el b/lisp/shr.el
index 7b7e008..0b2fa93 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -587,9 +587,7 @@ ones, in case fg and bg are nil."
 
 (defun shr-colorize-region (start end fg &optional bg)
   (when fg
-    (let ((new-colors
-          (shr-color-check fg (or bg
-                                  (frame-parameter nil 'background-color)))))
+    (let ((new-colors (shr-color-check fg bg)))
       (when new-colors
        (shr-put-color start end :foreground (cadr new-colors))
        (when bg