From 60cff2588972dd22e7db353655c5ebb94aad5d9d Mon Sep 17 00:00:00 2001
From: Timo Wilken
Date: Thu, 29 Jun 2023 23:06:30 +0200
Subject: Add basic msmtp configuration

TODO: configure git-send-email to use msmtp instead of connecting to the SMTP
server directly?

In case I want to switch to offlineimap + notmuch + msmtp with aerc, this
would be useful.
---
 tw/home/lap.scm | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

(limited to 'tw/home')

diff --git a/tw/home/lap.scm b/tw/home/lap.scm
index d9a35e61..547715f1 100644
--- a/tw/home/lap.scm
+++ b/tw/home/lap.scm
@@ -12,6 +12,7 @@
   #:use-module (gnu home services)
   #:use-module (gnu home services desktop)
   #:use-module (gnu home services guix)
+  #:use-module (gnu home services mail)
   #:use-module (gnu home services mcron)
   #:use-module (gnu home services pm)
   #:use-module (gnu home services shepherd)
@@ -69,7 +70,23 @@
      `(;; The file from git main is newer than the one bundled with the
        ;; packaged neomutt version and contains a few fixes.
        (".local/bin/mutt_oauth2.py"
-        ,(local-file "files/neomutt/contrib/oauth2/mutt_oauth2.py" #:recursive? #t))))))
+        ,(local-file "files/neomutt/contrib/oauth2/mutt_oauth2.py" #:recursive? #t))))
+
+   (service home-msmtp-service-type
+     (home-msmtp-configuration
+      (defaults (msmtp-configuration
+                 (tls? #t)
+                 (tls-starttls? #f)   ; use "real" TLS instead
+                 (log-file "-")))     ; log to stdout
+      (accounts (list
+                 (msmtp-account
+                  (name "mythic")
+                  (configuration
+                   (msmtp-configuration
+                    (host "smtp-auth.mythic-beasts.com")
+                    (user "timo@twilken.net")
+                    (password-eval "pass www/mythic-beasts/email/timo | head -1"))))))
+      (default-account "mythic")))))
 
 (define-public %lap-home
   (home-environment
-- 
cgit v1.2.3