[mew-dist 25277] Re: 未読メッセージの色

[Kazu Yamamoto ( 山本和彦 )]

> やっぱりoマークしかつかないです．

えーと、ロジックが間違っているようです。以下で直りますが、このロジック
が正しいのかは検証の余地があります。

とりあえず使ってみて下さい。

--かず

Index: mew-scan.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-scan.el,v
retrieving revision 1.213
diff -c -r1.213 mew-scan.el
*** mew-scan.el	8 Sep 2004 05:28:09 -0000	1.213
--- mew-scan.el	10 Sep 2004 04:44:29 -0000
***************
*** 379,392 ****
  	   (mew-summary-refile-log folder mark-or-dst)
  	   (mew-summary-refile-override-body mark-or-dst)
  	   (mew-mark-put mew-mark-refile))
  	  (mark
  	   (mew-summary-mark-as mark))
  	  ((and mew-use-highlight-mark ;; mew-summary-form-mark
  		(setq mark (mew-summary-get-mark)) ;; duplicated, etc
  		(setq face (mew-highlight-mark-get-face mark)))
! 	   (put-text-property beg med 'face face))
! 	  ((mew-characterp mark-or-dst) ;; mew-inbox-action-alist
! 	   (mew-mark-put mark-or-dst)))
  	 (if mew-use-highlight-mouse-line
  	     (put-text-property
  	      beg med 'mouse-face mew-highlight-mouse-line-face))
--- 379,392 ----
  	   (mew-summary-refile-log folder mark-or-dst)
  	   (mew-summary-refile-override-body mark-or-dst)
  	   (mew-mark-put mew-mark-refile))
+ 	  ((mew-characterp mark-or-dst) ;; mew-inbox-action-alist
+ 	   (mew-mark-put mark-or-dst))
  	  (mark
  	   (mew-summary-mark-as mark))
  	  ((and mew-use-highlight-mark ;; mew-summary-form-mark
  		(setq mark (mew-summary-get-mark)) ;; duplicated, etc
  		(setq face (mew-highlight-mark-get-face mark)))
! 	   (put-text-property beg med 'face face)))
  	 (if mew-use-highlight-mouse-line
  	     (put-text-property
  	      beg med 'mouse-face mew-highlight-mouse-line-face))