(smime-sign-buffer): Get key and extra certs.

(smime-get-key-with-certs-by-email): Utility function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5f961e3..eccc055 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-09-23  Simon Josefsson  <jas@extundo.com>
+       Trivial fix from beaker@iavmb.pl (Krzysztof J\e,Bj\e(Bdruczyk).
+
+       * smime.el (smime-sign-buffer): Get key and extra certs.
+       (smime-get-key-with-certs-by-email): Utility function.  
+
 2002-09-21  ShengHuo ZHU  <zsh@cs.rochester.edu>
        Trivial patch from Micha Wiedenmann <mw-u1@gmx.de>
 

diff --git a/lisp/smime.el b/lisp/smime.el
index 2c38de6..0605511 100644 (file)
--- a/lisp/smime.el
+++ b/lisp/smime.el
@@ -312,7 +312,7 @@ KEYFILE should contain a PEM encoded key and certificate."
      (point-min) (point-max)
      (if keyfile
         keyfile
-       (smime-get-key-by-email
+       (smime-get-key-with-certs-by-email
        (completing-read
         (concat "Sign using which key? "
                 (if smime-keys (concat "(default " (caar smime-keys) ") ")
@@ -605,6 +605,9 @@ The following commands are available:
 (defun smime-get-key-by-email (email)
   (cadr (assoc email smime-keys)))
 
+(defun smime-get-key-with-certs-by-email (email)
+  (cdr (assoc email smime-keys)))
+
 (provide 'smime)
 
 ;;; smime.el ends here