From a91e42c787dc2aa5bffb56b9e5b1c76dc041d95b Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 14 Mar 1998 12:45:17 +0000 Subject: [PATCH] Rename `rmcnum' -> `mother-node-id'. --- mime-pgp.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/mime-pgp.el b/mime-pgp.el index 3e0f386..e4e0abd 100644 --- a/mime-pgp.el +++ b/mime-pgp.el @@ -177,14 +177,14 @@ It should be ISO 639 2 letter language code such as en, ja, ...") "Internal method to check PGP/MIME signature." (let* ((encoding (cdr (assq 'encoding cal))) (entity-node-id (mime-raw-point-to-entity-node-id start)) - (rmcnum (cdr entity-node-id)) + (mother-node-id (cdr entity-node-id)) (knum (car entity-node-id)) (onum (if (> knum 0) (1- knum) (1+ knum))) (raw-buf (current-buffer)) (oinfo (mime-raw-entity-node-id-to-entity-info - (cons onum rmcnum) mime-raw-message-info)) + (cons onum mother-node-id) mime-raw-message-info)) kbuf (basename (expand-file-name "tm" mime-temp-directory)) (orig-file (make-temp-name basename)) @@ -261,13 +261,13 @@ It should be ISO 639 2 letter language code such as en, ja, ...") (defun mime-method-to-decrypt-application/pgp-encrypted (start end cal) (let* ((entity-node-id (mime-raw-point-to-entity-node-id start)) - (rmcnum (cdr entity-node-id)) + (mother-node-id (cdr entity-node-id)) (knum (car entity-node-id)) (onum (if (> knum 0) (1- knum) (1+ knum))) (oinfo (mime-raw-entity-node-id-to-entity-info - (cons onum rmcnum) mime-raw-message-info)) + (cons onum mother-node-id) mime-raw-message-info)) (obeg (mime-entity-info-point-min oinfo)) (oend (mime-entity-info-point-max oinfo)) ) -- 1.7.10.4