From d98c3442ee539b525e361ba9a71301cf4a40e60f Mon Sep 17 00:00:00 2001 From: ueno Date: Thu, 4 Jan 2007 02:36:20 +0000 Subject: [PATCH] * epg.el (epg-signature-to-string): Print creation-time and used pubkey-algorithm. --- ChangeLog | 5 +++++ epg.el | 14 ++++++++++++-- 2 files changed, 17 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 9d459e6..82a3039 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2007-01-04 Daiki Ueno + + * epg.el (epg-signature-to-string): Print creation-time and used + pubkey-algorithm. + 2006-12-31 Daiki Ueno * 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) -- 1.7.10.4