Move from Wanderlust to mu4e

That was a short love story of ours…

configuration.org

@@ -2107,32 +2107,6 @@ This will be replaced with something self-hosted, eventually.
    ("C-f" . keyfreq-show)))
 #+END_SRC
 
-** Mailing with Wanderlust
-
-#+BEGIN_SRC emacs-lisp
-(use-package wanderlust
-  :no-require t
-  :init
-  (require 'wl)
-  (setq elmo-maildir-folder-path (expand-file-name "mail" (or (getenv "XDG_CACHE_HOME") "~/.cache"))
-        wl-folders-file (expand-file-name
-                         (convert-standard-filename "wl-folders")
-                         user-emacs-directory))
-  :config
-  (when (boundp 'mail-user-agent)
-    (setq mail-user-agent 'wl-user-agent))
-  (when (fboundp 'define-mail-user-agent)
-    (define-mail-user-agent
-      'wl-user-agent
-      'wl-user-agent-compose
-      'wl-draft-send
-      'wl-draft-kill
-      'mail-send-hook))
-  :bind
-  (:map gpolonkai/pers-map
-   ("m" . wl)))
-#+END_SRC
-
 ** EditorConfig
 
 [[http://editorconfig.org/][EditorConfig]] is a nice tool to unify, well, configuration of different editors.
@@ -2192,6 +2166,50 @@ Then configure ~real-auto-save-mode~
   :commands pacfiles)
 #+END_SRC
 
+** Mailing with mu4e
+
+#+BEGIN_SRC emacs-lisp
+(use-package mu4e
+  :ensure nil
+  :config
+  (setq mu4e-contexts
+        `( ,(make-mu4e-context
+             :name "Private"
+             :enter-func (lambda () (mu4e-message "Entering Private Context"))
+             :leave-func (lambda () (mu4e-message "Leaving Private Context"))
+             :match-func (lambda (msg)
+                           (when msg
+                             (mu4e-message-contact-field-matches msg
+                               :to "gergely@polonkai.eu")))
+             :vars '((user-mail-address . "gergely@polonkai.eu")
+                     (mu4e-maildir . "~/.cache/mail/Polonkai")
+                     (mu4e-sent-folder . "/[Gmail].Sendur p&APM-stur")
+                     (mu4e-drafts-folder . "/[Gmail].Dr&APY-g")
+                     (mu4e-trash-folder . "/[Gmail].Rusl")
+                     (mu4e-refile-folder . "/[Gmail].Dr&APY-g")))
+           ,(make-mu4e-context
+             :name "GT2"
+             :enter-func (lambda () (mu4e-message "Entering GT2 Context"))
+             :leave-func (lambda () (mu4e-message "Leaving GT2 Context"))
+             :match-func (lambda (msg)
+                           (when msg
+                             (or
+                              (mu4e-message-contact-field-matches msg
+                                :to "gergo@gt2.io")
+                              (mu4e-message-contact-field-matches msg
+                                                                  :to "gergo@benchmarked.games"))))
+             :vars '((user-mail-address . "gergo@benchmarked.games")
+                     (mu4e-maildir . "~/.cache/mail/GT2")
+                     (mu4e-sent-folder . "/[Gmail].Sent Mail")
+                     (mu4e-drafts-folder . "/[Gmail].Drafts")
+                     (mu4e-trash-folder . "/[Gmail].Trash")
+                     (mu4e-refile-folder . "/[Gmail].Drafts"))))
+        mu4e-context-policy 'pick-first)
+  :bind
+  (:map gpolonkai/pers-map
+   ("m" . mu4e)))
+#+END_SRC
+
 * Make programming a bit easier
 
 ** Electric case

customizations.el

@@ -133,6 +133,7 @@
      mediawiki
      meson-mode
      minions
+     mu4e
      multiple-cursors
      neotree
      ng2-mode
@@ -179,7 +180,6 @@
      vala-mode
      vala-snippets
      wakatime-mode
-     wanderlust
      web-mode
      with-editor
      xlicense

wl-folders

@@ -1,2 +0,0 @@
-.Polonkai/INBOX  "Personal Inbox"
-.GT2/INBOX       "GT2 Inbox"