Move from Wanderlust to mu4e

That was a short love story of ours…
This commit is contained in:
Gergely Polonkai 2018-11-19 14:40:55 +01:00
parent e5f65f504c
commit 43345648f8
3 changed files with 45 additions and 29 deletions

View File

@ -2107,32 +2107,6 @@ This will be replaced with something self-hosted, eventually.
("C-f" . keyfreq-show))) ("C-f" . keyfreq-show)))
#+END_SRC #+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 ** EditorConfig
[[http://editorconfig.org/][EditorConfig]] is a nice tool to unify, well, configuration of different editors. [[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) :commands pacfiles)
#+END_SRC #+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 * Make programming a bit easier
** Electric case ** Electric case

View File

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

View File

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