shr.el (shr-get-background): Fix argument name.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0fd36de..482a683 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-11-25  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * shr.el (shr-get-background): Fix argument name.
+
 2010-11-24  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-cache.el (gnus-summary-insert-cached-articles): Use it.

diff --git a/lisp/shr.el b/lisp/shr.el
index 26d2b3b..9078e52 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -522,7 +522,7 @@ ones, in case fg and bg are nil."
 
 (defun shr-get-background (pos)
   "Return background color at POS."
-  (dolist (overlay (overlays-in start (1+ start)))
+  (dolist (overlay (overlays-in pos (1+ pos)))
     (let ((background (plist-get (overlay-get overlay 'face)
                                  :background)))
       (when background