(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 (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.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)