From: morioka <morioka>
Date: Sat, 14 Mar 1998 12:45:17 +0000 (+0000)
Subject: Rename `rmcnum' -> `mother-node-id'.
X-Git-Tag: semi-1_1_0~49
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a91e42c787dc2aa5bffb56b9e5b1c76dc041d95b;p=elisp%2Fsemi.git

Rename `rmcnum' -> `mother-node-id'.
---

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