2001-08-02 Simon Josefsson <jas@extundo.com>

	* smime.el (smime-extra-arguments): Removed.
	(smime-call-openssl-region): Don't use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b1fa09a..98cdc21 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-08-02  Simon Josefsson  <jas@extundo.com>
+
+       * smime.el (smime-extra-arguments): Removed.
+       (smime-call-openssl-region): Don't use it.
+
 2001-08-02  Simon Josefsson  <jas@extundo.com>
 
        * smime.el (smime-sign-region): Handle stderr.

diff --git a/lisp/smime.el b/lisp/smime.el
index f7442de..1665013 100644 (file)
--- a/lisp/smime.el
+++ b/lisp/smime.el
@@ -185,13 +185,6 @@ If nil, use system defaults."
                 string)
   :group 'smime)
 
-(defcustom smime-extra-arguments nil
-  "*List of additional arguments passed to OpenSSL.
-For instance, if you don't have a /dev/random you might be forced
-to set this to e.g. `(\"-rand\" \"/etc/entropy\")'."
-  :type '(repeat string)
-  :group 'smime)
-
 (defvar smime-details-buffer "*OpenSSL output*")
 
 ;; Password dialog function
@@ -208,8 +201,7 @@ to set this to e.g. `(\"-rand\" \"/etc/entropy\")'."
 ;; OpenSSL wrappers.
 
 (defun smime-call-openssl-region (b e buf &rest args)
-  (case (apply 'call-process-region b e smime-openssl-program nil
-              buf nil (append smime-extra-arguments args))
+  (case (apply 'call-process-region b e smime-openssl-program nil buf nil args)
     (0 t)
     (1 (message "OpenSSL: An error occurred parsing the command options.") nil)
     (2 (message "OpenSSL: One of the input files could not be read.") nil)