(interactive "fFile: ")
(let* ((context (epg-make-context))
(plain (if (equal (file-name-extension file) "sig")
- (file-name-sans-extension file)))
- signature)
+ (file-name-sans-extension file))))
(message "Verifying %s..." (file-name-nondirectory file))
(epg-verify-file context file plain)
(message "Verifying %s...done" (file-name-nondirectory file))
(message "%s"
- (mapconcat #'epg-verify-result-to-string
- (reverse (epg-context-result-for context 'verify))
- "\n"))))
+ (epg-verify-result-to-string
+ (epg-context-result-for context 'verify)))))
(defun epa-sign-file (file detached)
(interactive