From: ueno <ueno>
Date: Thu, 4 Jan 2007 02:36:20 +0000 (+0000)
Subject: * epg.el (epg-signature-to-string): Print creation-time and used
X-Git-Tag: epg-0_0_10~30
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d98c3442ee539b525e361ba9a71301cf4a40e60f;p=elisp%2Fepg.git

* epg.el (epg-signature-to-string): Print creation-time and used
pubkey-algorithm.
---

diff --git a/ChangeLog b/ChangeLog
index 9d459e6..82a3039 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2007-01-04  Daiki Ueno  <ueno@unixuser.org>
+
+	* epg.el (epg-signature-to-string): Print creation-time and used
+	pubkey-algorithm.
+
 2006-12-31  Daiki Ueno  <ueno@unixuser.org>
 
 	* epa.el (epa-mail-modes): New user option.
diff --git a/epg.el b/epg.el
index e445aec..f3090d1 100644
--- a/epg.el
+++ b/epg.el
@@ -948,8 +948,9 @@ This function is for internal use only."
 
 (defun epg-signature-to-string (signature)
   "Convert SIGNATURE to a human readable string."
-  (let ((user-id (cdr (assoc (epg-signature-key-id signature)
-			     epg-user-id-alist))))
+  (let* ((user-id (cdr (assoc (epg-signature-key-id signature)
+			      epg-user-id-alist)))
+	 (pubkey-algorithm (epg-signature-pubkey-algorithm signature)))
     (concat
      (cond ((eq (epg-signature-status signature) 'good)
 	    "Good signature from ")
@@ -972,6 +973,15 @@ This function is for internal use only."
        "")
      (if (epg-signature-validity signature)
 	 (format " (trust %s)"  (epg-signature-validity signature))
+       "")
+     (if (epg-signature-creation-time signature)
+	 (format-time-string " created at %Y-%m-%dT%T%z"
+			     (epg-signature-creation-time signature))
+       "")
+     (if pubkey-algorithm
+	 (concat " using "
+		 (or (cdr (assq pubkey-algorithm epg-pubkey-algorithm-alist))
+		     (format "(unknown algorithm %d)" pubkey-algorithm)))
        ""))))
 
 (defun epg-verify-result-to-string (verify-result)