Skip to content

Instantly share code, notes, and snippets.

@enko
Created May 5, 2019 17:32
Show Gist options
  • Save enko/fd7a5b949e3cb262e70b59db01733e0f to your computer and use it in GitHub Desktop.
Save enko/fd7a5b949e3cb262e70b59db01733e0f to your computer and use it in GitHub Desktop.
My wanderlust config with doom
(autoload 'wl "wl" "Wanderlust" t)
(autoload 'wl-other-frame "wl" "Wanderlust on new frame." t)
(autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t)
(autoload 'wl-user-agent-compose "wl-draft" nil t)
(if (boundp 'mail-user-agent)
(setq mail-user-agent 'wl-user-agent))
(if (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 wl-init-file "~/.doom.d/wl.el")
(package! wanderlust)
(setq wl-demo nil)
(setq wl-interactive-exit t)
(setq wl-interactive-send t)
(setq wl-stay-folder-window t)
(setq pgg-scheme 'gpg)
(setq wl-folders-file "~/.doom/folders.wl")
(setq wl-x-face-file "~/gtd/xface")
(setq wl-draft-folder "%INBOX.drafts")
(setq wl-fcc "%INBOX.Sent")
(setq mime-edit-split-message nil)
(setq wl-message-truncate-lines t)
(setq wl-summary-width 120)
(setq wl-from "Tim Schumacher <tim@datenknoten.me>")
(setq wl-organization "Secret Conspiracy")
(setq wl-local-domain "datenknoten.me")
(setq wl-message-ignored-field-list
'(
".*Received:"
".*Path:"
".*Id:"
"^References:"
"^Replied:"
"^Errors-To:"
"^Lines:"
"^Sender:"
".*Host:"
"^Xref:"
"^Content-Type:"
"^Precedence:"
"^Status:"
"^X.*:"
"^MIME.*:"
"^In-Reply-To:"
"^Content-Transfer-Encoding:"
"^List-.*:"
)
)
(setq wl-message-visible-field-list '("^Message-Id:" "^User-Agent:" "^X-Mailer:" "^X-Face:"))
(setq elmo-imap4-default-server "mx.datenknoten.me")
(setq elmo-imap4-default-port 993)
(setq elmo-imap4-default-authenticate-type 'clear) ; CRAM-MD5
(setq elmo-imap4-default-user "")
(setq elmo-imap4-default-stream-type 'ssl)
(setq elmo-imap4-set-seen-flag-explicitly t)
(setq wl-smtp-connection-type 'starttls)
(setq wl-smtp-posting-port 587)
(setq wl-smtp-authenticate-type "plain")
(setq wl-smtp-posting-user "")
(setq wl-smtp-posting-server "mx.datenknoten.me")
(setq wl-local-domain "datenknoten.me")
(setq wl-message-id-domain "datenknoten.me")
(setq mime-edit-mode-hook
'(lambda ()
(auto-fill-mode 1)
))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment