`cnum' -> `entity-number'.

diff --git a/mime-pgp.el b/mime-pgp.el
index fa868a5..3b960d7 100644 (file)
--- a/mime-pgp.el
+++ b/mime-pgp.el
@@ -54,10 +54,10 @@
 ;;; It is based on draft-kazu-pgp-mime-00.txt (PGP-kazu).
 
 (defun mime-method-for-application/pgp (start end cal)
-  (let* ((cnum (mime-raw-point-to-entity-number start))
+  (let* ((entity-number (mime-raw-point-to-entity-number start))
         (p-win (or (get-buffer-window mime-preview-buffer)
                    (get-largest-window)))
-        (new-name (format "%s-%s" (buffer-name) cnum))
+        (new-name (format "%s-%s" (buffer-name) entity-number))
         (the-buf (current-buffer))
         (mother mime-preview-buffer)
         (mode major-mode)
@@ -184,8 +184,8 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
 (defun mime-method-to-verify-application/pgp-signature (start end cal)
   "Internal method to check PGP/MIME signature."
   (let* ((encoding (cdr (assq 'encoding cal)))
-        (cnum (mime-raw-point-to-entity-number start))
-        (rcnum (reverse cnum))
+        (entity-number (mime-raw-point-to-entity-number start))
+        (rcnum (reverse entity-number))
         (rmcnum (cdr rcnum))
         (knum (car rcnum))
         (onum (if (> knum 0)
@@ -270,8 +270,8 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
 ;;; It is based on RFC 2015 (PGP/MIME).
 
 (defun mime-method-to-decrypt-application/pgp-encrypted (start end cal)
-  (let* ((cnum (mime-raw-point-to-entity-number start))
-        (rcnum (reverse cnum))
+  (let* ((entity-number (mime-raw-point-to-entity-number start))
+        (rcnum (reverse entity-number))
         (rmcnum (cdr rcnum))
         (knum (car rcnum))
         (onum (if (> knum 0)
@@ -296,8 +296,8 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
 ;;; It is based on RFC 2015 (PGP/MIME).
 
 (defun mime-method-to-add-application/pgp-keys (start end cal)
-  (let* ((cnum (mime-raw-point-to-entity-number start))
-        (new-name (format "%s-%s" (buffer-name) cnum))
+  (let* ((entity-number (mime-raw-point-to-entity-number start))
+        (new-name (format "%s-%s" (buffer-name) entity-number))
         (encoding (cdr (assq 'encoding cal)))
         str)
     (setq str (buffer-substring start end))