From: ueno <ueno>
Date: Sun, 31 Dec 2006 12:21:55 +0000 (+0000)
Subject: (epa-decrypt-region): Don't use epa-display-info to display plaintext.
X-Git-Tag: epg-0_0_10~35
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bccbcb7911f906ae54c88024e532c92d16d7a4d6;p=elisp%2Fepg.git

(epa-decrypt-region): Don't use epa-display-info to display plaintext.
---

diff --git a/epa.el b/epa.el
index 81a3de3..f52284a 100644
--- a/epa.el
+++ b/epa.el
@@ -771,8 +771,9 @@ Don't use this command in Lisp programs!"
 	    (delete-region start end)
 	    (goto-char start)
 	    (insert plain))
-	(let ((epa-popup-info-window t))
-	  (epa-display-info plain)))
+	(with-output-to-temp-buffer "*Text*"
+	  (set-buffer standard-output)
+	  (insert plain)))
       (if (epg-context-result-for context 'verify)
 	  (epa-display-info (epg-verify-result-to-string
 			     (epg-context-result-for context 'verify)))))))