Add mu4e configuration

1 files changed, 46 insertions, 1 deletions

diff --git a/emacs/init.el b/emacs/init.el
index f2b2485..b458dca 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -331,8 +331,53 @@
   ;; ((rmail-show-message . visual-line-fill-column-mode))
   )
 
-;;; Sending mail
+(use-package mu4e
+  :custom
+  (mu4e-maildir "~/Library/Fastmail")
+  (mu4e-get-mail-command "mbsync -a -c ~/.config/mbsyncrc")
+  (mu4e-change-filenames-when-moving t)
+  (mu4e-search-skip-duplicates t)
+  (mu4e-view-show-images t)
+  (mu4e-view-show-addresses t)
+  (mu4e-compose-format-flowed nil)
+  (mu4e-refile-folder "/Archive")
+  (mu4e-sent-folder   "/Sent")
+  (mu4e-drafts-folder "/Drafts")
+  (mu4e-trash-folder  "/Trash")
+  (mu4e-use-fancy-chars nil)
+  (mu4e-bookmarks '((:name "Unread messages"
+                     :query "flag:unread AND NOT flag:trashed AND NOT maildir:/Trash AND NOT maildir:/Spam"
+                     :key ?u)
+                    (:name "Today's messages"
+                     :query "date:today..now"
+                     :hide-unread t
+                     :key ?t)
+                    (:name "Last 7 days"
+                     :query "date:7d..now"
+                     :hide-unread t
+                     :key ?w)))
+  (mu4e-maildir-shortcuts '((:name "Inbox"
+                             :maildir "/INBOX"
+                             :key ?i)
+                            (:name "Sent"
+                             :maildir "/Sent"
+                             :key ?s)
+                            (:name "Trash"
+                             :maildir "/Trash"
+                             :key ?d)
+                            (:name "Spam"
+                             :maildir "/Spam"
+                             :key ?S)))
+  (mu4e-confirm-quit nil)
+  (read-mail-command 'mu4e)
+  :config
+  (fset 'noa/mu4e-trash-message "md")
+  (define-key mu4e-headers-mode-map (kbd "d") 'noa/mu4e-trash-message)
+  (define-key mu4e-view-mode-map (kbd "d") 'noa/mu4e-trash-message)
+  )
 
+
+;;; Sending mail
 (use-package message
   :defer t
   :init