(signal 'wrong-type-argument (list 'epg-signature-p signature)))
(aref (cdr signature) 9))
-(defun epg-signature-notations (signature)
+(defun epg-sig-notations (signature)
"Return the list of notations of SIGNATURE."
(unless (eq (car-safe signature) 'epg-signature)
(signal 'wrong-type-argument (list 'epg-signature-p signature)))
(epg-signature-set-notations
signature
(cons (epg-make-sig-notation string nil t nil)
- (epg-signature-notations signature))))))
+ (epg-sig-notations signature))))))
(defun epg--status-NOTATION_DATA (context string)
(let ((signature (car (epg-context-result-for context 'verify)))
notation)
(if (and signature
- (setq notation (car (epg-signature-notations signature))))
+ (setq notation (car (epg-sig-notations signature))))
(epg-sig-notation-set-value notation string))))
(defun epg--status-POLICY_URL (context string)
(epg-signature-set-notations
signature
(cons (epg-make-sig-notation nil string t nil)
- (epg-signature-notations signature))))))
+ (epg-sig-notations signature))))))
(defun epg--status-PROGRESS (context string)
(if (string-match "\\`\\([^ ]+\\) \\([^ ]\\) \\([0-9]+\\) \\([0-9]+\\)"