tweak(wanderlust): add +xface flag

modules/email/wanderlust/README.org

@@ -15,6 +15,9 @@
 - +gmail ::
   Enable gmail-specific configuration for mail ~To~ or ~From~ a gmail address.
 
+- +xface ::
+  Enable support of [X-Face] powered by [compface].
+
 ** Packages
 - [[doom-package:wanderlust]]
 
@@ -52,3 +55,6 @@
 #+begin_quote
  󱌣 This module has no appendix yet. [[doom-contrib-module:][Write one?]]
 #+end_quote
+
+[X-Face]: https://en.wikipedia.org/wiki/X-Face
+[compface]: http://freecode.com/projects/compface/

modules/email/wanderlust/config.el

@@ -82,6 +82,11 @@
 
     (setq wl-message-id-domain wl-local-domain))
 
+  ;; Use x-face only when compface installed
+  (when (modulep! +xface)
+    (autoload 'x-face-decode-message-header "x-face-e21")
+    (setq wl-highlight-x-face-function 'x-face-decode-message-header))
+
   ;; Use alert for alerting
   (when (fboundp 'alert)
     (setq wl-biff-notify-hook '((lambda () (alert "You have new mail!" :title "Wanderlust")))))

modules/email/wanderlust/packages.el

@@ -9,3 +9,9 @@
 (package! semi :recipe (:branch "semi-1_14-wl") :pin "9063a4485b148a767ea924f0e7cc78d3524ba256")
 
 (package! wanderlust :pin "9fd2c65e8d690625f35035a71e73f51f740dbe04")
+
+(when (modulep! +xface)
+  (package! x-face-e21
+    :recipe (:host nil :repo "https://salsa.debian.org/debian/x-face-el.git"
+             :files ("debian/x-face-e21.el"))
+             :pin "871156a776cc1bc9dd035205b6875c55db6ae215"))