1 files changed, 31 insertions, 2 deletions

@@ -736,6 +736,8 @@ specific to most general, they are these:
            message-send-mail-function #'smtpmail-send-it
            mu4e-change-filenames-when-moving t
            mu4e-completing-read-function 'completing-read
+           mu4e-compose-context-policy 'ask-if-none
+           mu4e-context-policy 'ask-if-none
            mu4e-contexts
            (list
             ;; Work
@@ -756,7 +758,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"
@@ -767,6 +779,7 @@ specific to most general, they are these:
                               (mu4e-message-field msg :maildir))))
              :vars `((user-mail-address . ,home-email)
                      (smtpmail-smtp-server . ,home-smtp-server)
+                     (mu4e-compose-signature . "~ Case")
                      (mu4e-compose-format-flowed . nil)
                      (mu4e-drafts-folder
                       . ,(concat home-mail-dir "/Drafts"))
@@ -775,10 +788,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)