Fixed.

diff --git a/ChangeLog b/ChangeLog
index 2c0ef7e..a1ac283 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,9 @@
 2006-05-29  Daiki Ueno  <ueno@unixuser.org>
 
-       * 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  <ueno@unixuser.org>
 

diff --git a/epg.el b/epg.el
index 37f2110..4fbf59b 100644 (file)
--- 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))