Emacs: Configure mu4e

1 files changed, 52 insertions, 0 deletions

diff --git a/emacs/.emacs.d/main.el b/emacs/.emacs.d/main.el
index cc61b57f..e45be855 100644
--- a/emacs/.emacs.d/main.el
+++ b/emacs/.emacs.d/main.el
@@ -1367,6 +1367,58 @@
   (add-to-list 'mm-discouraged-alternatives "text/richtext"))
 ;; #+END_SRC
 
+;; *** mu
+
+;; #+BEGIN_SRC emacs-lisp
+(add-to-list 'load-path (expand-file-name
+                         "../share/emacs/site-lisp/mu4e"
+                         (f-dirname
+                          (file-truename
+                           (executable-find "mu")))))
+(use-package mu4e
+  :config
+  (setq mu4e-use-fancy-chars nil
+        mu4e-attachment-dir "~/Downloads/"
+        mu4e-view-show-images t
+        mu4e-headers-date-format "%Y-%m-%d %H:%M"
+
+        mu4e-maildir (expand-file-name "~/mail/alanpearce")
+        mu4e-sent-folder "/Sent"
+        mu4e-drafts-folder "/Drafts"
+        mu4e-refile-folder "/Archive"
+        mu4e-trash-folder "/Trash"
+
+        message-send-mail-function #'message-send-mail-with-sendmail
+        sendmail-program "msmtp"
+
+        mu4e-maildir-shortcuts '(("/INBOX" . ?i))
+        ;; mu4e-get-mail-command "offlineimap -o"
+        mu4e-contexts
+        (list
+         (make-mu4e-context
+          :name "Personal"
+          :match-func (lambda (msg)
+                        (when msg
+                          (mu4e-message-contact-field-matches
+                           msg :to "alan@alanpearce\..*")))
+          :vars '((user-mail-address . "alan@alanpearce.eu")))
+         (make-mu4e-context
+          :name "Work"
+          :match-func (lambda (msg)
+                        (when msg
+                          (mu4e-message-contact-field-matches
+                           msg :to "alan.*@satoshipay.io")))
+          :vars '((user-mail-address . "alan@satoshipay.io"))))
+        mu4e-user-mail-address-list (append
+                                     (delq nil
+                                           (mapcar (lambda (context)
+                                                     (when (mu4e-context-vars context)
+                                                       (cdr (assq 'user-mail-address (mu4e-context-vars context)))))
+                                                   mu4e-contexts))
+                                     '("alan@alanpearce.uk"
+                                       "alan@alanpearce.co.uk"))))
+;; #+END_SRC
+
 ;; *** BBDB
 
 ;; As I'm using Emacs for email, it makes sense to have contact