From: morioka <morioka>
Date: Sat, 14 Mar 1998 12:30:31 +0000 (+0000)
Subject: (mime-method-to-verify-application/pgp-signature): Use
X-Git-Tag: semi-1_1_0~52
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3344fa3b155f31bf45b471a3b535c3ec9ff18cdc;p=elisp%2Fsemi.git

(mime-method-to-verify-application/pgp-signature): Use
`mime-raw-point-to-entity-node-id'; abolish `entity-number'.
---

diff --git a/mime-pgp.el b/mime-pgp.el
index 6c9720c..25ab6c7 100644
--- a/mime-pgp.el
+++ b/mime-pgp.el
@@ -176,8 +176,7 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
 (defun mime-method-to-verify-application/pgp-signature (start end cal)
   "Internal method to check PGP/MIME signature."
   (let* ((encoding (cdr (assq 'encoding cal)))
-	 (entity-number (mime-raw-point-to-entity-number start))
-	 (entity-node-id (reverse entity-number))
+	 (entity-node-id (mime-raw-point-to-entity-node-id start))
 	 (rmcnum (cdr entity-node-id))
 	 (knum (car entity-node-id))
 	 (onum (if (> knum 0)