From 840370f227faf16c22b28282ab53b023bba869ce Mon Sep 17 00:00:00 2001 From: hmurata Date: Sun, 12 Nov 2006 14:53:05 +0000 Subject: [PATCH] (wl-mime-pgp-verify-region-with-epg): Follow the API change. --- wl/ChangeLog | 5 +++++ wl/wl-mime.el | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 3d39d38..76a0af4 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2006-11-12 Hiroya Murata + + * wl-mime.el (wl-mime-pgp-verify-region-with-epg): Follow the API + change. + 2006-11-09 Hiroya Murata * wl-summary.el (wl-summary-sync-update): Move diff --git a/wl/wl-mime.el b/wl/wl-mime.el index 86e5eb5..f95c06c 100644 --- a/wl/wl-mime.el +++ b/wl/wl-mime.el @@ -488,7 +488,8 @@ It calls following-method selected from variable epg-decrypt-string epg-verify-string epg-context-result-for - epa-display-verify-result))) + epg-verify-result-to-string + epa-display-info))) (condition-case nil (require 'pgg) (error @@ -522,8 +523,8 @@ It calls following-method selected from variable 'raw-text-dos))) (message "Verifying...done") (when (epg-context-result-for context 'verify) - (epa-display-verify-result - (epg-context-result-for context 'verify))))) + (epa-display-info (epg-verify-result-to-string + (epg-context-result-for context 'verify)))))) (defun wl-mime-pgp-decrypt-region-with-pgg (beg end &optional no-decode) (require 'pgg) -- 1.7.10.4