X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime-pgp.el;fp=mime-pgp.el;h=25ab6c70d87ed0045c45d53b64fff1416501762d;hb=3344fa3b155f31bf45b471a3b535c3ec9ff18cdc;hp=6c9720cda8e17ade138a56d79f4783f7eb184367;hpb=a04b80ca6215945311902b8939d0ce0c5db3791a;p=elisp%2Fsemi.git

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)