From: teranisi <teranisi>
Date: Thu, 12 Oct 2000 09:22:24 +0000 (+0000)
Subject: * wl-xmas.el (wl-highlight-folder-current-line): Remove previous face.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1f6af153e6be09ab20e5de686fce3207aac8d042;p=elisp%2Fwanderlust.git

* wl-xmas.el (wl-highlight-folder-current-line): Remove previous face.

* wl-mule.el (wl-highlight-folder-current-line): Ditto.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index ff3ed9d..b0f9945 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2000-10-12  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-xmas.el (wl-highlight-folder-current-line): Remove previous face.
+
+	* wl-mule.el (wl-highlight-folder-current-line): Ditto.
+
 2000-10-11  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-highlight.el (wl-highlight-folder-group-line): Remove previous
diff --git a/wl/wl-mule.el b/wl/wl-mule.el
index c8d1475..3d0e40a 100644
--- a/wl/wl-mule.el
+++ b/wl/wl-mule.el
@@ -87,6 +87,8 @@ Special commands:
 		(progn
 		  (put-text-property start (match-beginning 0) 'face text-face)
 		  (put-text-property (match-beginning 0) (point) 'face face))
+	      ;; Remove previous face.
+	      (put-text-property start (point) 'face nil)
 	      (put-text-property start (point) 'face face))
 	    (goto-char start))
 	(put-text-property start end 'face text-face)))
diff --git a/wl/wl-xmas.el b/wl/wl-xmas.el
index af2779d..51d037d 100644
--- a/wl/wl-xmas.el
+++ b/wl/wl-xmas.el
@@ -316,6 +316,8 @@
 			  (put-text-property (match-beginning 0)
 					     (match-end 0)
 					     'face face))
+		      ;; Remove previous face.
+		      (put-text-property start (match-end 0) 'face nil)
 		      (put-text-property start (match-end 0) 'face face)))
 		(put-text-property start end 'face text-face))))))))))