(epg-context-result-for epg-context 'verify))))
(defun epg-status-ERRSIG (process string)
- (let ((signatures (car (epg-context-result-for epg-context 'verify))))
+ (let ((signatures (epg-context-result-for epg-context 'verify)))
(unless signatures
(setq signatures (list (epg-make-signature 'error)))
(epg-context-set-result-for epg-context 'verify signatures))