2010-10-04 Julien Danjou <julien@danjou.info>
+ * mml-smime.el (mml-smime-openssl-encrypt-query): Fix choices.
+ (mml-smime-openssl-sign-query): Fix gnus-completing-read call.
+
* gravatar.el (gravatar-retrieved): Kill buffer when gravatar has been
retrieved.
(and from (smime-get-key-by-email from)))
(smime-get-key-by-email
(gnus-completing-read "Sign this part with what signature"
- smime-keys nil nil
+ (mapcar 'car smime-keys) nil nil nil
(and (listp (car-safe smime-keys))
(caar smime-keys))))))))
(while (not done)
(ecase (read (gnus-completing-read
"Fetch certificate from"
- '(("dns") ("ldap") ("file")) t nil nil
+ '("dns" "ldap" "file") t nil nil
"ldap"))
(dns (setq certs (append certs
(mml-smime-get-dns-cert))))