From: morioka <morioka>
Date: Fri, 13 Mar 1998 18:07:54 +0000 (+0000)
Subject: Rename `mime-playback-entity' -> `mime-raw-play-entity'.
X-Git-Tag: semi-1_1_0~74
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=78b9288e94c148c5a6c699a99d3272d3d50bca57;p=elisp%2Fsemi.git

Rename `mime-playback-entity' -> `mime-raw-play-entity'.
---

diff --git a/mime-pgp.el b/mime-pgp.el
index d1e2446..e5cc9d6 100644
--- a/mime-pgp.el
+++ b/mime-pgp.el
@@ -116,14 +116,16 @@
 ;;; @ Internal method for multipart/signed
 ;;;
 
-(defun mime-method-to-verify-multipart/signed (beg end cal)
-  "Internal method to check multipart/signed."
-  (let* ((rcnum (reverse (mime-raw-point-to-entity-number beg)))
-	 (oinfo (mime-raw-reversed-entity-number-to-entity-info
-		 (cons 1 rcnum) mime-raw-message-info))
-	 )
-    (mime-playback-entity oinfo (cdr (assq 'mode cal)))
-    ))
+(defun mime-method-to-verify-multipart/signed (start end cal)
+  "Internal method to verify multipart/signed."
+  (mime-raw-play-entity
+   ;; entity-info of signature
+   (mime-raw-reversed-entity-number-to-entity-info
+    ;; reversed-entity-number of signature
+    (cons 1 (reverse (mime-raw-point-to-entity-number start)))
+    mime-raw-message-info)
+   (cdr (assq 'mode cal)) ; play-mode
+   ))
 
 (set-atype 'mime-acting-condition
 	   '((type . multipart)(subtype . signed)