Rename `mime-method-for-application/pgp' to

`mime-view-application/pgp'.

diff --git a/mime-pgp.el b/mime-pgp.el
index b27c314..d3840d8 100644 (file)
--- a/mime-pgp.el
+++ b/mime-pgp.el
@@ -53,7 +53,7 @@
 ;;;
 ;;; It is based on draft-kazu-pgp-mime-00.txt (PGP-kazu).
 
-(defun mime-method-for-application/pgp (entity cal)
+(defun mime-view-application/pgp (entity cal)
   (let* ((start (mime-entity-point-min entity))
         (end (mime-entity-point-max entity))
         (entity-number (mime-raw-point-to-entity-number start))
@@ -233,7 +233,7 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
                 (1+ knum)))
         (oinfo (mime-raw-find-entity-from-node-id
                 (cons onum mother-node-id) mime-raw-message-info)))
-    (mime-method-for-application/pgp oinfo cal)
+    (mime-view-application/pgp oinfo cal)
     ))
 
 

diff --git a/semi-setup.el b/semi-setup.el
index 10bc81a..2658ca4 100644 (file)
--- a/semi-setup.el
+++ b/semi-setup.el
@@ -82,11 +82,11 @@
                     (message-button . visible)))
         (mime-add-condition
          'action '((type . application)(subtype . pgp)
-                   (method . mime-method-for-application/pgp))
+                   (method . mime-view-application/pgp))
          'strict "mime-pgp")
         (mime-add-condition
          'action '((type . text)(subtype . x-pgp)
-                   (method . mime-method-for-application/pgp)))
+                   (method . mime-view-application/pgp)))
         
         (mime-add-condition
          'action '((type . multipart)(subtype . signed)