(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