when constructing SEARCH message, include time in the message as well. This will enable us to ignore any messages when we have a 'later' state available.

shell/search-thread.sml

@@ -5,7 +5,7 @@ struct
   (* Prerequisite to sending message: move buffer to end. *)
   fun loop (searchMailbox, inputMailbox) =
     let
-      val (buffer, searchString) = Mailbox.recv searchMailbox
+      val (buffer, searchString, time) = Mailbox.recv searchMailbox
       val searchList = SearchList.build (buffer, searchString)
       val () = Mailbox.send (inputMailbox, InputMsg.WITH_SEARCH_LIST searchList)
     in