[Emacs-diffs] /srv/bzr/emacs/trunk r102975: shr.el (shr-expand-newlines): Fix variable name.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 102975
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Tue 2011-01-25 10:36:00 +0000
message:
  shr.el (shr-expand-newlines): Fix variable name.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/shr.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-01-25 08:42:32 +0000
+++ b/lisp/gnus/ChangeLog       2011-01-25 10:36:00 +0000
@@ -1,3 +1,7 @@
+2011-01-25  Katsumi Yamaoka  <address@hidden>
+
+       * shr.el (shr-expand-newlines): Fix variable name.
+
 2011-01-25  Lars Ingebrigtsen  <address@hidden>
 
        * shr.el (shr-expand-newlines): Make nested boxes work.

=== modified file 'lisp/gnus/shr.el'
--- a/lisp/gnus/shr.el  2011-01-25 08:42:32 +0000
+++ b/lisp/gnus/shr.el  2011-01-25 10:36:00 +0000
@@ -663,23 +663,23 @@
       (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)))))