Skip to content

Commit 06f1cd5

Browse files
committed
fix: Honor :smtp :reply-to in notifications
1 parent 556508a commit 06f1cd5

1 file changed

Lines changed: 6 additions & 2 deletions

File tree

scripts/bark-notify.clj

Lines changed: 6 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -292,7 +292,11 @@
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)]
@@ -306,7 +310,7 @@
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
;; ---------------------------------------------------------------------------

0 commit comments

Comments
 (0)