diff options
| -rw-r--r-- | lisp/gnus/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/gnus/shr.el | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 4f06225f8ca..e369ce9c55c 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2010-11-25 Katsumi Yamaoka <yamaoka@jpl.org> | ||
| 2 | |||
| 3 | * shr.el (shr-get-background): Fix argument name. | ||
| 4 | |||
| 1 | 2010-11-24 Lars Magne Ingebrigtsen <larsi@gnus.org> | 5 | 2010-11-24 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 2 | 6 | ||
| 3 | * gnus-cache.el (gnus-summary-insert-cached-articles): Use it. | 7 | * gnus-cache.el (gnus-summary-insert-cached-articles): Use it. |
diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index 26d2b3b4cd2..9078e524031 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el | |||
| @@ -522,7 +522,7 @@ ones, in case fg and bg are nil." | |||
| 522 | 522 | ||
| 523 | (defun shr-get-background (pos) | 523 | (defun shr-get-background (pos) |
| 524 | "Return background color at POS." | 524 | "Return background color at POS." |
| 525 | (dolist (overlay (overlays-in start (1+ start))) | 525 | (dolist (overlay (overlays-in pos (1+ pos))) |
| 526 | (let ((background (plist-get (overlay-get overlay 'face) | 526 | (let ((background (plist-get (overlay-get overlay 'face) |
| 527 | :background))) | 527 | :background))) |
| 528 | (when background | 528 | (when background |