X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fsemi.git;a=blobdiff_plain;f=mime-pgp.el;h=cb39025b7ee8154efa9586e689a29dce4b9e1a42;hp=012865a0e8061fc4bbcd22aa9099ca8e66f69f97;hb=16a98b08d1377f6a6febdcd5b04f0346bbf65680;hpb=e9f6922c2d82e533e039aa976dfbe7d432a957ab

diff --git a/mime-pgp.el b/mime-pgp.el
index 012865a..cb39025 100644
--- a/mime-pgp.el
+++ b/mime-pgp.el
@@ -48,7 +48,7 @@
 ;;; It is based on draft-kazu-pgp-mime-00.txt
 
 (defun mime-method-for-application/pgp (beg end cal)
-  (let* ((cnum (mime-raw-point-content-number beg))
+  (let* ((cnum (mime-raw-point-to-entity-number beg))
 	 (p-win (or (get-buffer-window mime-preview-buffer)
 		    (get-largest-window)))
 	 (new-name (format "%s-%s" (buffer-name) cnum))
@@ -118,7 +118,7 @@
 
 (defun mime-method-to-verify-multipart/signed (beg end cal)
   "Internal method to check multipart/signed."
-  (let* ((rcnum (reverse (mime-raw-point-content-number beg)))
+  (let* ((rcnum (reverse (mime-raw-point-to-entity-number beg)))
 	 (oinfo (mime-raw-rcnum-to-cinfo (cons '1 rcnum)
 					     mime-raw-entity-info))
 	 )
@@ -175,7 +175,7 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
 (defun mime-method-to-verify-application/pgp-signature (beg end cal)
   "Internal method to check PGP/MIME signature."
   (let* ((encoding (cdr (assq 'encoding cal)))
-	 (cnum (mime-raw-point-content-number beg))
+	 (cnum (mime-raw-point-to-entity-number beg))
 	 (rcnum (reverse cnum))
 	 (rmcnum (cdr rcnum))
 	 (knum (car rcnum))
@@ -261,7 +261,7 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
 ;;; It is based on RFC 2015.
 
 (defun mime-method-to-decrypt-application/pgp-encrypted (beg end cal)
-  (let* ((cnum (mime-raw-point-content-number beg))
+  (let* ((cnum (mime-raw-point-to-entity-number beg))
 	 (rcnum (reverse cnum))
 	 (rmcnum (cdr rcnum))
 	 (knum (car rcnum))
@@ -287,7 +287,7 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
 ;;; It is based on RFC 2015.
 
 (defun mime-method-to-add-application/pgp-keys (beg end cal)
-  (let* ((cnum (mime-raw-point-content-number beg))
+  (let* ((cnum (mime-raw-point-to-entity-number beg))
 	 (new-name (format "%s-%s" (buffer-name) cnum))
 	 (encoding (cdr (assq 'encoding cal)))
 	 str)