From: morioka <morioka>
Date: Sat, 15 Mar 1997 19:43:56 +0000 (+0000)
Subject: (mime-pgp-command): New variable.
X-Git-Tag: Hokutetsu-Ishikawa-new~144
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5ae35ac59a9596eb4d737134211f7fcb8ef5e59c;p=elisp%2Fsemi.git

(mime-pgp-command): New variable.

(mime::article/call-pgp-to-check-signature): Use variable
`mime-pgp-command'.
---

diff --git a/mime-pgp.el b/mime-pgp.el
index 2c0baed..53692ef 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.3 1997-03-15 19:25:25 morioka Exp $
+;; Version: $Id: mime-pgp.el,v 0.4 1997-03-15 19:43:56 morioka Exp $
 ;; Keywords: mail, news, MIME, multimedia, PGP, security
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -121,6 +121,9 @@
 ;;;
 ;;; It is based on RFC 2015.
 
+(defvar mime-pgp-command "pgp"
+  "*Name of the PGP command.")
+
 (defvar mime-pgp-default-language 'en
   "*Symbol of language for pgp.
 It should be ISO 639 2 letter language code such as en, ja, ...")
@@ -139,11 +142,10 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
     (erase-buffer)
     )
   (let* ((lang (or mime-pgp-default-language 'en))
-	 (status
-	  (call-process-region (point-min)(point-max)
-			       "pgp" nil output-buffer nil orig-file
-			       (format "+language=%s" lang)
-			       ))
+	 (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)))
 	 )
     (if (= status 0)
@@ -157,8 +159,7 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
 		  (buffer-substring (match-beginning 0) (match-end 0))
 		  )
 		 (t
-		  "Bad signature"
-		  )))
+		  "Bad signature")))
 	  ))))
 
 (defun mime-article/check-pgp-signature (beg end cal)