From 5c29b94a7e61e4421a3021e25696ca29ca4f2ac1 Mon Sep 17 00:00:00 2001 From: ueno Date: Thu, 4 May 2006 22:35:45 +0000 Subject: [PATCH] * mime-pgp.el (mime-view-application/pgp): Allow to verify signed-and-encrypted messages. --- ChangeLog | 5 +++++ mime-pgp.el | 13 ++++++++----- 2 files changed, 13 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index 53cbab9..4e3db87 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2006-05-04 Daiki Ueno + + * mime-pgp.el (mime-view-application/pgp): Allow to verify + signed-and-encrypted messages. + 2006-04-30 Daiki Ueno * mime-pgp.el: Require 'epa. diff --git a/mime-pgp.el b/mime-pgp.el index 0fbf1ad..91eae62 100644 --- a/mime-pgp.el +++ b/mime-pgp.el @@ -88,9 +88,6 @@ (epg-verify-string context (buffer-substring (match-beginning 0)(point-max))) - (message "%s" - (epg-verify-result-to-string - (epg-context-result-for context 'verify))) (goto-char (point-min)) (delete-region (point-min) @@ -118,14 +115,20 @@ 'raw-text)) (delete-region (point-min)(point-max)) (insert plain) - (setq representation-type 'binary))) + (setq representation-type 'binary) + )) (setq major-mode 'mime-show-message-mode) (save-window-excursion (mime-view-buffer nil preview-buffer mother nil representation-type) (make-local-variable 'mime-view-temp-message-buffer) (setq mime-view-temp-message-buffer message-buf)) - (set-window-buffer p-win preview-buffer))) + (set-window-buffer p-win preview-buffer) + (if (and context + (epg-context-result-for context 'verify)) + (message "%s" + (epg-verify-result-to-string + (epg-context-result-for context 'verify)))))) (defun mime-verify-application/*-signature (entity situation) -- 1.7.10.4