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