[mew-int 2623] fix for mew-smime-encrypt

[Christian Gerhardt]

Hi there,

while attempting to encrypt a message using s/mime my emacs gave me a
backtrace. A friend found the bug and fixed it. I am posting the
correct function, for I don't know how to behave otherwise. Hope
that's okay.

Here is the function:

(defun mew-smime-encrypt (file1 decrypters)
  (let* ((process-connection-type mew-connection-type2)
	 (file2 (mew-make-temp-name))
	 (decs (mew-gpg-roption decrypters "--recipient"))
	 (prog mew-prog-smime)
	 (opts `("--encrypt" , at example.com
		 , at example.com
		 "--cipher-algo" ,mew-smime-cipher
		 "--output" ,file2 ,file1))
	 check)
    (message "S/MIME encrypting...")
    (with-temp-buffer
      (apply 'mew-call-process-lang prog nil t nil opts)
      (setq check (mew-smime-encrypt-check)))
    (message "S/MIME encrypting...done")
    (list file2 check)))

Regards,
Christian

-- 

Christian Gerhardt (Team IT-Services)
DFN-CERT Services GmbH, https://www.dfn-cert.de,  Phone  +49 40 808077-638
Sitz / Register: Hamburg, AG Hamburg, HRB 88805,  Ust-IdNr.:  DE 232129737
Sachsenstraße 5, 20097 Hamburg/Germany, CEO: Dr. Klaus-Peter Kossakowski

                                     CarmentiS - Early Warning Expertise
                                               https://www.carmentis.org
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pkcs7-signature
Size: 4857 bytes
Desc: not available
URL: <http://www.mew.org/pipermail/mew-int/attachments/20081017/d7dbb9af/attachment.bin>