Re: decrypting S/MIME messages

[Simon Josefsson <jas@extundo.com>]

Vladimir Volovich <vvv@vsu.ru> writes:

> "SJ" == Simon Josefsson writes:
> 
> SJ> Ok, S/MIME decryption work for me now, tell me if it work for
> SJ> you.
> 
> Not yet. when viewing such S/MIME encrypted messages (even generated
> by gnus itself), i get an error:
> 
>   signal(error ("Could not identify PKCS#7 type"))
>   error("Could not identify PKCS#7 type")

I had no problem with XEmacs 21.4 or Emacs 21.0.104, do you have some
special mule setting?  It might be some mule interference, the code
compares buffer contents with a string.  Please try this patch and
tell if it works or not:

--- mm-view.el.~6.13.~	Sun Jul 29 03:01:59 2001
+++ mm-view.el	Sun Jul 29 18:02:13 2001
@@ -338,7 +338,7 @@
 			?\x86 ?\xf7 ?\x0d ?\x01 ?\x07 ?\x03)))))
   
 (defun mm-view-pkcs7-get-type (handle)
-  (with-temp-buffer
+  (mm-with-unibyte-buffer
     (mm-insert-part handle)
     (cond ((looking-at (regexp-quote mm-pkcs7-enveloped-magic))
 	   'enveloped)

>  (defun smime-call-openssl-region (b e buf &rest args)
> -  (case (apply 'call-process-region b e smime-openssl-program nil buf nil args)
>+  (case (apply 'call-process-region b e smime-openssl-program nil (list buf nil) nil args)

I applied this, thanks.  I hope OpenSSL error messages are still
handled correctly, otherwise we'll have to come up with some other
solution.

> -	(when (apply 'smime-call-openssl-region b e buffer "smime" "-sign"
>+	(when (apply 'smime-call-openssl-region b e buffer "smime" "-sign" "-rand" "/etc/entropy"

I added `smime-extra-arguments' instead.  Is it sufficient?