[gnus git] branch master updated: =3= Fix up TD background colours when doing the vertical padding. ; (shr-render-td): Only do colours at the final rendering. ; Don't use current-column to find the horizontal position.

       via  dd811978420ac00e1e71c00b9291aa667950afbf (commit)
       via  05864b3cc9c4e419f04b8c3e0cab742bd11ccf58 (commit)
       via  6757fc3e5476dd55c1c4a079ec72cf5af9434579 (commit)
      from  9c48c2d0cd1604f30884219a536d0c3c4048330e (commit)


- Log -----------------------------------------------------------------
commit dd811978420ac00e1e71c00b9291aa667950afbf
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Mon Jan 31 18:58:16 2011 -0800

    Fix up TD background colours when doing the vertical padding.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b74c99a..414175e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
 	* shr.el (shr-render-td): Only do colours at the final rendering.
 	Should be slightly faster.
+	(shr-insert-table): Fix up TD background colours when doing the
+	vertical padding.
 
 	* gnus-art.el (article-date-ut): Protect against articles with no Date
 	header.
diff --git a/lisp/shr.el b/lisp/shr.el
index 715c220..10e04a8 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -1055,8 +1055,11 @@ ones, in case fg and bg are nil."
 	  ;; possibly.
 	  (dotimes (i (- height (length lines)))
 	    (end-of-line)
+	    (let ((start (point)))
 	    (insert (make-string (string-width (car lines)) ? )
 		    shr-table-vertical-line)
+	      (when (nth 4 column)
+		(shr-put-color start (1- (point)) :background (nth 4 column))))
 	    (forward-line 1)))))
     (shr-insert-table-ruler widths)))
 
@@ -1183,7 +1186,8 @@ ones, in case fg and bg are nil."
 	    (list max
 		  (count-lines (point-min) (point-max))
 		  (split-string (buffer-string) "\n")
-		  (shr-collect-overlays))
+		  (shr-collect-overlays)
+		  (cdr (assq 'background-color shr-stylesheet)))
 	  (list max
 		(shr-natural-width)))))))
 

commit 05864b3cc9c4e419f04b8c3e0cab742bd11ccf58
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Mon Jan 31 18:51:24 2011 -0800

    (shr-render-td): Only do colours at the final rendering.
    
    Should be slightly faster.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3414778..b74c99a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-02-01  Lars Ingebrigtsen  <[email protected]>
 
+	* 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 f3c75cc..715c220 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))))
+	      (forward-line 1)))
 	(when style
 	  (shr-colorize-region
 	   (point-min) (point-max)
 	   (cdr (assq 'color shr-stylesheet))
-	   (cdr (assq 'background-color shr-stylesheet))))
+	     (cdr (assq 'background-color shr-stylesheet)))))
 	(if fill
 	    (list max
 		  (count-lines (point-min) (point-max))

commit 6757fc3e5476dd55c1c4a079ec72cf5af9434579
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Mon Jan 31 18:25:48 2011 -0800

    Don't use current-column to find the horizontal position.
    
    It's fragile in the presence of \003 characters.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f24ce7f..3414778 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
 	* 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
+	horizontal position.  It's fragile in the presence of \003 characters.
 
 	* gnus-start.el (gnus-read-active-file-1): Remove dead parameter infos.
 
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 07eabd9..af47daf 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3645,7 +3645,7 @@ function and want to see what the date was before converting."
 	   (set-buffer (window-buffer w))
 	   (when (eq major-mode 'gnus-article-mode)
 	     (let ((old-line (count-lines (point-min) (point)))
-		   (old-column (current-column)))
+		   (old-column (- (point) (line-beginning-position))))
 	       (goto-char (point-min))
 	       (while (re-search-forward "^Date:" nil t)
 		 (let ((type (get-text-property (match-beginning 0) 'gnus-date-type)))

-----------------------------------------------------------------------
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   |    7 +++++++
 lisp/gnus-art.el |    2 +-
 lisp/shr.el      |   22 +++++++++++++---------
 3 files changed, 21 insertions(+), 10 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