From 59ce69e7e3ffbef5f1c2c77f283c46dd535980f2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Tue, 11 Apr 2023 14:19:10 +0200
Subject: [PATCH] Use subject encoding.

---
 src/util-mail.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/util-mail.scm b/src/util-mail.scm
index 061bf94..c1d7008 100644
--- a/src/util-mail.scm
+++ b/src/util-mail.scm
@@ -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)