From f82e597253ec22108cfc7e2a278fce19e075904c Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Thu, 13 May 1999 06:01:34 +0000
Subject: [PATCH] (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.

---
 mime-mc.el |    7 +++++++
 1 file changed, 7 insertions(+)

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))
-- 
1.7.10.4