From 4f80ad4e9d2d329f16ceae80e07cb41b13075e1e Mon Sep 17 00:00:00 2001
From: "Taylor R. Campbell" <net/mumble/campbell>
Date: Tue, 9 Sep 2008 15:37:03 +0000
Subject: [PATCH] Use the IMAIL-SEARCH prompt history for IMAIL-SEARCH-SUMMARY.

---
 v7/src/imail/imail-summary.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/v7/src/imail/imail-summary.scm b/v7/src/imail/imail-summary.scm
index 50596eb74..990abbd2d 100644
--- a/v7/src/imail/imail-summary.scm
+++ b/v7/src/imail/imail-summary.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: imail-summary.scm,v 1.60 2008/09/04 21:55:20 riastradh Exp $
+$Id: imail-summary.scm,v 1.61 2008/09/09 15:37:03 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -156,7 +156,11 @@ SUBJECT is a string of regexps separated by commas."
 
 (define-command imail-search-summary
   "Display a summary of the search results for a string of text."
-  "sSearch string"
+  (lambda ()
+    (list (prompt-for-string "IMAIL search" #f
+                             'DEFAULT-TYPE 'INSERTED-DEFAULT
+                             'HISTORY 'IMAIL-SEARCH
+                             'HISTORY-INDEX 0)))
   (lambda (pattern)
     (imail-summary
      (string-append "Search: " pattern)
-- 
2.25.1