From 2d584b2e26ed69af2180d0ac189d1b517b112a9b Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 11 Oct 2021 21:28:49 -0500
Subject: Further configure mu4e

---
 init.el | 30 ++++++++++++++++++++++++++++--
 1 file changed, 28 insertions(+), 2 deletions(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index 8946ce9..616edfb 100644
--- a/init.el
+++ b/init.el
@@ -751,7 +751,17 @@ specific to most general, they are these:
                      (mu4e-refile-dir
                       . ,(concat work-mail-dir "/[Gmail]/All Mail"))
                      (mu4e-trash-folder
-                      . ,(concat work-mail-dir "/[Gmail]/Trash"))))
+                      . ,(concat work-mail-dir "/[Gmail]/Trash"))
+                     (mu4e-maildir-shortcuts
+                      . ,(mapcar (lambda (cell)
+                                   (let ((dir (car cell))
+                                         (char (cdr cell)))
+                                     (cons (concat work-mail-dir dir) char)))
+                                 '(("/Inbox" . ?i)
+                                   ("/[Gmail]/All Mail" . ?a)
+                                   ("/[Gmail]/Sent" . ?s)
+                                   ("/[Gmail]/Drafts" . ?d)
+                                   ("/[Gmail]/Trash" . ?t))))))
             ;; Home
             (make-mu4e-context
              :name "Home"
@@ -771,10 +781,26 @@ specific to most general, they are these:
                      (mu4e-refile-folder
                       . ,(concat home-mail-dir "/Archive"))
                      (mu4e-trash-folder
-                      . ,(concat home-mail-dir "/Trash")))))
+                      . ,(concat home-mail-dir "/Trash"))
+                     (mu4e-maildir-shortcuts
+                      . ,(mapcar (lambda (cell)
+                                   (let ((dir (car cell))
+                                         (char (cdr cell)))
+                                     (cons (concat home-mail-dir dir) char)))
+                                 '(("/INBOX" . ?i)
+                                   ("/Archive" . ?a)
+                                   ("/Sent" . ?s)
+                                   ("/Drafts" . ?d)
+                                   ("/Trash" . ?t)))))))
            mu4e-get-mail-command "mbsync -a"
            mu4e-maildir "~/mail"
            mu4e-update-interval (* 10 60)
+           sendmail-send-program (seq-some #'executable-find
+                                           '("msmtp"
+                                             "sendmail"))
+           message-sendmail-f-is-evil t
+           message-sendmail-extra-arguments '("--read-envelope-from")
+           message-send-mail-function #'message-send-mail-with-sendmail
            send-mail-function #'smtpmail-send-it
            smtpmail-smtp-service 465
            smtpmail-stream-type 'ssl)
-- 
cgit 1.4.1-21-gabe81