 
 ;; TODO - move into start
 (when (configured?)
-  (def store (gen-store))
   (let [{:keys [user pass]} (:value (config))]
-    (auth! user pass)))
+    (def store (mail/store user pass))))
 
 (def pool (mk-pool))
 (def poll-interval (* 1000 60))

    [inflections.core :refer [pluralize]]
    [yetibot.core.config :refer [get-config]]
    [clojure-mail
     [core :refer :all]
     [message :as msg]]))

(def mail-schema

        (fmt-messages messages)))

(defn fetch-unread-mail []
  (let [messages (mail/unread-messages folder)]
    (when-not (empty? messages)
      (mail/mark-all-read folder)
      (fmt-you-have-mail messages))))

(defn fetch-and-announce-unread-mail []
