[Mew-dist 16690] Re: mew-highlight-body-face-comment

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [Mew-dist 16687] mew-highlight-body-face-comment
Message-ID: <20010301.110933.68532729.kazu at example.com>
Date: Thu, 1 Mar 2001 11:09:41 +0900

kazu> 白井さんに質問：(また名指し)

ほい。

kazu> mew-fancy-highlight-body-setup() で、
kazu> 	(symbol-name mew-highlight-body-face-comment)
kazu> という部分がありますが、単純に
kazu> 	"mew-highlight-body-face-comment"
kazu> では、ダメでしょうか？

だめです。

kazu> コンパイラーに怒られるっす。

うぅ、ごめんなさい。気付きませんでした。黙らせました。


P.S. お詫びといってはなんですが。。。

(fancy でもなく、summary-hl でもない) highlight 関係で、よろしく
ない点を 2点見つけました。直していませんけど。

1. mew-scan-insert-line() で mark 行に face をつけるとき、
 mew-use-highlight-mark をみていない。

2. Emacs-20/21 で mew-use-highlight-mouse-line を使っているとき
 に、mark をつけたり消したりすると、insert の処理をした部分は
 mouse-face が消えてしまいます。試してみればわかると思いますが、
 mark の前後が別々に mouse-highlight されます。
      
-- 
白井秀行 (mailto:shirai at example.com)

-------------- next part --------------
Index: mew-highlight.el
===================================================================
RCS file: /cvsroot/shirai/mew/mew/mew-highlight.el,v
retrieving revision 1.41
diff -u -c -r1.41 mew-highlight.el
*** mew-highlight.el	2001/02/26 06:31:25	1.41
--- mew-highlight.el	2001/03/01 02:37:22
***************
*** 297,310 ****
  	(setq clst (cdr clst)))
        (setq mew-fancy-highlight-body-faces (nreverse facelst))
        ;; comment url
!       (when (and (boundp 'mew-highlight-body-face-comment)
! 		 (memq 'mew-highlight-body-face-comment (face-list)))
! 	(setq urlface (intern
! 		       (concat (symbol-name mew-highlight-body-face-comment) "-url")))
  	(copy-face mew-highlight-url-face urlface)
! 	(set-face-foreground urlface mew-highlight-body-color-comment)
! 	(setq urlface-alst
! 	      (cons (cons mew-highlight-body-face-comment urlface) urlface-alst)))
        (setq mew-fancy-highlight-body-url-face-alist urlface-alst))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
--- 297,307 ----
  	(setq clst (cdr clst)))
        (setq mew-fancy-highlight-body-faces (nreverse facelst))
        ;; comment url
!       (when (setq face (intern-soft "mew-highlight-body-face-comment"))
! 	(setq urlface (intern "mew-fancy-highlight-body-face-comment-url"))
  	(copy-face mew-highlight-url-face urlface)
! 	(set-face-foreground urlface (face-foreground face))
! 	(setq urlface-alst (cons (cons face urlface) urlface-alst)))
        (setq mew-fancy-highlight-body-url-face-alist urlface-alst))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;