                      ".\n\n" (t :core/Emailactivation4 lng)":\n\n"
                      activation-link
                      "\n\n" (t :core/Emailactivation5 lng) "\n" (t :core/Emailactivation6 lng) ".\n\n" (t :core/Emailresetmessage2 lng) ".\n\n--  "
-                      site-name " -"(t :core/Team lng))]
-    (log/info "sending to" email-address)
-    (-> (send-mail ctx subject message [email-address]) log/info)))
+                     site-name " -"(t :core/Team lng))]
+    (send-mail ctx subject message [email-address])))
 
 (defn send-verification [ctx site-url email-verification-link fullname email lng]
   (let [site-name (get-in ctx [:config :core :site-name])

                     "\n\n" (t :core/Emailactivation5 lng) "\n" (t :core/Emailactivation6 lng) ".\n\n" (t :core/Emailactivation7 lng) "\n"
                     login-link
                     " " (t :core/Emailactivation8 lng) ".\n\n--  "site-name " -"(t :core/Team lng))]
    (log/info "sending to" email-address)
    (-> (send-mail ctx subject message [email-address]) log/info)))

(defn send-password-reset-message [ctx site-url activation-link fullname email-address lng]
  (let [site-name (get-in ctx [:config :core :site-name])

            [slingshot.slingshot :refer :all]
            [salava.core.i18n :refer [t]]))

(defn- send-mail-to [mail-host-config msg to]
  (try+
    (log/info "sending to" to)
    (if (nil? mail-host-config)
      (send-message (assoc msg :to to))
      (send-message mail-host-config (assoc msg :to to)))
    (catch Object ex
      (log/error ex))))

(defn send-mail [ctx subject message recipients]
  (let [mail-host-config (get-in ctx [:config :core :mail-host-config])
        data {:from    (get-in ctx [:config :core :mail-sender])
              :subject subject
              :body    [{:type    "text/plain; charset=utf-8"
                         :content message}]}]
    (doseq [to recipients]
      (-> (send-mail-to mail-host-config data to) log/info))))

(defn send-html-mail [ctx subject message recipients]
  (let [mail-host-config (get-in ctx [:config :core :mail-host-config])
        data {:from    (get-in ctx [:config :core :mail-sender])
              :subject subject
              :body    [{:type "text/html; charset=utf-8"
                         :content message}]}]
    (doseq [to recipients]
      (-> (send-mail-to mail-host-config data to) log/info))))

(defn send-activation-message [ctx site-url activation-link login-link fullname email-address lng]
  (let [site-name (get-in ctx [:config :core :site-name])
