shr.el (shr-expand-newlines): Fix variable name.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 16d0787f768efde36dc5dcdbbc249d932d3c329f..af4bebdd409e0411cb7045fd7afb5ed6fb0807ad 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2011-01-25  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * shr.el (shr-expand-newlines): Fix variable name.
+
 2011-01-25  Lars Ingebrigtsen  <larsi@gnus.org>
 
        * shr.el (shr-expand-newlines): Make nested boxes work.

diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el
index aa05a061868bac82b6fc69bb02ba8210e3ed1d8f..48aee4004dbf98557a14da89da3cbb83e47fe3bb 100644 (file)
--- a/lisp/gnus/shr.el
+++ b/lisp/gnus/shr.el
@@ -663,23 +663,23 @@ ones, in case fg and bg are nil."
       (goto-char (point-min))
       (while (not (eobp))
        (end-of-line)
-       (when (and (< (setq current-column (current-column)) width)
-                  (< (setq current-column (shr-previous-newline-padding-width
-                                           current-column))
+       (when (and (< (setq column (current-column)) width)
+                  (< (setq column (shr-previous-newline-padding-width column))
                      width))
          (let ((overlay (make-overlay (point) (1+ (point)))))
            (overlay-put overlay 'before-string
                         (concat
                          (mapconcat
                           (lambda (overlay)
-                            (let ((string (getf (overlay-properties overlay) 'before-string)))
+                            (let ((string (getf (overlay-properties overlay)
+                                                'before-string)))
                               (if (not string)
                                   ""
                                 (overlay-put overlay 'before-string "")
                                 string)))
                           (overlays-at (point))
                           "")
-                         (propertize (make-string (- width current-column) ? )
+                         (propertize (make-string (- width column) ? )
                                      'face (list :background color))))))
        (forward-line 1)))))