From: teranisi <teranisi>
Date: Wed, 11 Oct 2000 07:33:52 +0000 (+0000)
Subject: * wl-highlight.el (wl-highlight-folder-group-line): Remove previous face.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1c4a960444178308418fe99761915c59103af8ff;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 8a8ed43..ff3ed9d 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-11  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-highlight.el (wl-highlight-folder-group-line): Remove previous
+	face.
+
 2000-10-11  OKAZAKI Tetsurou  <okazaki@be.to>
 
 	* wl-util.el (toplevel): Use `wl-on-xemacs' instead of
diff --git a/wl/wl-highlight.el b/wl/wl-highlight.el
index 6287582..003fdbe 100644
--- a/wl/wl-highlight.el
+++ b/wl/wl-highlight.el
@@ -785,6 +785,8 @@
 		  (put-text-property bol (match-beginning 0) 'face text-face)
 		  (put-text-property (match-beginning 0) (match-end 0)
 				     'face face))
+	      ;; Remove previous face.
+	      (put-text-property bol (match-end 0) 'face nil)
 	      (put-text-property bol (match-end 0) 'face face)))
 	(put-text-property bol eol 'face text-face)))))