Merge from origin/emacs-25

[gnu-emacs] / lisp / gnus / gnus-diary.el

diff --git a/lisp/gnus/gnus-diary.el b/lisp/gnus/gnus-diary.el
index af278b4427d5bb6d5124206ab3c90e3e670cf275..12ca9fcad66848d8a7a2bee1ec26f047128736f2 100644 (file)
--- a/lisp/gnus/gnus-diary.el
+++ b/lisp/gnus/gnus-diary.el
@@ -161,7 +161,7 @@ There are currently two built-in format functions:
         (sched (gnus-diary-header-schedule extras))
         (occur (nndiary-next-occurence sched (current-time)))
         (now (current-time))
-        (real-time (subtract-time occur now)))
+        (real-time (time-subtract occur now)))
     (if (null real-time)
        "?????"
       (let* ((sec (+ (* (float (car real-time)) 65536) (cadr real-time)))