Moving to Doom Emacs!

.emacs.d/modules/email/wanderlust/autoload.el

@@ -0,0 +1,4 @@
+;;; email/wanderlust/autoload.el -*- lexical-binding: t; -*-
+
+;;;###autoload
+(defalias '=wanderlust #'wl)

.emacs.d/modules/email/wanderlust/config.el

@@ -0,0 +1,79 @@
+;;; app/wanderlust/config.el -*- lexical-binding: t; -*-
+
+(use-package! wl
+  :defer t
+  :config
+  (setq mail-user-agent 'wl-user-agent
+        pgg-scheme 'gpg
+        mime-edit-split-message nil)
+
+  (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 wl-demo nil
+        wl-stay-folder-window t
+        wl-init-file (expand-file-name "wl.el" doom-private-dir)
+        wl-folders-file (expand-file-name "folders.wl" doom-private-dir))
+
+  (setq wl-message-truncate-lines t
+        wl-summary-width 120
+        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-.*:")
+        wl-message-visible-field-list
+        '("^Message-Id:"
+          "^User-Agent:"
+          "^X-Mailer:"
+          "^X-Face:"))
+
+  (when (featurep! +gmail)
+    (setq elmo-imap4-default-server "imap.gmail.com"
+          elmo-imap4-default-port 993
+          elmo-imap4-default-authenticate-type 'clear ; CRAM-MD5
+          elmo-imap4-default-user user-mail-address
+          elmo-imap4-default-stream-type 'ssl
+          elmo-imap4-set-seen-flag-explicitly t)
+
+    (setq wl-smtp-connection-type 'starttls
+          wl-smtp-posting-port 587
+          wl-smtp-authenticate-type "plain"
+          wl-smtp-posting-user user-mail-address
+          wl-smtp-posting-server "smtp.gmail.com"
+          wl-local-domain "gmail.com")
+
+    (setq wl-default-folder "%inbox"
+          wl-draft-folder "%[Gmail]/Drafts"
+          wl-trash-folder "%[Gmail]/Trash"
+          wl-fcc-force-as-read t
+          wl-default-spec "%"))
+
+  (setq wl-message-id-domain wl-local-domain)
+
+  (when (featurep! :editor evil)
+    ;; Neither wl-folder-mode or wl-summary-mode are correctly defined as major
+    ;; modes, so `evil-set-initial-state' won't work here.
+    (add-hook! '(wl-folder-mode-hook wl-summary-mode-hook)
+               #'evil-emacs-state))
+
+  (add-hook 'mime-edit-mode-hook #'auto-fill-mode))

.emacs.d/modules/email/wanderlust/packages.el

@@ -0,0 +1,10 @@
+;; -*- no-byte-compile: t; -*-
+;;; app/wanderlust/packages.el
+
+;; HACK These are wanderlust's dependencies (wanderlust depends on semi, semi
+;;      depends on flim, flim on apel), but both flim and apel have non-standard
+;;      default branches, which straight cannot detect without our help.
+(package! flim :recipe (:branch "flim-1_14-wl"))
+(package! apel :recipe (:branch "semi-1_14-wl"))
+
+(package! wanderlust)