From: ueno <ueno>
Date: Sun, 12 Nov 2006 02:32:25 +0000 (+0000)
Subject: (epg-import-result-to-string): New function.
X-Git-Tag: epg-0_0_8~28
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0e57cb72cfa0f41cebe37f6e4ea4b6691074de97;p=elisp%2Fepg.git

(epg-import-result-to-string): New function.
---

diff --git a/ChangeLog b/ChangeLog
index 789c7fe..d312f87 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -6,6 +6,7 @@
 	(epg-make-import-status): New object epg-import-status.
 	(epg-make-import-result): New object epg-import-result.
 	(epg--status-IMPORT_RES): New function.
+	(epg-import-result-to-string): New function.
 
 	* epa.el (epa-keys-mode-map): Don't bind epa-sign-keys.
 	(epa-sign-keys): Make it obsolete.
diff --git a/epg.el b/epg.el
index 4e16aab..c18ebee 100644
--- a/epg.el
+++ b/epg.el
@@ -986,6 +986,49 @@ This function is for internal use only."
    (format "%02X " (epg-new-signature-class new-signature))
    (epg-new-signature-fingerprint new-signature)))
 
+(defun epg-import-result-to-string (import-result)
+  "Convert IMPORT-RESULT to a human readable string."
+  (concat (format "Total number processed: %d\n"
+		  (epg-import-result-considered import-result))
+	  (if (> (epg-import-result-not-imported import-result) 0)
+	      (format "      skipped new keys: %d\n"
+		      (epg-import-result-not-imported import-result)))
+	  (if (> (epg-import-result-no-user-id import-result) 0)
+	      (format "          w/o user IDs: %d\n"
+		      (epg-import-result-no-user-id import-result)))
+	  (if (> (epg-import-result-imported import-result) 0)
+	      (concat (format "              imported: %d"
+			      (epg-import-result-imported import-result))
+		      (if (> (epg-import-result-imported-rsa import-result) 0)
+			  (format "  (RSA: %d)"
+				  (epg-import-result-imported-rsa
+				   import-result)))
+		      "\n"))
+	  (if (> (epg-import-result-unchanged import-result) 0)
+	      (format "             unchanged: %d\n"
+		      (epg-import-result-unchanged import-result)))
+	  (if (> (epg-import-result-new-user-ids import-result) 0)
+	      (format "          new user IDs: %d\n"
+		      (epg-import-result-new-user-ids import-result)))
+	  (if (> (epg-import-result-new-sub-keys import-result) 0)
+	      (format "           new subkeys: %d\n"
+		      (epg-import-result-new-sub-keys import-result)))
+	  (if (> (epg-import-result-new-signatures import-result) 0)
+	      (format "        new signatures: %d\n"
+		      (epg-import-result-new-signatures import-result)))
+	  (if (> (epg-import-result-new-revocations import-result) 0)
+	      (format "   new key revocations: %d\n"
+		      (epg-import-result-new-revocations import-result)))
+	  (if (> (epg-import-result-secret-read import-result) 0)
+	      (format "      secret keys read: %d\n"
+		      (epg-import-result-secret-read import-result)))
+	  (if (> (epg-import-result-secret-imported import-result) 0)
+	      (format "  secret keys imported: %d\n"
+		      (epg-import-result-secret-imported import-result)))
+	  (if (> (epg-import-result-secret-unchanged import-result) 0)
+	      (format " secret keys unchanged: %d\n"
+		      (epg-import-result-secret-unchanged import-result)))))
+
 (defun epg--start (context args)
   "Start `epg-gpg-program' in a subprocess with given ARGS."
   (if (and (epg-context-process context)