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

pubkey-algorithm.

diff --git a/ChangeLog b/ChangeLog
index 9d459e6..82a3039 100644 (file)
--- 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 (file)
--- 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)