mu4e setup

1 files changed, 93 insertions, 0 deletions

diff --git a/settings/setup-mu4e.el b/settings/setup-mu4e.el
new file mode 100644
index 0000000..95cdb20
--- /dev/null
+++ b/settings/setup-mu4e.el
@@ -0,0 +1,93 @@
+;;; Code:
+(require 'mu4e)
+(require 'org-mime)
+(require 'org-mu4e)
+(require 'smtpmail)
+
+(setq personal-email (password-store-get-field "mbsync/personal-gmail" "username"))
+
+(setq
+
+ ;; get mail options
+ mu4e-get-mail-command "mbsync -a"
+ mu4e-update-interval 120
+ mu4e-headers-auto-update t
+ mu4e-view-prefer-html t
+
+ ;; Don't save message to Sent Messages, Gmail/IMAP takes care of this
+ ;; Override in context switching for other type of mailboxes
+ mu4e-sent-messages-behavior 'delete
+ message-kill-buffer-on-exit t
+
+ shr-color-visible-luminance-min 40
+
+ mu4e-view-show-images t
+ mu4e-use-fancy-chars t
+
+ ;; This fixes the error 'mbsync error: UID is x beyond highest assigned UID x'
+ mu4e-change-filenames-when-moving t
+
+ user-mail-address personal-email
+ user-full-name "Benj Bellon"
+
+ ;; default to first (personal) context
+ mu4e-context-policy 'pick-first
+ mu4e-compose-context-policy 'pick-first
+
+ ;; Customize the flags to something more sensible.
+ mu4e-headers-flagged-mark   '("F" . "⚑")
+ mu4e-headers-unread-mark '("u" . "✉")
+ mu4e-headers-replied-mark   '("R" . "←")
+
+ mu4e-date-format "%y/%m/%d"
+ mu4e-headers-date-format "%Y/%m/%d"
+ mu4e-attachment-dir "~/Downloads/.mail-attachments"
+ mu4e-maildir "~/.mail/"
+
+ ;; sendmail options
+ message-send-mail-function   'smtpmail-send-it
+ smtpmail-debug-info t
+ smtpmail-stream-type 'starttls
+ smtpmail-default-smtp-server "smtp.gmail.com")
+
+;; This will ensure the right 'sent from' address and email sign off etc. be
+;; picked up when replying to emails.
+(setq mu4e-contexts
+      `(
+        ,(make-mu4e-context
+          :name "personal"
+          :enter-func (lambda () (mu4e-message "Entering personal account context"))
+          :leave-func (lambda () (mu4e-message "Leaving personal account context"))
+          ;; We match based on the contact-fields of the message
+          :match-func (lambda (msg)
+                        (when msg
+                          (mu4e-message-contact-field-matches msg :to personal-email)
+                          (mu4e-message-contact-field-matches msg :from personal-email)
+                          (mu4e-message-contact-field-matches msg :cc personal-email)
+                          (mu4e-message-contact-field-matches msg :bcc personal-email)))
+          :vars `((user-mail-address . ,personal-email)
+                  (user-full-name . "Benj Bellon")
+
+                  (mu4e-drafts-folder . "/personal-gmail/[Gmail]/Drafts")
+                  (mu4e-sent-folder . "/personal-gmail/[Gmail]/Sent Mail")
+                  (mu4e-trash-folder . "/personal-gmail/[Gmail]/Trash")
+                  (mu4e-refile-folder . "/personal-gmail/[Gmail]/All Mail")
+
+                  (mu4e-maildir-shortcuts . (("/personal-gmail/INBOX" . ?i)
+                                             ))
+
+
+                  (smtpmail-smtp-user . ,personal-email)
+                  (smtpmail-smtp-server . "smtp.gmail.com")
+                  (smtpmail-smtp-service . 587)))
+        ))
+
+
+(when (fboundp 'imagemagick-register-types)
+  (imagemagick-register-types))
+
+(add-to-list 'mu4e-view-actions '("View In Browser" . mu4e-action-view-in-browser) t)
+
+
+(provide 'setup-mu4e)
+;;; setup-mu4e.el ends here