[Mew-dist 17752] Re: mew-highlight-summary

[Shun-ichi TAHARA ( 田原 俊一 )]

From: Shun-ichi TAHARA (田原 俊一) <jado at example.com>
Message-Id: <20010612.101258.730554324.z1980163 at example.com>

> 3番目も解消。
> あと、マーク関係でバグが混入してましたので修正しています。

やっちゃった。添付する前に出してしまいました。
--
-------------- next part --------------
diff -rc mew.hs.orig/mew-highlight.el mew.hs/mew-highlight.el
*** mew.hs.orig/mew-highlight.el	Tue Jun 12 01:50:25 2001
--- mew.hs/mew-highlight.el	Tue Jun 12 04:21:41 2001
***************
*** 47,63 ****
  (defun mew-highlight-mark-line (mark)
    (when mew-use-highlight-mark
      (let ((face (mew-highlight-mark-get-face mark)))
!       (when face
! 	(put-text-property
! 	 (save-excursion (beginning-of-line) (point))
! 	 (save-excursion (end-of-line) (point))
! 	 'face face)))))
  
  (defun mew-highlight-unmark-line ()
!   (remove-text-properties 
     (save-excursion (beginning-of-line) (point))
!    (save-excursion (end-of-line) (point))
!    '(face nil)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
--- 47,63 ----
  (defun mew-highlight-mark-line (mark)
    (when mew-use-highlight-mark
      (let ((face (mew-highlight-mark-get-face mark)))
!       (if face
! 	  (overlay-put
! 	   (mew-overlay-make
! 	    (save-excursion (beginning-of-line) (point))
! 	    (save-excursion (end-of-line) (point)))
! 	   'face face)))))
  
  (defun mew-highlight-unmark-line ()
!   (mew-overlay-delete-region
     (save-excursion (beginning-of-line) (point))
!    (save-excursion (end-of-line) (point))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
diff -rc mew.hs.orig/mew-syntax.el mew.hs/mew-syntax.el
*** mew.hs.orig/mew-syntax.el	Tue Jun 12 00:46:06 2001
--- mew.hs/mew-syntax.el	Tue Jun 12 10:00:07 2001
***************
*** 495,500 ****
--- 495,503 ----
  (defun mew-decode-syntax-insert (line)
    (let ((beg (point)))
      (insert line)
+     (when mew-use-highlight-summary
+       (put-text-property
+        beg (1- (point)) 'face (mew-scan-get-face 'attach t)))
      (when (and mew-use-highlight-mouse-line window-system)
        (put-text-property
         beg (1- (point)) 'mouse-face mew-highlight-mouse-line-face))))
diff -rc mew.hs.orig/mew-theme.el mew.hs/mew-theme.el
*** mew.hs.orig/mew-theme.el	Tue Jun 12 00:47:28 2001
--- mew.hs/mew-theme.el	Tue Jun 12 04:26:56 2001
***************
*** 153,159 ****
  ;;; Highlight mark
  ;;;
  
! (if mew-use-highlight-header
      (custom-set-faces
       '(mew-face-mark-review
         ((((class color) (type tty)) (:background "cyan" :inverse-video t))
--- 153,159 ----
  ;;; Highlight mark
  ;;;
  
! (if mew-use-highlight-summary
      (custom-set-faces
       '(mew-face-mark-review
         ((((class color) (type tty)) (:background "cyan" :inverse-video t))