X-Git-Url: http://git.osdn.net/view?p=howm%2Fhowm.git;a=blobdiff_plain;f=howm-mode.el;h=56c61bb8e970b303ff9f896b42cf1453dbf44505;hp=ee511e33b28297607dd90e25ad1158a5063bfd0b;hb=20724f1be1517228ca2e570b1b82e42c8a594cf1;hpb=85441df429da7a66ae90b66071dc9fc47f7381d1

diff --git a/howm-mode.el b/howm-mode.el
index ee511e3..56c61bb 100644
--- a/howm-mode.el
+++ b/howm-mode.el
@@ -469,11 +469,16 @@ key	binding
 (defmacro howm-with-iigrep (command-for-pattern show-what action &rest body)
   (declare (indent 3))
   `(let ((*iigrep-post-sentinel* (howm-iigrep-post-sentinel ,action))
+         (howm-view-summary-name "*howmS(preview)*")
+         (howm-view-contents-name "*howmC(preview)*")
          (howm-history-limit 0)
          (*howm-show-item-filename* nil)
          (howm-message-time nil))
-     (iigrep-with-grep ,command-for-pattern ,show-what
-       ,@body)))
+     (unwind-protect
+         (iigrep-with-grep ,command-for-pattern ,show-what
+           ,@body)
+       (mapc (lambda (b) (and (get-buffer b) (kill-buffer b)))
+             (list howm-view-summary-name howm-view-contents-name)))))
 
 (defmacro howm-iigrep-command-for-pattern (&optional fixed-p converter)
   ;; use macro due to dynamic binding. Sigh...