[gnus git] branch master updated: =1= shr.el (shr-expand-newlines): Fix variable name.

       via  06f30e4c4769fd79e968730fce1619f9092ecc50 (commit)
      from  57c5ec25844ae4dd39f02976c76e0feb820d491a (commit)


- Log -----------------------------------------------------------------
commit 06f30e4c4769fd79e968730fce1619f9092ecc50
Author: Katsumi Yamaoka <[email protected]>
Date:   Tue Jan 25 10:33:14 2011 +0000

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c34e304..db850f1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-01-25  Katsumi Yamaoka  <[email protected]>
+
+	* shr.el (shr-expand-newlines): Fix variable name.
+
 2011-01-25  Lars Ingebrigtsen  <[email protected]>
 
 	* shr.el (shr-expand-newlines): Make nested boxes work.
diff --git a/lisp/shr.el b/lisp/shr.el
index aa05a06..48aee40 100644
--- a/lisp/shr.el
+++ b/lisp/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)))))
 

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog |    4 ++++
 lisp/shr.el    |   10 +++++-----
 2 files changed, 9 insertions(+), 5 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project