shr.el (shr-table-widths): Don't use cl function `reduce'.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 22378d6f372b7fad80a05502039bfd34ee6ff5fa..3a3c72572ac1bee70ef823ec962c8d669cf9b2be 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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 --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el
index bb25a6c802d68c9781fa1525403950925579ad47..ffc27e92ccdd9dc5e8efa3290973b5299efed511 100644 (file)
--- a/lisp/gnus/shr.el
+++ b/lisp/gnus/shr.el
@@ -548,8 +548,8 @@ Return a string with image data."
          (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)