Fixed.

diff --git a/epg.el b/epg.el
index c18ebee..0f0e02b 100644 (file)
--- 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."