Rename `mime::article/call-pgp-to-check-signature' ->

`mime-pgp-check-signature'.

diff --git a/mime-pgp.el b/mime-pgp.el
index 4290c08..5a87309 100644 (file)
--- a/mime-pgp.el
+++ b/mime-pgp.el
@@ -5,7 +5,7 @@
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1995/12/7
 ;;     Renamed: 1997/2/27 from tm-pgp.el
-;; Version: $Id: mime-pgp.el,v 0.24 1997-11-20 12:52:34 morioka Exp $
+;; Version: $Id: mime-pgp.el,v 0.25 1997-11-20 13:10:30 morioka Exp $
 ;; Keywords: PGP, security, MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (Secure Emacs MIME Interface).
@@ -133,7 +133,7 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
   '((en . "Key matching expected Key ID \\(\\S +\\) not found"))
   "Alist of language vs regexp to detect ``Key expected''.")
 
-(defun mime::article/call-pgp-to-check-signature (output-buffer orig-file)
+(defun mime-pgp-check-signature (output-buffer orig-file)
   (save-excursion
     (set-buffer output-buffer)
     (erase-buffer)
@@ -203,7 +203,7 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
        )
       (mime-decode-region (point-min)(point-max) encoding)
       (as-binary-output-file (write-region (point-min)(point-max) sig-file))
-      (or (mime::article/call-pgp-to-check-signature
+      (or (mime-pgp-check-signature
           mime-echo-buffer-name orig-file)
          (let (pgp-id)
            (save-excursion
@@ -227,7 +227,7 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
                     )
                (progn
                  (funcall (pgp-function 'fetch-key) (cons nil pgp-id))
-                 (mime::article/call-pgp-to-check-signature
+                 (mime-pgp-check-signature
                   mime-echo-buffer-name orig-file)
                  ))
            ))