From 78b9288e94c148c5a6c699a99d3272d3d50bca57 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 13 Mar 1998 18:07:54 +0000 Subject: [PATCH] Rename `mime-playback-entity' -> `mime-raw-play-entity'. --- mime-pgp.el | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) 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) -- 1.7.10.4