(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)))
(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-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)))))