From: ueno <ueno>
Date: Sun, 12 Nov 2006 00:44:53 +0000 (+0000)
Subject: epg-signature-notation -> epg-sig-notation.
X-Git-Tag: epg-0_0_8~32
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b740418c1964212e0c3d731111a8287586d25355;p=elisp%2Fepg.git

epg-signature-notation -> epg-sig-notation.
---

diff --git a/epg.el b/epg.el
index 4b4700f..dcc3f7f 100644
--- a/epg.el
+++ b/epg.el
@@ -440,7 +440,7 @@ This function is for internal use only."
     (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)))
@@ -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-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)
@@ -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-signature-notations signature))))))
+	       (epg-sig-notations signature))))))
 
 (defun epg--status-PROGRESS (context string)
   (if (string-match "\\`\\([^ ]+\\) \\([^ ]\\) \\([0-9]+\\) \\([0-9]+\\)"