From: ueno <ueno>
Date: Thu, 4 May 2006 22:35:45 +0000 (+0000)
Subject: * mime-pgp.el (mime-view-application/pgp): Allow to verify
X-Git-Tag: emiko-1_14_1-epg-0_0_2~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5c29b94a7e61e4421a3021e25696ca29ca4f2ac1;p=elisp%2Fsemi.git

* mime-pgp.el (mime-view-application/pgp): Allow to verify
signed-and-encrypted messages.
---

diff --git a/ChangeLog b/ChangeLog
index 53cbab9..4e3db87 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-05-04  Daiki Ueno  <ueno@unixuser.org>
+
+	* mime-pgp.el (mime-view-application/pgp): Allow to verify
+	signed-and-encrypted messages.
+
 2006-04-30  Daiki Ueno  <ueno@unixuser.org>
 
 	* 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)