From a2a160478413f05b3590e53725411905f0e066e6 Mon Sep 17 00:00:00 2001 From: ueno Date: Sun, 12 Nov 2006 02:34:30 +0000 Subject: [PATCH] Fixed. --- epg.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/epg.el b/epg.el index c18ebee..0f0e02b 100644 --- a/epg.el +++ b/epg.el @@ -780,8 +780,8 @@ This function is for internal use only." sig-notation))) (aset (cdr sig-notation) 1 value)) -(defun epg-make-import-status (fingerprint reason new user-id signature sub-key - secret) +(defun epg-make-import-status (fingerprint &optional reason new user-id + signature sub-key secret) "Return a import status object." (cons 'epg-import-status (vector fingerprint reason new user-id signature sub-key secret))) @@ -829,16 +829,17 @@ This function is for internal use only." (aref (cdr import-status) 6)) (defun epg-make-import-result (considered no-user-id imported imported-rsa - unchanged new-user-id new-sub-key - new-signature new-revocation + unchanged new-user-ids new-sub-keys + new-signatures new-revocations secret-read secret-imported - secret-unchanged not-imported) + secret-unchanged not-imported + imports) "Return a import result object." (cons 'epg-import-result (vector considered no-user-id imported imported-rsa unchanged new-user-ids new-sub-keys new-signatures new-revocations secret-read secret-imported secret-unchanged - not-imported nil))) + not-imported imports))) (defun epg-import-result-considered (import-result) "Return the total number of considered keys." -- 1.7.10.4