* smime.el (smime-openssl-program): Test the existence of openssl.
* mml-smime.el: Require mm-decode.
(mml-smime-verify-test): New function.
* mm-decode.el (mm-verify-function-alist): Use it.
+2000-11-13 15:29:58 ShengHuo ZHU <zsh@cs.rochester.edu>
+
+ * smime.el (smime-openssl-program): Test the existence of openssl.
+ * mml-smime.el: Require mm-decode.
+ (mml-smime-verify-test): New function.
+ * mm-decode.el (mm-verify-function-alist): Use it.
+
2000-11-13 09:50:29 ShengHuo ZHU <zsh@cs.rochester.edu>
* gnus-sum.el (gnus-summary-repair-multipart): Fix Mime-Version
(autoload 'mml2015-verify "mml2015")
(autoload 'mml2015-verify-test "mml2015")
(autoload 'mml-smime-verify "mml-smime")
+(autoload 'mml-smime-verify-test "mml-smime")
(defvar mm-verify-function-alist
'(("application/pgp-signature" mml2015-verify "PGP" mml2015-verify-test)
- ("application/pkcs7-signature" mml-smime-verify "S/MIME" nil)
- ("application/x-pkcs7-signature" mml-smime-verify "S/MIME" nil)))
+ ("application/pkcs7-signature" mml-smime-verify "S/MIME"
+ mml-smime-verify-test)
+ ("application/x-pkcs7-signature" mml-smime-verify "S/MIME"
+ mml-smime-verify-test)))
(defcustom mm-verify-option nil
"Option of verifying signed parts.
;;; Code:
(require 'smime)
+(require 'mm-decode)
(defun mml-smime-verify (handle ctl)
(with-current-buffer (mm-handle-multipart-original-buffer ctl)
(buffer-string))))
handle))
+(defun mml-smime-verify-test (handle ctl)
+ smime-openssl-program)
+
(provide 'mml-smime)
;;; mml-smime.el ends here
:type 'directory
:group 'smime)
-(defcustom smime-openssl-program "openssl"
+(defcustom smime-openssl-program
+ (and (condition-case ()
+ (eq 0 (call-process "openssl" nil nil nil "version"))
+ (error nil))
+ "openssl")
"Name of OpenSSL binary."
:type 'string
:group 'smime)