- (setq signature (reverse (epg-context-result-for context 'verify)))
- (while signature
- (message "%s: %s %s %s"
- (epg-signature-status (car signature))
- (epg-signature-key-id (car signature))
- (epg-signature-user-id (car signature))
- (epg-signature-validity (car signature)))
- (setq signature (cdr signature)))))