-(defun epa--temp-buffer-show-function (buffer)
- (save-selected-window
- (let ((window (or (get-buffer-window epa-info-buffer-name)
- (progn
- (select-window (get-largest-window))
- (split-window-vertically)))))
- (set-window-buffer window buffer)
- (if window
- (select-window window))
- (unless (pos-visible-in-window-p (point-max))
- (enlarge-window (- epa-info-window-height (window-height))))
- (let ((height (window-height)))
- (if (> height epa-info-window-height)
- (shrink-window (- height epa-info-window-height)))
- (set-window-start window (point-min))))))
-
-(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
- (save-excursion
- (set-buffer standard-output)
- (insert (epg-verify-result-to-string verify-result)))))
- (message "%s" (epg-verify-result-to-string verify-result))))
-