(epa-decrypt-region): Don't use epa-display-info to display plaintext.
authorueno <ueno>
Sun, 31 Dec 2006 12:21:55 +0000 (12:21 +0000)
committerueno <ueno>
Sun, 31 Dec 2006 12:21:55 +0000 (12:21 +0000)
epa.el

diff --git a/epa.el b/epa.el
index 81a3de3..f52284a 100644 (file)
--- 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)))))))