[Mew-dist 07335] Re: Changes to Mew offered

[TAKAHASHI Kaoru]

>>>>> In message "[Mew-dist 07327] Changes to Mew offered",
>>> cerda at example.com(Michael Cerda)  writes:

> I have a suggestion for a change to mew. I use the colors in mew to highlight
> my mail. I like the highlights in summary mode but I would like all my folders
> to be highlighted. I don't want to specify each folder name but would rather
> specify a regular expression for the folder name.

On next beta release (maybe),
(setq mew-highlight-mark-folder-list t)
  => highlighting in all folders.
     cf. [Mew-dist 7214], [Mew-dist 7217]

Wait for Mew 1.94b3 release, or apply this patch (in attachments).
(setq mew-highlight-mark-folder-list t) means highlighting in
ALL folders.


> I included the diffs and the complete files in the attachments.

Complete file is too large. Please attachments diffs ONLY.

-- 
TAKAHASHI "beatmaria" Kaoru @ TeXintosh Japan (#3665)
kaoru at example.com, http://triaez.kaisei.org/rc5/
-------------- next part --------------
*** mew-highlight.el.orig	Mon Aug 24 23:45:22 1998
--- mew-highlight.el	Sun Jan 24 12:43:50 1999
***************
*** 75,81 ****
  (defun mew-highlight-mark-region (beg end)
    (interactive "r")
    (if (and (or window-system mew-xemacs-p) mew-use-highlight-mark
! 	   (mew-folder-member (buffer-name) mew-highlight-mark-folder-list))
        (let ((regex (concat mew-summary-message-regex "\\([^ ]\\)"))
  	    (buffer-read-only nil) face)
        (save-excursion
--- 75,82 ----
  (defun mew-highlight-mark-region (beg end)
    (interactive "r")
    (if (and (or window-system mew-xemacs-p) mew-use-highlight-mark
!            (or (eq mew-highlight-mark-folder-list t)
!                (mew-folder-member (buffer-name) mew-highlight-mark-folder-list)))
        (let ((regex (concat mew-summary-message-regex "\\([^ ]\\)"))
  	    (buffer-read-only nil) face)
        (save-excursion
***************
*** 91,97 ****
  
  (defun mew-highlight-mark-line (mark)
    (if (and (or window-system mew-xemacs-p) mew-use-highlight-mark
! 	   (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
--- 92,99 ----
  
  (defun mew-highlight-mark-line (mark)
    (if (and (or window-system mew-xemacs-p) mew-use-highlight-mark
!            (or (eq mew-highlight-mark-folder-list t)
!                (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
***************
*** 102,108 ****
  
  (defun mew-highlight-unmark-line ()
    (if (and (or window-system mew-xemacs-p) mew-use-highlight-mark
! 	   (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))
--- 104,111 ----
  
  (defun mew-highlight-unmark-line ()
    (if (and (or window-system mew-xemacs-p) mew-use-highlight-mark
!            (or (eq mew-highlight-mark-folder-list t)
!                (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))

Diff finished at Sun Feb 07 14:22:50