(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 (file)
--- 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)