[gnus git] branch master updated: m0-7-143-g46c22a7 =1= Protect against invalid column-spans.

       via  46c22a7cc913e94deb9ef826887fff586b32df5b (commit)
      from  c6b6290917b2629807df2f4bfa382e849495e5df (commit)


- Log -----------------------------------------------------------------
commit 46c22a7cc913e94deb9ef826887fff586b32df5b
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Wed Jun 19 23:01:09 2013 +0200

    Protect against invalid column-spans.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index da02588..2b0ab1b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-06-19  Lars Magne Ingebrigtsen  <[email protected]>
+
+	* shr.el (shr-make-table-1): Protect against invalid column-spans.
+
 2013-06-19  Tom Tromey  <[email protected]>
 
 	* net/eww.el (eww-top-url): Remove.
diff --git a/lisp/shr.el b/lisp/shr.el
index acda83f..868956d 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -1463,6 +1463,9 @@ ones, in case fg and bg are nil."
 		(aset rowspans i (+ (aref rowspans i)
 				    (1- (string-to-number
 					 (cdr (assq :rowspan (cdr column))))))))
+	      ;; Sanity check for invalid column-spans.
+	      (when (>= width-column (length widths))
+		(setq width-column 0))
 	      (setq width
 		    (if column
 			(aref widths width-column)

-----------------------------------------------------------------------
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    |    3 +++
 2 files changed, 7 insertions(+), 0 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