Use decoded-time accessors in gnus-demon

* lisp/gnus/gnus-demon.el (gnus-demon-time-to-step): Use
decoded-time accessors for results from `parse-time-string'.

diff --git a/lisp/gnus/gnus-demon.el b/lisp/gnus/gnus-demon.el
index b26aaa1529734dded63d1ef6309f1d1e8fa4551d..6007e18f5586dc89753c74bfdb0b684e12a9c255 100644 (file)
--- a/lisp/gnus/gnus-demon.el
+++ b/lisp/gnus/gnus-demon.el
@@ -173,8 +173,8 @@ marked with SPECIAL."
         (nowParts (decode-time now))
         ;; obtain THEN as discrete components
         (thenParts (parse-time-string time))
-        (thenHour (elt thenParts 2))
-        (thenMin (elt thenParts 1))
+        (thenHour (decoded-time-hour thenParts))
+        (thenMin (decoded-time-minute thenParts))
         ;; convert time as elements into number of seconds since EPOCH.
         (then (encode-time
                0