* epa.el (epa-display-info): Delete "*Info*" window.

diff --git a/ChangeLog b/ChangeLog
index c423628..a7d3b2d 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -8,6 +8,7 @@
        (epa-import-armor-in-region): New command.
        (epa-import): New command.
        (epa-decrypt-region): Confirm user to replace the region.
+       (epa-display-info): Delete "*Info*" window.
 
 2006-12-29  Daiki Ueno  <ueno@unixuser.org>
 

diff --git a/epa.el b/epa.el
index ca47d02..22d8bef 100644 (file)
--- a/epa.el
+++ b/epa.el
@@ -561,6 +561,8 @@ If SECRET is non-nil, list secret keys instead of public keys."
       (save-selected-window
        (unless epa-info-buffer
          (setq epa-info-buffer (generate-new-buffer "*Info*")))
+       (if (get-buffer-window epa-info-buffer)
+           (delete-window (get-buffer-window epa-info-buffer)))
        (save-excursion
          (set-buffer epa-info-buffer)
          (let ((inhibit-read-only t)