(interactive "fFile: ")
(let ((context (epg-make-context)))
(message "Importing %s..." (file-name-nondirectory file))
- (epg-import-keys context file)
+ (epg-import-keys-from-file context file)
(apply #'epa-list-keys epa-list-keys-arguments)
(message "Importing %s...done" (file-name-nondirectory file))))
default-name)))))
(let ((context (epg-make-context)))
(message "Exporting to %s..." (file-name-nondirectory file))
- (epg-export-keys context keys file)
+ (epg-export-keys-to-file context keys file)
(message "Exporting to %s...done" (file-name-nondirectory file))))
(provide 'epa)