gnus-art.el (gnus-mime-buttonize-attachments-in-header): Improve criterion that finds...

[gnus] / lisp / time-date.el

diff --git a/lisp/time-date.el b/lisp/time-date.el
index eb534b6..b04cfcd 100644 (file)
--- 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)