1 files changed, 50 insertions, 13 deletions

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