From 726fe11534db1daa6000edff005090ab2ac03da5 Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Mon, 11 Sep 2006 03:25:13 +0000 Subject: [PATCH] (mml2015-epg-clear-decrypt): Don't append verify results to the gnus-info. This fixes a bug of inline-PGP message verification. Reported by Michael Piotrowski . --- lisp/ChangeLog | 6 ++++++ lisp/mml2015.el | 11 +++++------ 2 files changed, 11 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index eb3350ba2..4cc2335ce 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2006-09-11 Daiki Ueno + + * mml2015.el (mml2015-epg-clear-decrypt): Don't append verify results + to the gnus-info. This fixes a bug of inline-PGP message verification. + Reported by Michael Piotrowski . + 2006-09-09 Reiner Steib * pop3.el (pop3-leave-mail-on-server): Mention problem of duplicate diff --git a/lisp/mml2015.el b/lisp/mml2015.el index 3332270b5..e4de5fdd2 100644 --- a/lisp/mml2015.el +++ b/lisp/mml2015.el @@ -1053,14 +1053,13 @@ Whether the passphrase is cached at all is controlled by (goto-char (point-min)) (while (search-forward "\r\n" nil t) (replace-match "\n" t t)) + (mm-set-handle-multipart-parameter + mm-security-handle 'gnus-info "OK") (if (epg-context-result-for context 'verify) (mm-set-handle-multipart-parameter - mm-security-handle 'gnus-info - (concat "OK\n" - (epg-verify-result-to-string - (epg-context-result-for context 'verify)))) - (mm-set-handle-multipart-parameter - mm-security-handle 'gnus-info "OK"))))) + mm-security-handle 'gnus-details + (epg-verify-result-to-string + (epg-context-result-for context 'verify))))))) (defun mml2015-epg-verify (handle ctl) (catch 'error -- 2.34.1