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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 4f06225f8caa5d00b833d984f2c4f9bdbd7cf98e..e369ce9c55c5d8a82f2510eec943746370b66c9a 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/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/gnus/shr.el b/lisp/gnus/shr.el
index 26d2b3b4cd2a2cc114f1d4512290edb3ed7cb4b7..9078e524031ed92318a4f6eae8ebdc976599f853 100644 (file)
--- a/lisp/gnus/shr.el
+++ b/lisp/gnus/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