Set up Wanderlust

This commit is contained in:
Gergely Polonkai 2018-09-19 14:28:30 +02:00
parent e59566d7ef
commit 164dd2edae
3 changed files with 35 additions and 2 deletions

View File

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

View File

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

2
wl-folders Normal file
View File

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