epg-signature-notation -> epg-sig-notation.
authorueno <ueno>
Sun, 12 Nov 2006 00:44:53 +0000 (00:44 +0000)
committerueno <ueno>
Sun, 12 Nov 2006 00:44:53 +0000 (00:44 +0000)
epg.el

diff --git a/epg.el b/epg.el
index 4b4700f..dcc3f7f 100644 (file)
--- 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]+\\)"