Add Content-Type.

This commit is contained in:
Dominik Pantůček 2023-09-19 20:44:20 +02:00
parent ee696c3338
commit 491b4fef8a

View file

@ -120,7 +120,9 @@
(make-ldict (make-ldict
`((to . ,(brmember-info mr 'mail)) `((to . ,(brmember-info mr 'mail))
(subject . "Připomínka členských příspěvků / Membership fees reminder") (subject . "Připomínka členských příspěvků / Membership fees reminder")
(body . ,(reminder-email-body mr))))) (body . ,(reminder-email-body mr))
(header .,(list (format "Content-Type: text/plain; charset=\"UTF-8\"")))
)))
;; Creates and prints reminder email for given member record ;; Creates and prints reminder email for given member record
(define (make+print-reminder-email mr) (define (make+print-reminder-email mr)