File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change 292292
293293(defn send-notification!
294294 " Send a plain-text notification email via SMTP.
295- `admin-bcc` is forwarded as :bcc on every send when non-nil."
295+ `admin-bcc` is forwarded as :bcc on every send when non-nil.
296+
297+ Note: the tzzh/mail pod expects the unhyphenated key
298+ `:replyto` (and as a vector of strings); `:reply-to` would be
299+ silently dropped."
296300 [smtp-config to-addr source body admin-bcc]
297301 (let [{:keys [host port tls user password from reply-to]} smtp-config
298302 bccs (bcc-list admin-bcc)]
306310 :to [to-addr]
307311 :subject (str " [BARK " source " ] Open reports" )
308312 :text body}
309- reply-to (assoc :reply-to reply-to)
313+ reply-to (assoc :replyto [ reply-to] )
310314 (seq bccs) (assoc :bcc bccs)))))
311315
312316; ; ---------------------------------------------------------------------------
You can’t perform that action at this time.
0 commit comments