From: yamaoka <yamaoka>
Date: Thu, 13 May 1999 06:01:34 +0000 (+0000)
Subject: (mime-mc-pgp50-process-region, mime-mc-gpg-process-region): Bind
X-Git-Tag: semi-pgpgpg_14~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f82e597253ec22108cfc7e2a278fce19e075904c;p=elisp%2Fsemi.git

(mime-mc-pgp50-process-region, mime-mc-gpg-process-region): Bind
`shell-command-switch' to the value of `mime-mc-shell-command-switch'.
(mime-mc-shell-command-switch): New user option.
---

diff --git a/mime-mc.el b/mime-mc.el
index ed1a482..43786aa 100644
--- a/mime-mc.el
+++ b/mime-mc.el
@@ -70,6 +70,11 @@
   :group 'mime-mc
   :type 'file)
 
+(defcustom mime-mc-shell-command-switch "-c"
+  "Switch used to have the shell execute its command line argument."
+  :group 'mime-mc
+  :type 'string)
+
 (defcustom mime-mc-omit-micalg nil
   "Non-nil value means to omit the micalg parameter for multipart/signed.
 See draft-yamamoto-openpgp-mime-00.txt (OpenPGP/MIME) for more information."
@@ -271,6 +276,7 @@ optional argument COMMENT if it is specified."
   (let ((obuf (current-buffer))
 	(process-connection-type nil)
 	(shell-file-name mime-mc-shell-file-name)
+	(shell-command-switch mime-mc-shell-command-switch)
 	; other local vars
 	mybuf 
 	stderr-tempfilename stderr-buf
@@ -552,6 +558,7 @@ optional argument COMMENT if it is specified."
   (let ((obuf (current-buffer))
 	(process-connection-type nil)
 	(shell-file-name mime-mc-shell-file-name)
+	(shell-command-switch mime-mc-shell-command-switch)
 	mybuf result rgn proc results)
     (if comment
 	(setq args (cons "+comment=DUMMY" args))