From: morioka <morioka>
Date: Thu, 20 Nov 1997 13:17:20 +0000 (+0000)
Subject: Rename `mime-article/check-pgp-signature' ->
X-Git-Tag: semi-0_118~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fb0709a03fb33fc595b93fce4ddc21d2a0b56afb;p=elisp%2Fsemi.git

Rename `mime-article/check-pgp-signature' ->
`mime-pgp-check-application/pgp-signature'.
---

diff --git a/mime-pgp.el b/mime-pgp.el
index 5a87309..a81b869 100644
--- 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.25 1997-11-20 13:10:30 morioka Exp $
+;; Version: $Id: mime-pgp.el,v 0.26 1997-11-20 13:17:20 morioka Exp $
 ;; Keywords: PGP, security, MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (Secure Emacs MIME Interface).
@@ -136,15 +136,13 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
 (defun mime-pgp-check-signature (output-buffer orig-file)
   (save-excursion
     (set-buffer output-buffer)
-    (erase-buffer)
-    )
+    (erase-buffer))
   (let* ((lang (or mime-pgp-default-language 'en))
 	 (status (call-process-region (point-min)(point-max)
 				      mime-pgp-command
 				      nil output-buffer nil
 				      orig-file (format "+language=%s" lang)))
-	 (regexp (cdr (assq lang mime-pgp-good-signature-regexp-alist)))
-	 )
+	 (regexp (cdr (assq lang mime-pgp-good-signature-regexp-alist))))
     (if (= status 0)
 	(save-excursion
 	  (set-buffer output-buffer)
@@ -153,13 +151,11 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
 	   (cond ((not (stringp regexp))
 		  "Please specify right regexp for specified language")
 		 ((re-search-forward regexp nil t)
-		  (buffer-substring (match-beginning 0) (match-end 0))
-		  )
-		 (t
-		  "Bad signature")))
+		  (buffer-substring (match-beginning 0) (match-end 0)))
+		 (t "Bad signature")))
 	  ))))
 
-(defun mime-article/check-pgp-signature (beg end cal)
+(defun mime-pgp-check-application/pgp-signature (beg end cal)
   "Internal method to check PGP/MIME signature."
   (let* ((encoding (cdr (assq 'encoding cal)))
 	 (cnum (mime-article/point-content-number beg))
@@ -203,8 +199,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-pgp-check-signature
-	   mime-echo-buffer-name orig-file)
+      (or (mime-pgp-check-signature mime-echo-buffer-name orig-file)
 	  (let (pgp-id)
 	    (save-excursion
 	      (set-buffer mime-echo-buffer-name)
@@ -227,8 +222,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-pgp-check-signature
-		   mime-echo-buffer-name orig-file)
+		  (mime-pgp-check-signature mime-echo-buffer-name orig-file)
 		  ))
 	    ))
       (let ((other-window-scroll-buffer mime-echo-buffer-name))
@@ -241,7 +235,7 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
 
 (set-atype 'mime-acting-condition
 	   '((type . "application/pgp-signature")
-	     (method . mime-article/check-pgp-signature)
+	     (method . mime-pgp-check-application/pgp-signature)
 	     ))