Fixed.

[elisp/epg.git] / epa.el

diff --git a/epa.el b/epa.el
index 762b172..7e862cb 100644 (file)
--- a/epa.el
+++ b/epa.el
@@ -165,7 +165,6 @@ the separate window."
 (defvar epa-key-buffer-alist nil)
 (defvar epa-key nil)
 (defvar epa-list-keys-arguments nil)
-(defvar epa-info-buffer nil)
 
 (defvar epa-keys-mode-map
   (let ((keymap (make-sparse-keymap)))
@@ -229,7 +228,7 @@ the separate window."
 
 (defun epa--temp-buffer-show-function (buffer)
   (save-selected-window
-    (let ((window (or (get-buffer-window epa-buffer-name)
+    (let ((window (or (get-buffer-window buffer)
                      (progn
                        (select-window (get-largest-window))
                        (split-window-vertically)))))
@@ -246,11 +245,7 @@ the separate window."
 (defun epa-display-verify-result (verify-result)
   (if epa-popup-info-window
       (let ((temp-buffer-show-function #'epa--temp-buffer-show-function))
-       (unless epa-info-buffer
-         (setq epa-info-buffer (generate-new-buffer "*Info*"))
-         (with-current-buffer epa-info-buffer
-           (setq buffer-read-only t)))
-       (with-output-to-temp-buffer epa-info-buffer
+       (with-output-to-temp-buffer "*Info*"
          (save-excursion
            (set-buffer standard-output)
            (insert (epg-verify-result-to-string verify-result)))))