Revert x-face-mule setting.

Add &optional to lambda function. (for forward compatibility)

diff --git a/samples/en/dot.wl b/samples/en/dot.wl
index 69944ff..f06b1fc 100644 (file)
--- a/samples/en/dot.wl
+++ b/samples/en/dot.wl
@@ -340,7 +340,10 @@
               'x-face-xmas-wl-display-x-face))
        ((module-installed-p 'x-face-mule)      ;; for Mule (GNU Emacs)
         ;; after x-face-mule 0.20
-        (setq wl-highlight-x-face-func 'x-face-decode-message-header)
+        (setq wl-highlight-x-face-func
+              (function
+               (lambda (&optional beg end) ; for compatibility
+                 (x-face-decode-message-header))))
         (setq x-face-mule-highlight-x-face-style 'xmas)
         (require 'x-face-mule)
         )))

diff --git a/samples/ja/dot.wl b/samples/ja/dot.wl
index 707def0..3af0ef2 100644 (file)
--- a/samples/ja/dot.wl
+++ b/samples/ja/dot.wl
@@ -350,7 +350,10 @@
               'x-face-xmas-wl-display-x-face))
        ((module-installed-p 'x-face-mule)      ;; for Mule (GNU Emacs)
         ;; x-face-mule 0.20\e$B0J8e\e(B
-        (setq wl-highlight-x-face-func 'x-face-decode-message-header)
+        (setq wl-highlight-x-face-func
+              (function
+               (lambda (&optional beg end) ; for compatibility
+                 (x-face-decode-message-header))))
         (setq x-face-mule-highlight-x-face-style 'xmas)
         (require 'x-face-mule)
         )))