[Mew-dist 03940] highlight-summary again

Yoshitomi Kentaro yositomi at example.com
1998年 2月 24日 (火) 22:12:43 JST


やまのさんによる patch で, ML 03804 において
highlight-summary が, subfolder が存在する folder に対して
効かない点が fix 出来たのですが,
b19 ではもはや patch が fail します.
この patch は採用されないのでしょうか?
出来れば, 採用して欲しいと思います.
お願いします.

-- 吉冨

手動であてて diff 取り直したのを 添付します.


--- mew-highlight.el~	Tue Feb 24 22:01:32 1998
+++ mew-highlight.el	Tue Feb 24 22:09:24 1998
@@ -56,7 +56,7 @@
 (defun mew-highlight-mark-region (beg end)
   (interactive "r")
   (if (and (or window-system mew-xemacs-p) 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 (or window-system mew-xemacs-p) 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 (or window-system mew-xemacs-p) 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))




Mew-dist メーリングリストの案内