* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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))))))))))