From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 1 Aug 2019 11:47:04 +0000 (+0200)
Subject: Use decoded-time accessors in gnus-demon
X-Git-Tag: emacs-27.0.90~1783
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3001c6eaa878db9e384bfcb499fe483a0dad7430;p=emacs.git

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 b26aaa15297..6007e18f558 100644
--- 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