X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=epa.el;h=7596176fb8bf9ec9f4c12ccec50ce45a58b83375;hb=c447878abb1cef760e440afa698f79a4d3c1b272;hp=4269254e1c179f8bf1d3b0430a8c85fb8dc3e492;hpb=ca09a9ecff4075982cd1c81f5023d32ef83251ef;p=elisp%2Fepg.git

diff --git a/epa.el b/epa.el
index 4269254..7596176 100644
--- a/epa.el
+++ b/epa.el
@@ -401,6 +401,12 @@ If SECRET is non-nil, list secret keys instead of public keys."
 	    (delete-window (get-buffer-window epa-keys-buffer)))
 	(kill-buffer epa-keys-buffer))))
 
+(defun epa--format-seconds (seconds)
+  (let ((number-seconds (string-to-number (concat seconds ".0"))))
+    (format-time-string "%Y-%m-%d"
+			(cons (floor (/ number-seconds 65536))
+			      (floor (mod number-seconds 65536))))))
+
 (defun epa-show-key (key)
   (let* ((primary-sub-key (car (epg-key-sub-key-list key)))
 	 (entry (assoc (epg-sub-key-id primary-sub-key)
@@ -450,10 +456,11 @@ If SECRET is non-nil, list secret keys instead of public keys."
 	      (cdr (assq (epg-sub-key-algorithm (car pointer))
 			 epg-pubkey-algorithm-alist))
 	      "\n\tCreated: "
-	      (epg-sub-key-creation-time (car pointer))
+	      (epa--format-seconds (epg-sub-key-creation-time (car pointer)))
 	      (if (epg-sub-key-expiration-time (car pointer))
-		  (format "\n\tExpires: %s" (epg-sub-key-expiration-time
-					     (car pointer)))
+		  (format "\n\tExpires: %s"
+			  (epa--format-seconds (epg-sub-key-expiration-time
+						(car pointer))))
 		"")
 	      "\n\tCapabilities: "
 	      (mapconcat #'symbol-name