[Mew-dist 16609] Re: fancy-highlight-body

[KAMEI Ken-ichi]

亀井です。

>>> <20010225.100807.01370766.mule at example.com> から引用します．
kamei> 結局、よく分からなかったのですが、
kamei> "ForestGreen" "MediumBlue" "Magenta" "DarkOrange2" "purple" と
kamei> face を生成したあと最後に nil が返ってきていました。

わかったかもしれません。

つまり引用文中ではない url はまだ face が設定されていないので
nil と返ってきているのだと思います。

先の例では

>>>>>> 1番目の引用 ForestGreen http://www.mew.org/ ForestGreen-bold
>>>>> 2番目の引用 MediumBlue  http://www.mew.org/ MediumBlue-bold
>>>> 3番目の引用 Magenta     http://www.mew.org/ Magenta-bold
>>> 4番目の引用 DarkOrange2 http://www.mew.org/ DarkOrange2-bold
>> 5番目の引用 purple      http://www.mew.org/ purple-bold
> 6番目の引用 ForestGreen http://www.mew.org/ ForestGreen-bold
引用なし black http://www.mew.org/ black-bold

の最後の行は fancy で色がつけられていないので

kamei> face を生成したあと最後に nil が返ってきていました。

の nil は引用無しの行の url の face を得ようとしたためのようです。

というわけで

素の mew-1.95b109 に対する patch は

--- mew-highlight.el.orig	Sun Feb 25 17:16:46 2001
+++ mew-highlight.el	Sun Feb 25 21:32:33 2001
@@ -177,6 +177,7 @@
 		      (face-name (concat "mew-fancy-url-" (symbol-name orgface)))
 		      (urlface (intern-soft face-name)))
 		 (unless urlface 
+		   (unless orgface (setq orgface mew-highlight-url-face))
 		   (setq urlface (intern face-name))
 		   (copy-face mew-highlight-url-face urlface)
 		   (set-face-foreground urlface (face-foreground orgface)))


となりました。

正解でしょうか？

-- kamei