From: Jan Beich <jbeich@vfemail.net>
Date: Mon, 23 Sep 2019 20:11:33 +0000 (+0200)
Subject: mml-smime-openssl-sign): Use all the keys
X-Git-Tag: emacs-27.0.90~1457
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ac1507a8b6af8755b1bbc88cb0e8a760baaec028;p=emacs.git

mml-smime-openssl-sign): Use all the keys

* lisp/gnus/mml-smime.el (mml-smime-openssl-sign): Use all the
keys in `smime-keys' for this identifier (bug#17780).
---

diff --git a/lisp/gnus/mml-smime.el b/lisp/gnus/mml-smime.el
index 3bc44df2c8a..b2e9b783522 100644
--- a/lisp/gnus/mml-smime.el
+++ b/lisp/gnus/mml-smime.el
@@ -133,7 +133,7 @@ Whether the passphrase is cached at all is controlled by
   (when (null smime-keys)
     (customize-variable 'smime-keys)
     (error "No S/MIME keys configured, use customize to add your key"))
-  (smime-sign-buffer (cdr (assq 'keyfile cont)))
+  (smime-sign-buffer (cdar smime-keys))
   (goto-char (point-min))
   (while (search-forward "\r\n" nil t)
     (replace-match "\n" t t))