X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Ftime-date.el;h=b04cfcd9fe41ac21d9619d1e0861d6ee0bfecb76;hb=1c2ed0ce5abe2181e51f777171f8cd40a547e5a9;hp=eb534b6b89f59bfa9fc7530372bb490949ce16ed;hpb=4bc48529523159c55dcd62d5a6be60521540b371;p=gnus

diff --git a/lisp/time-date.el b/lisp/time-date.el
index eb534b6b8..b04cfcd9f 100644
--- a/lisp/time-date.el
+++ b/lisp/time-date.el
@@ -404,7 +404,7 @@ This function does not work for SECONDS greater than `most-positive-fixnum'."
         (t (let ((sts seconds-to-string) here)
              (while (and (car (setq here (pop sts)))
                          (<= (car here) delay)))
-             (concat (format "%.2f" (/ delay (third here))) (second here))))))
+             (concat (format "%.2f" (/ delay (car (cddr here)))) (cadr here))))))
 
 (provide 'time-date)