           (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

  Remote complement to (ingest-mail)."
  ([] (remote-mail (gmail-folder)))
  ([folder-name]
    (clojure.pprint/pprint (str "Accessing remote mail: " folder-name))
    (map process-remote-message
        (clojure-mail.core/with-store (clojure-mail.core/gen-store (gmail-username) (gmail-password))
         (.getMessages (my-open-folder folder-name :readonly))
                  ))))

;; Cache the fetched mail, because we really don't need real-time updates yet...
;(def cached-remote-mail
;  (clojure.core.memoize/ttl remote-mail {} :ttl/threshold 60))


;(remote-mail)

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


(defn hash-message
