From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Tue, 1 Feb 2011 02:51:24 +0000 (-0800)
Subject: (shr-render-td): Only do colours at the final rendering.
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=05864b3cc9c4e419f04b8c3e0cab742bd11ccf58;p=gnus

(shr-render-td): Only do colours at the final rendering.

Should be slightly faster.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3414778e5..b74c99aa4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-02-01  Lars Ingebrigtsen  <larsi@gnus.org>
 
+	* shr.el (shr-render-td): Only do colours at the final rendering.
+	Should be slightly faster.
+
 	* gnus-art.el (article-date-ut): Protect against articles with no Date
 	header.
 	(article-update-date-lapsed): Don't use current-column to find the
diff --git a/lisp/shr.el b/lisp/shr.el
index f3c75ccd6..715c22098 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -1173,12 +1173,12 @@ ones, in case fg and bg are nil."
 	      (end-of-line)
 	      (when (> (- width (current-column)) 0)
 		(insert (make-string (- width (current-column)) ? )))
-	      (forward-line 1))))
-	(when style
-	  (shr-colorize-region
-	   (point-min) (point-max)
-	   (cdr (assq 'color shr-stylesheet))
-	   (cdr (assq 'background-color shr-stylesheet))))
+	      (forward-line 1)))
+	  (when style
+	    (shr-colorize-region
+	     (point-min) (point-max)
+	     (cdr (assq 'color shr-stylesheet))
+	     (cdr (assq 'background-color shr-stylesheet)))))
 	(if fill
 	    (list max
 		  (count-lines (point-min) (point-max))