# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1286502668 0
# Node ID 3d3d152230587a8dc00f3d1015a2e5719bda18fd
# Parent  4d1b1a2c88c6c7636ce8aebef6b60647d754ae3a
shr.el (shr-table-widths): Don't use cl function `reduce'.

diff -r 4d1b1a2c88c6 -r 3d3d15223058 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Thu Oct 07 20:05:12 2010 -0400
+++ b/lisp/gnus/ChangeLog	Fri Oct 08 01:51:08 2010 +0000
@@ -1,3 +1,7 @@
+2010-10-08  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* shr.el (shr-table-widths): Don't use cl function `reduce'.
+
 2010-10-07  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* shr.el (require): Require cl when compiling.
diff -r 4d1b1a2c88c6 -r 3d3d15223058 lisp/gnus/shr.el
--- a/lisp/gnus/shr.el	Thu Oct 07 20:05:12 2010 -0400
+++ b/lisp/gnus/shr.el	Fri Oct 08 01:51:08 2010 +0000
@@ -548,8 +548,8 @@
 	  (aset natural-widths i (max (aref natural-widths i)
 				      (cadr column)))
 	  (setq i (1+ i)))))
-    (let ((extra (- (reduce '+ suggested-widths)
-		    (reduce '+ widths)))
+    (let ((extra (- (apply '+ (append suggested-widths nil))
+		    (apply '+ (append widths nil))))
 	  (expanded-columns 0))
       (when (> extra 0)
 	(dotimes (i length)