* mime-edit.el (mime-edit-sign-smime): Use

[elisp/semi.git] / mime-edit.el

diff --git a/mime-edit.el b/mime-edit.el
index 70a1750..15bc2c7 100644 (file)
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -1913,8 +1913,8 @@ If no one is selected, default secret key is used.  "
                                    (buffer-substring (point-min) (point-max)))
                                   'detached))
          (error (signal 'mime-edit-error (cdr error))))
-       (setq micalg (cdr (assq 'digest-algorithm
-                               (car (epg-context-result-for context 'sign)))))
+       (setq micalg (epg-new-signature-digest-algorithm
+                     (car (epg-context-result-for context 'sign))))
        (goto-char beg)
        (insert (format "--[[multipart/signed;
  boundary=\"%s\"%s;