From: morioka <morioka>
Date: Fri, 13 Mar 1998 17:06:04 +0000 (+0000)
Subject: Rename `mime-raw-point-content-number' ->
X-Git-Tag: semi-1_1_0~84
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=16a98b08d1377f6a6febdcd5b04f0346bbf65680;p=elisp%2Fsemi.git

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