           (.getAddress address)))
 
 
-(defvar *parse-rules*
+(defvar parse-rules
   {
    "date"    {:value-fn (fn [msg]
                           (DateTools/dateToString

(defn load-headers
  "Add interesting mail headers to Lucene `doc'."
  [#^Document doc #^MimeMessage msg]
  (doseq [[field rule] *parse-rules*]
    (when (:value-fn rule)
      (when-let [value (try ((:value-fn rule) msg)
                            (catch Exception _

  (let [query (BooleanQuery.)
        all-fields (.parse (doto (MultiFieldQueryParser.
                                  Version/LUCENE_30
                                  (into-array (keys parse-rules))
                                  (StandardAnalyzer. Version/LUCENE_30))
                             (.setDefaultOperator QueryParser$Operator/AND))
                           (normalcase querystr))]
