From: kaoru <kaoru>
Date: Sun, 31 Dec 2000 12:37:59 +0000 (+0000)
Subject: Revert x-face-mule setting.
X-Git-Tag: wl-2_4_1pre~19
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3db594868cb43b3c7260cd8e3cbdd0f7f8ad3be6;p=elisp%2Fwanderlust.git

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
--- 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
--- 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以後
-	 (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)
 	 )))