From: morioka <morioka>
Date: Sat, 14 Mar 1998 11:55:27 +0000 (+0000)
Subject: `cnum' -> `entity-number'.
X-Git-Tag: semi-1_1_0~58
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cf052422efe1a442c1efdf59d58b28907c707b28;p=elisp%2Fsemi.git

`cnum' -> `entity-number'.
---

diff --git a/mime-pgp.el b/mime-pgp.el
index fa868a5..3b960d7 100644
--- 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))