Set up Wanderlust

configuration.org

@@ -2068,6 +2068,33 @@ 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)
+  :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))
+  (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))
+  :bind
+  (:map gpolonkai/pers-map
+   ("m" . "wl")))
+#+END_SRC
+
 * Make programming a bit easier
 
 ** Electric case
@@ -2947,7 +2974,7 @@ directory.  It is available from [[http://plantuml.com/download][here]].
  ("<C-return>" . isearch-exit-other-end)
  ("<S-return>" . isearch-exit-mark-match)
  :map gpolonkai/pers-map
- ("m" . hidden-mode-line-mode)
+ ("h" . hidden-mode-line-mode)
  ("C-i e" . "gergely@polonkai.eu")
  ("C-i w" . "http://gergely.polonkai.eu/")
  ("C-p" . package-list-packages)

customizations.el

@@ -23,6 +23,7 @@
  '(inhibit-startup-echo-area-message (user-login-name))
  '(inhibit-startup-screen t)
  '(initial-scratch-message nil)
+ '(message-sendmail-envelope-from (quote header))
  '(minibuffer-prompt-properties
    (quote
     (read-only t cursor-intangible t face minibuffer-prompt)))
@@ -176,6 +177,7 @@
      vala-mode
      vala-snippets
      wakatime-mode
+     wanderlust
      web-mode
      with-editor
      xlicense
@@ -187,11 +189,13 @@
  '(safe-local-variable-values (quote ((bug-reference-bug-regexp . "#\\(?2:[0-9]+\\)"))))
  '(scroll-margin 2)
  '(send-mail-function (quote sendmail-send-it))
+ '(sendmail-program "/usr/bin/msmtp")
  '(sgml-basic-offset 4)
  '(show-trailing-whitespace t)
  '(suggest-key-bindings nil)
  '(tab-width 4)
- '(user-mail-address "gergely@polonkai.eu"))
+ '(user-mail-address "gergely@polonkai.eu")
+ '(wl-draft-send-mail-function (quote wl-draft-send-mail-with-sendmail)))
 (custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.

wl-folders

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