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

diff --git a/mime-pgp.el b/mime-pgp.el
index 3e0f386..e4e0abd 100644 (file)
--- 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))
         )