master 9e131f5 9/9: Simplify epa-ks--parse-buffer timestamp handling

[Paul Eggert]

branch: master
commit 9e131f55d8d5a1eeb44e7c5a3a5e56804be60dba
Author: Paul Eggert <eggert@cs.ucla.edu>
Commit: Paul Eggert <eggert@cs.ucla.edu>

    Simplify epa-ks--parse-buffer timestamp handling
    
    * lisp/epa-ks.el (epa-ks--parse-buffer): Omit unnecessary calls to
    seconds-to-time, and prefer the unaliased name time-convert when
    calls are necessary.
---
 lisp/epa-ks.el | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

diff --git a/lisp/epa-ks.el b/lisp/epa-ks.el
index 5dd6ad34..186b0ac 100644
--- a/lisp/epa-ks.el
+++ b/lisp/epa-ks.el
@@ -295,12 +295,12 @@ enough, since keyservers have strict timeout settings."
                :created
                (and  (match-string 4)
                      (not (string-empty-p (match-string 4)))
-                     (seconds-to-time
+                    (time-convert
                       (string-to-number (match-string 4))))
                :expires
                (and (match-string 5)
                     (not (string-empty-p (match-string 5)))
-                    (seconds-to-time
+                   (time-convert
                      (string-to-number (match-string 5))))
                :flags
                (mapcar (lambda (flag)
@@ -319,15 +319,11 @@ enough, since keyservers have strict timeout settings."
                :created
                (and (match-string 2)
                     (not (string-empty-p (match-string 2)))
-                    (decode-time (seconds-to-time
-                                  (string-to-number
-                                   (match-string 2)))))
+                   (decode-time (string-to-number (match-string 2))))
                :expires
                (and (match-string 3)
                     (not (string-empty-p (match-string 3)))
-                    (decode-time (seconds-to-time
-                                  (string-to-number
-                                   (match-string 3)))))
+                   (decode-time (string-to-number (match-string 3))))
                :flags
                (mapcar (lambda (flag)
                          (cdr (assq flag '((?r revoked)