From afd2746e0783b9c31a72de989103f6e7c3f3ecb7 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 29 May 2006 02:08:43 +0000 Subject: [PATCH] Fixed. --- ChangeLog | 6 ++++-- epg.el | 10 +++++----- 2 files changed, 9 insertions(+), 7 deletions(-) diff --git a/ChangeLog b/ChangeLog index 2c0ef7e..a1ac283 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,7 +1,9 @@ 2006-05-29 Daiki Ueno - * epa.el (epa--format-seconds): New function. - (epa-show-key): Convert seconds from epoch to date. + * epg.el (epg--time-from-seconds): New function. + (epg--status-ERRSIG): Convert seconds from epoch to encoded-time. + (epg--status-VALIDSIG): Ditto. + (epg--status-KEYEXPIRED): Ditto. 2006-05-28 Daiki Ueno diff --git a/epg.el b/epg.el index 37f2110..4fbf59b 100644 --- a/epg.el +++ b/epg.el @@ -1219,7 +1219,7 @@ This function is for internal use only." (string-to-number (match-string 2 string)) (string-to-number (match-string 3 string)) (string-to-number (match-string 4 string) 16) - (match-string 5 string) + (epg--time-from-seconds (match-string 5 string)) (substring string (match-end 0))) (epg-context-result-for context 'sign))))) @@ -1357,8 +1357,8 @@ This function is for internal use only." (string-to-number (aref line 3)) (string-to-number (aref line 2)) (aref line 4) - (aref line 5) - (aref line 6))) + (epg--time-from-seconds (aref line 5)) + (epg--time-from-seconds (aref line 6)))) ;;;###autoload (defun epg-list-keys (context &optional name mode) @@ -1413,8 +1413,8 @@ signatures should be included." epg-key-validity-alist))) (string-to-number (aref (car lines) 3)) (aref (car lines) 4) - (aref (car lines) 5) - (aref (car lines) 6) + (epg--time-from-seconds (aref (car lines) 5)) + (epg--time-from-seconds (aref (car lines) 6)) (aref (car lines) 9) (string-to-number (aref (car lines) 10) 16) (eq (aref (aref (car lines) 10) 2) ?x)) -- 1.7.10.4