Rename `mime-raw-point-content-number' ->

`mime-raw-point-to-entity-number'.

diff --git a/mime-pgp.el b/mime-pgp.el
index 012865a..cb39025 100644 (file)
--- 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)

diff --git a/mime-play.el b/mime-play.el
index f41c0d5..312d900 100644 (file)
--- a/mime-play.el
+++ b/mime-play.el
@@ -302,7 +302,7 @@ It is registered to variable `mime-view-quitting-method-alist'."
     ))
 
 (defun mime-method-to-display-message/rfc822 (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))
         (mother mime-preview-buffer)
         (text-decoder
@@ -491,7 +491,7 @@ It is registered to variable `mime-view-quitting-method-alist'."
 
 (defun mime-method-to-display-caesar (start end cal)
   "Internal method for mime-view to display ROT13-47-48 message."
-  (let* ((cnum (mime-raw-point-content-number start))
+  (let* ((cnum (mime-raw-point-to-entity-number start))
         (new-name (format "%s-%s" (buffer-name) cnum))
         (the-buf (current-buffer))
         (mother mime-preview-buffer)