From: hmurata <hmurata>
Date: Sat, 11 Nov 2006 14:16:33 +0000 (+0000)
Subject: Fix the last changes.
X-Git-Tag: epg-0_0_8~34
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ced149e3440b240b012a188865e67cbe367055c5;p=elisp%2Fepg.git

Fix the last changes.
---

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)