(shr-insert-table): Bind free variable.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 86a1554..00bfaac 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-10-05  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 2010-10-05  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 

+       * shr.el (shr-insert-table): Bind free variable.
+

        * mm-decode.el (mm-shr): Bind shr-content-function.
 
        * shr.el (shr-content-function): New variable.
        * mm-decode.el (mm-shr): Bind shr-content-function.
 
        * shr.el (shr-content-function): New variable.

diff --git a/lisp/shr.el b/lisp/shr.el
index fe22813..9318740 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -460,7 +460,7 @@ Return a string with image data."
        (goto-char start)
        (let ((lines (split-string (nth 2 column) "\n"))
              (overlay-lines (nth 3 column))
        (goto-char start)
        (let ((lines (split-string (nth 2 column) "\n"))
              (overlay-lines (nth 3 column))

-             overlay)
+             overlay overlay-line)

          (dolist (line lines)
            (setq overlay-line (pop overlay-lines))
            (when (> (length line) 0)
          (dolist (line lines)
            (setq overlay-line (pop overlay-lines))
            (when (> (length line) 0)