From: ueno <ueno>
Date: Fri, 12 May 2006 03:09:59 +0000 (+0000)
Subject: * mime-edit.el (mime-edit-sign-pgp-mime): Extract micalg from the
X-Git-Tag: emiko-1_14_1-epg-0_0_2~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b825d4c64a15ddfb76478c5184f35165aa3f6053;p=elisp%2Fsemi.git

* 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
--- 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
--- 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;