* mime-edit.el (mime-edit-sign-pgp-mime): Extract micalg from the

epg-new-signature object.

diff --git a/ChangeLog b/ChangeLog
index 4e3db87..6303323 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-05-12  Daiki Ueno  <ueno@unixuser.org>
+
+       * mime-edit.el (mime-edit-sign-pgp-mime): Extract micalg from the
+       epg-new-signature object.
+
 2006-05-04  Daiki Ueno  <ueno@unixuser.org>
 
        * mime-pgp.el (mime-view-application/pgp): Allow to verify

diff --git a/mime-edit.el b/mime-edit.el
index d810941..70a1750 100644 (file)
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -1692,8 +1692,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;