From: morioka <morioka>
Date: Mon, 8 Jun 1998 05:36:59 +0000 (+0000)
Subject: Rename `pgp-elkins' -> `pgp-mime'.
X-Git-Tag: semi-1_5_3~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ce497a3216da81168351bec3442f05a28768c862;p=elisp%2Fsemi.git

Rename `pgp-elkins' -> `pgp-mime'.
---

diff --git a/mime-edit.el b/mime-edit.el
index 57ea90e..c66b48e 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -536,11 +536,11 @@ If it is not specified for a major-mode,
 ;;; @@ about PGP
 ;;;
 
-(defvar mime-edit-signing-type 'pgp-elkins
-  "*PGP signing type (pgp-elkins, pgp-kazu or nil).")
+(defvar mime-edit-signing-type 'pgp-mime
+  "*PGP signing type (pgp-mime, pgp-kazu or nil).")
 
-(defvar mime-edit-encrypting-type 'pgp-elkins
-  "*PGP encrypting type (pgp-elkins, pgp-kazu or nil).")
+(defvar mime-edit-encrypting-type 'pgp-mime
+  "*PGP encrypting type (pgp-mime, pgp-kazu or nil).")
 
 
 ;;; @@ about tag
@@ -1619,16 +1619,16 @@ Parameter must be '(PROMPT CHOICE1 (CHOISE2 ...))."
 		 (mime-edit-enquote-region bb eb)
 		 )
 		((string-equal type "signed")
-		 (cond ((eq mime-edit-signing-type 'pgp-elkins)
-			(mime-edit-sign-pgp-elkins bb eb boundary)
+		 (cond ((eq mime-edit-signing-type 'pgp-mime)
+			(mime-edit-sign-pgp-mime bb eb boundary)
 			)
 		       ((eq mime-edit-signing-type 'pgp-kazu)
 			(mime-edit-sign-pgp-kazu bb eb boundary)
 			))
 		 )
 		((string-equal type "encrypted")
-		 (cond ((eq mime-edit-encrypting-type 'pgp-elkins)
-			(mime-edit-encrypt-pgp-elkins bb eb boundary)
+		 (cond ((eq mime-edit-encrypting-type 'pgp-mime)
+			(mime-edit-encrypt-pgp-mime bb eb boundary)
 			)
 		       ((eq mime-edit-encrypting-type 'pgp-kazu)
 			(mime-edit-encrypt-pgp-kazu bb eb boundary)
@@ -1666,7 +1666,7 @@ Parameter must be '(PROMPT CHOICE1 (CHOISE2 ...))."
 	  (replace-match (concat "-" (substring tag 2)))
 	  )))))
 
-(defun mime-edit-sign-pgp-elkins (beg end boundary)
+(defun mime-edit-sign-pgp-mime (beg end boundary)
   (save-excursion
     (save-restriction
       (narrow-to-region beg end)
@@ -1722,7 +1722,7 @@ Parameter must be '(PROMPT CHOICE1 (CHOISE2 ...))."
     (vector from recipients header)
     ))
 
-(defun mime-edit-encrypt-pgp-elkins (beg end boundary)
+(defun mime-edit-encrypt-pgp-mime (beg end boundary)
   (save-excursion
     (save-restriction
       (let (from recipients header)