From ced149e3440b240b012a188865e67cbe367055c5 Mon Sep 17 00:00:00 2001 From: hmurata Date: Sat, 11 Nov 2006 14:16:33 +0000 Subject: [PATCH] Fix the last changes. --- epg.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/epg.el b/epg.el index 7f15680..4b4700f 100644 --- a/epg.el +++ b/epg.el @@ -347,7 +347,7 @@ This function is for internal use only." "Set the list of notations for singning." (unless (eq (car-safe context) 'epg-context) (signal 'wrong-type-argument (list 'epg-context-p context))) - (aset (cdr context) 10 signers)) + (aset (cdr context) 10 notations)) (defun epg-context-set-process (context process) "Set the process object of `epg-gpg-program'. @@ -1219,13 +1219,13 @@ This function is for internal use only." (epg-signature-set-notations signature (cons (epg-make-sig-notation string nil t nil) - (epg-sig-notations signature)))))) + (epg-signature-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-sig-notations signature)))) + (setq notation (car (epg-signature-notations signature)))) (epg-sig-notation-set-value notation string)))) (defun epg--status-POLICY_URL (context string) @@ -1234,7 +1234,7 @@ This function is for internal use only." (epg-signature-set-notations signature (cons (epg-make-sig-notation nil string t nil) - (epg-sig-notations signature)))))) + (epg-signature-notations signature)))))) (defun epg--status-PROGRESS (context string) (if (string-match "\\`\\([^ ]+\\) \\([^ ]\\) \\([0-9]+\\) \\([0-9]+\\)" @@ -1599,8 +1599,8 @@ You can then use `write-region' to write new data into the file." (list "--sig-policy-url" (if (epg-sig-notation-critical notation) (concat "!" (epg-sig-notation-value notation)) - (epg-sig-notation-value notation)))) - notations)) + (epg-sig-notation-value notation))))) + notations))) ;;;###autoload (defun epg-cancel (context) -- 1.7.10.4