Starting config for wanderlust

diff --git a/emacs/.emacs b/emacs/.emacs
index 1d258be21a7e9a60593bac23877ec6b259b24f38..d296bbe52c7f2a6dc740b4f85c635dc57697a65a 100644 (file)
--- a/emacs/.emacs
+++ b/emacs/.emacs
@@ -22,7 +22,7 @@
     ("#CC9393" "#DFAF8F" "#F0DFAF" "#7F9F7F" "#BFEBBF" "#93E0E3" "#94BFF3" "#DC8CC3")))
  '(package-selected-packages
    (quote
-    (evil-magit evil-leader evil-org molokai-theme org-evil flycheck-mypy jinja2 jinja2-mode highlight-indent-guides projectile helm-projectile zenburn-theme helm helm-config use-package flycheck company-jedi company org evil)))
+    (wanderlust evil-magit evil-leader evil-org molokai-theme org-evil flycheck-mypy jinja2 jinja2-mode highlight-indent-guides projectile helm-projectile zenburn-theme helm helm-config use-package flycheck company-jedi company org evil)))
  '(pdf-view-midnight-colors (quote ("#DCDCCC" . "#383838")))
  '(vc-annotate-background "#2B2B2B")
  '(vc-annotate-color-map
@@ -116,6 +116,11 @@
 
 
 (add-hook 'after-init-hook 'global-company-mode)
+(use-package wanderlust
+  :ensure t)
+
+
+
 
 (add-hook 'prog-mode-hook 'electric-pair-mode)
 

diff --git a/wanderlust/.folders b/wanderlust/.folders
new file mode 100644 (file)
index 0000000..292edb6
--- /dev/null
+++ b/wanderlust/.folders
@@ -0,0 +1,9 @@
+PERSONAL{
+    %INBOX:max/clear@mail.friedersdorff.com:993!       "INBOX"
+    %slackware:max/clear@mail.friedersdorff.com:993!   "slackware"
+    %todo:max/clear@mail.friedersdorff.com:993!                "todo"
+    %quicknote:max/clear@mail.friedersdorff.com:993!   "quicknote"
+    %Sent:max/clear@mail.friedersdorff.com:993!                "Sent"
+    %Trash:max/clear@mail.friedersdorff.com:993!       "Trash"
+    %Spam:max/clear@mail.friedersdorff.com:993!                "Spam"
+}
\ No newline at end of file

diff --git a/wanderlust/.wl b/wanderlust/.wl
new file mode 100644 (file)
index 0000000..992deb0
--- /dev/null
+++ b/wanderlust/.wl
@@ -0,0 +1,24 @@
+(setq wl-from "Maximilian Friedersdorff <max@friedersdorff.com>")
+
+;; Mail Addresses
+(setq wl-user-mail-address-list (quote ("max@friedersdorff.com")))
+
+;; Match parent folder
+(setq wl-draft-config-alist
+      '(((string-match "friedersdorff.com" wl-draft-parent-folder)
+        (template . "personal"))
+       (reply "\\(To\\|Cc\\|Delivered-To\\): .*friedersdorff.com.*"
+              (template . "personal"))))
+
+;; Templates
+(setq wl-template-alist
+      '(("personal"
+        (wl-from . "Maximilian Friedersdorff <max@friedersdorff.com>")
+        (wl-smtp-posting-user . "max")
+        (wl-smtp-posting-server . "mail.friedersdorff.com")
+        (wl-smtp-authenticate-type . "plain")
+        (wl-smtp-connection-type . 'starttls)
+        (wl-smtp-posting-port . 587)
+        (wl-local-domain . "friedersdorff.com")
+        (wl-message-id-domain . "mail.friedersdorff.com"))
+       ))