From b825d4c64a15ddfb76478c5184f35165aa3f6053 Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 12 May 2006 03:09:59 +0000 Subject: [PATCH] * mime-edit.el (mime-edit-sign-pgp-mime): Extract micalg from the epg-new-signature object. --- ChangeLog | 5 +++++ mime-edit.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 4e3db87..6303323 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2006-05-12 Daiki Ueno + + * mime-edit.el (mime-edit-sign-pgp-mime): Extract micalg from the + epg-new-signature object. + 2006-05-04 Daiki Ueno * 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; -- 1.7.10.4