From: ueno <ueno>
Date: Mon, 29 May 2006 02:08:43 +0000 (+0000)
Subject: Fixed.
X-Git-Tag: epg-0_0_2~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=afd2746e0783b9c31a72de989103f6e7c3f3ecb7;p=elisp%2Fepg.git

Fixed.
---

diff --git a/ChangeLog b/ChangeLog
index 2c0ef7e..a1ac283 100644
--- 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
--- 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))