1 files changed, 28 insertions, 2 deletions

@@ -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)