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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 8a8ed43..ff3ed9d 100644 (file)
--- 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 (file)
--- 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)))))