           (get (my-config) :redactions))))
 
 ;; Cache redactions, so we don't have to keep yanking them from the config files
-(def get-redactions (clojure.core.memoize/ttl get-new-redactions {} :ttl/threshold 10000))
+(def get-redactions (clojure.core.memoize/ttl get-new-redactions {} :ttl/threshold 10))
 
 ;;;
 ;;; Mail Data Formatting

(defn strip-emails
  "Strip and redact a bunch of emails."
  [addresses redactions]
  (map #(redact-addresses (strip-email %1) redactions) addresses))


(defn hash-message

       (subs rx (inc (.indexOf rx "<")) (.indexOf rx ">"))
         address))))

(defn strip-email-square-brackets [address]
  (let [rx (re-find #"\[\S+\]" address)]
    (if rx
      (subs rx (inc (.indexOf rx "\[")) (.indexOf rx "\]"))
      address
      )))

(defn redact-addresses
  "Replace the addresses with aliases (presumably from the config files)."
  [address redactions]
