[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 メーリングリストの案内