Use subject encoding.

This commit is contained in:
Dominik Pantůček 2023-04-11 14:19:10 +02:00
parent 340bbaf5e5
commit 59ce69e7e3

View file

@ -44,7 +44,11 @@
;; Ensures the subject has proper encoding
(define (encode-subject subj)
subj)
(if (string-utf8? subj)
(string-append "=?UTF-8?Q?"
(string->qp subj)
"?=")
subj))
;; Sends an email using the UNIX mail(1) utility.
(define (send-mail body-lines . args)