From 5311403be90c9fb82b1da1bf4bafb4953f9bf567 Mon Sep 17 00:00:00 2001
From: Rutherther <rutherther@protonmail.com>
Date: Sat, 28 Sep 2024 14:33:00 +0200
Subject: [PATCH] feat: add msmtp patch for utf8 encoding

---
 home/home-configuration.scm | 22 ++++++++++++++++++++--
 1 file changed, 20 insertions(+), 2 deletions(-)

diff --git a/home/home-configuration.scm b/home/home-configuration.scm
index 151bc85..b49973e 100644
--- a/home/home-configuration.scm
+++ b/home/home-configuration.scm
@@ -67,6 +67,21 @@
                          (find-files source "\\.(otf|otc)$"))
                #t))))))))
 
+(define (apply-patches pkg patches)
+  (let ((src (package-source pkg))
+        (source-patches
+         (if (list? patches)
+             patches
+             (list patches))))
+    (package
+      (inherit pkg)
+      (source
+       (origin
+         (inherit src)
+         (patches
+          (append source-patches
+                  (origin-patches src))))))))
+
 (home-environment
  ;; Below is the list of packages that will show up in your
  ;; Home profile, under ~/.guix-home/profile.
@@ -74,7 +89,10 @@
   (append
    (list
     dwl-mine
-    font-awesome-6)
+    font-awesome-6
+
+    (apply-patches msmtp
+                   (local-file "./patches/msmtp-from-utf8-encoding.patch")))
    (specifications->packages
     (list
      "man-db"
@@ -123,7 +141,7 @@
      "dconf"
 
      ;; E-mail
-     "offlineimap3" "msmtp"
+     "offlineimap3"
      "notmuch" "afew"
 
      "xdg-utils" "libnotify"
-- 
2.48.1