(let ((height (window-height)))
(if (> height epa-info-window-height)
(shrink-window (- height epa-info-window-height)))
- (set-window-start window (point-min)))
- (with-current-buffer buffer
- (setq buffer-read-only t)))))
+ (set-window-start window (point-min))))))
(defun epa-display-verify-result (verify-result)
(if epa-popup-info-window