From bc452a9f64ef6ae17c5e2bcdab754cf040b8e968 Mon Sep 17 00:00:00 2001
From: quenousimporte <quenousimporte@riseup.net>
Date: Wed, 10 Apr 2024 17:10:27 +0200
Subject: [PATCH] fix encoding

---
 md2imap/imap-note-header |  3 +--
 md2imap/md2imap.sh       | 11 +++++++++--
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/md2imap/imap-note-header b/md2imap/imap-note-header
index 73428e1..2f39d68 100644
--- a/md2imap/imap-note-header
+++ b/md2imap/imap-note-header
@@ -6,7 +6,6 @@ Content-Type: text/plain; charset="utf-8"
 Date: Wed, 10 Apr 2024 02:45:21 -0400
 Reply-To: name <email>
 X-Uniform-Type-Identifier: com.apple.mail-note
-Subject: title
+Subject: =?UTF-8?Q?title?=
 X-Universally-Unique-Identifier: uid
 Status: RO
-
diff --git a/md2imap/md2imap.sh b/md2imap/md2imap.sh
index 905bdd2..0ee881a 100644
--- a/md2imap/md2imap.sh
+++ b/md2imap/md2imap.sh
@@ -1,17 +1,24 @@
+qp () {
+    perl -MMIME::QuotedPrint -s -ne '
+        BEGIN { *e = $d ? \&decode_qp : \&encode_qp }
+        print e $_
+    ' -- "$@"
+}
 rm mbox
 for f in input/*.md
 do
 	f=${f##*/}
 	title=${f%.md}
+	subject=$(echo $title|qp -e)
 
 	uid=$(cat /proc/sys/kernel/random/uuid)
 	cp imap-note-header "$title".imap
 	sed -i "s/uid/${uid}/" "$title".imap
-	sed -i "s/title/${title}/" "$title".imap
+	sed -i "s/title/${subject}/" "$title".imap
 	sed -i "s/name/$1/" "$title".imap
 	sed -i "s/email/$2/" "$title".imap
 
-	cat "input/$f" >> "$title".imap
+	cat "input/$f" | qp -e >> "$title".imap
 	cat "$title".imap >> mbox
 	printf '\n\n' >> mbox
 	rm "$title".imap