X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=pgg.el;h=4c76ce40800aaa8da035485b4ba81814caf36e21;hb=1aff1ead1d0f6c944efe747f134436ffad1c8f44;hp=326a57000e08947acf998ffcb182f4bdd0894bdf;hpb=53b7c48bb65844ee60561ca068c6ebb422c018a2;p=elisp%2Fsemi.git

diff --git a/pgg.el b/pgg.el
index 326a570..4c76ce4 100644
--- a/pgg.el
+++ b/pgg.el
@@ -346,11 +346,13 @@ signer's public key from `pgg-default-keyserver-address'."
 		   (luna-send entity 'verify-region entity 
 			      (point-min)(point-max) signature)))
     (when (interactive-p)
-      (with-output-to-temp-buffer pgg-echo-buffer
-	(set-buffer standard-output)
-	(insert-buffer-substring (if status pgg-output-buffer
-				   pgg-errors-buffer))
-	))
+      (let ((temp-buffer-show-function
+	     (function pgg-temp-buffer-show-function)))
+	(with-output-to-temp-buffer pgg-echo-buffer
+	  (set-buffer standard-output)
+	  (insert-buffer-substring (if status pgg-output-buffer
+				     pgg-errors-buffer))
+	  )))
     status))
 
 ;;;###autoload