From 88a27cd598b9283ede861cc9281a073837b5c162 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 7 Oct 2021 18:23:59 -0500
Subject: Add mu4e contexts

---
 init.el | 63 ++++++++++++++++++++++++++++++++++++++++++++++++++-------------
 1 file changed, 50 insertions(+), 13 deletions(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index d3b05c8..e424c84 100644
--- a/init.el
+++ b/init.el
@@ -690,20 +690,57 @@ specific to most general, they are these:
 
 (setup mu4e
   (:load-from "/usr/share/emacs/site-lisp/mu4e")
-  (:option mu4e-change-filenames-when-moving t
-           mu4e-update-interval (* 10 60)
+  (:autoload (mu4e :interactive t)
+	         make-mu4e-context)
+  (:option message-kill-buffer-on-exit t
+           message-send-mail-function #'smtpmail-send-it
+           mu4e-change-filenames-when-moving t
+           mu4e-contexts
+           (list
+            ;; Work
+            (make-mu4e-context
+             :name "Work"
+             :match-func (lambda (msg)
+                           (when msg
+                             (string-prefix-p
+                              work-mail-dir
+                              (mu4e-message-field msg :maildir))))
+             :vars `((user-mail-address . ,work-email)
+                     (smtpmail-smtp-server . ,work-smtp-server)
+                     (mu4e-compose-format-flowed . nil)
+                     (mu4e-drafts-folder
+                      . ,(concat work-mail-dir "/[Gmail]/Drafts"))
+                     (mu4e-sent-folder
+                      . ,(concat work-mail-dir "/[Gmail]/Sent Mail"))
+                     (mu4e-refile-dir
+                      . ,(concat work-mail-dir "/[Gmail]/All Mail"))
+                     (mu4e-trash-folder
+                      . ,(concat work-mail-dir "/[Gmail]/Trash"))))
+            ;; Home
+            (make-mu4e-context
+             :name "Home"
+             :match-func (lambda (msg)
+                           (when msg
+                             (string-prefix-p
+                              home-mail-dir
+                              (mu4e-message-field msg :maildir))))
+             :vars `((user-mail-address . ,home-email)
+                     (smtpmail-smtp-server . ,home-smtp-server)
+                     (mu4e-compose-format-flowed . nil)
+                     (mu4e-drafts-folder
+                      . ,(concat home-mail-dir "/Drafts"))
+                     (mu4e-sent-folder
+                      . ,(concat home-mail-dir "/Sent"))
+                     (mu4e-refile-folder
+                      . ,(concat home-mail-dir "/Archive"))
+                     (mu4e-trash-folder
+                      . ,(concat home-mail-dir "/Trash")))))
            mu4e-get-mail-command "mbsync -a"
-           mu4e-maildir "~/mail/clickhere")
-  (:option mu4e-drafts-folder "/[Gmail]/Drafts"
-           mu4e-sent-folder "/[Gmail]/Sent Mail"
-           mu4e-refile-folder "/[Gmail]/All Mail"
-           mu4e-trash-folder "/[Gmail]/Trash"
-           mu4e-maildir-shortcuts
-           `((:maildir "/Inbox" :key ?i)
-             (:maildir ,mu4e-drafts-folder :key ?d)
-             (:maildir ,mu4e-sent-folder :key ?s)
-             (:maildir ,mu4e-refile-folder :key ?a)
-             (:maildir ,mu4e-trash-folder :key ?t))))
+           mu4e-maildir "~/mail"
+           mu4e-update-interval (* 10 60)
+           send-mail-function #'smtpmail-send-it
+           smtpmail-smtp-service 465
+           smtpmail-stream-type 'ssl))
 
 (setup page
   (:option page-delimiter
-- 
cgit 1.4.1-21-gabe81