From: Sam Steingold <sds@gnu.org>
Date: Tue, 13 May 2014 01:09:31 +0000 (+0000)
Subject: time-date.el (seconds-to-string): Avoid function from `cl'
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=0b06b1140cae4b466e4d0119d2070a628c02aa2b;hp=4bc48529523159c55dcd62d5a6be60521540b371

time-date.el (seconds-to-string): Avoid function from `cl'
---

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)