[Mew-dist 03804] Re: highlight-mark

[Yuji Yamano]

Yoshitomi Kentaro <yositomi at example.com> writes:

> +abc
> +abc/def
> +abc/ghi
> +xyz
> +xyz/xxx
> +xyz/yyy
> 
> のような folder 構成のとき, +abc や +xyz において色がつきません.
> つまり subfolder があると, 親 folder では色がつきません.
> describe-variable で "+abc/" "+xyz/" が 
> mew-highlight-mark-folder-list に含まれていることは確認しています.

mew-highlight.el の中で、mew-member を使ってバッファ名(=フォルダ)
を比較しているところを、mew-folder-member を使うように変更しては
どうでしょうか。

1.93b13 へのパッチです。

-- 
やまの @ 五反田


--- mew-highlight.el.orig	Sun Jan 25 21:05:15 1998
+++ mew-highlight.el	Tue Feb 17 22:33:56 1998
@@ -56,7 +56,7 @@
 (defun mew-highlight-mark-region (beg end)
   (interactive "r")
   (if (and window-system mew-use-highlight-mark
-	   (mew-member (buffer-name) mew-highlight-mark-folder-list))
+	   (mew-folder-member (buffer-name) mew-highlight-mark-folder-list))
       (let ((regex (concat mew-summary-message-regex "\\([^ ]\\)"))
 	    (buffer-read-only nil) face)
       (save-excursion
@@ -72,7 +72,7 @@
 
 (defun mew-highlight-mark-line (mark)
   (if (and window-system mew-use-highlight-mark
-	   (mew-member (buffer-name) mew-highlight-mark-folder-list))
+	   (mew-folder-member (buffer-name) mew-highlight-mark-folder-list))
       (let ((buffer-read-only nil) face)
 	(setq face (cdr (assoc mark mew-highlight-mark-keywords)))
 	(if face
@@ -83,7 +83,7 @@
 
 (defun mew-highlight-unmark-line ()
   (if (and window-system mew-use-highlight-mark
-	   (mew-member (buffer-name) mew-highlight-mark-folder-list))
+	   (mew-folder-member (buffer-name) mew-highlight-mark-folder-list))
       (remove-text-properties 
        (save-excursion (beginning-of-line) (point))
        (save-excursion (end-of-line) (point))