X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=epg.el;h=147eda528525cfa5bfdecaf6f5d18b58d6305a45;hb=5312c05cb5a923991a4d5ab8de4b9fc53d21f0d2;hp=d1d9160f4a3a19705d0da3dea214c8a9883999f1;hpb=9b81a6cc6262d2324a29ac4780b9bef2fc7e9e5b;p=elisp%2Fepg.git

diff --git a/epg.el b/epg.el
index d1d9160..147eda5 100644
--- a/epg.el
+++ b/epg.el
@@ -406,6 +406,19 @@ This function is for internal use only."
 	(setcdr entry value)
       (epg-context-set-result context (cons (cons name value) result)))))
 
+(defun epg-signature-to-string (signature)
+  (format "%s signature from %s %s%s"
+	  (capitalize (symbol-name (epg-signature-status signature)))
+	  (epg-signature-key-id signature)
+	  (epg-signature-user-id signature)
+	  (if (epg-signature-validity signature)
+	      (format " (trust %s)"
+		      (epg-signature-validity signature))
+	    "")))
+
+(defun epg-verify-result-to-string (verify-result)
+  (mapconcat #'epg-signature-to-string verify-result "\n"))
+
 (defun epg-start (context args)
   "Start `epg-gpg-program' in a subprocess with given ARGS."
   (let* ((args (append (list "--no-tty"