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

[Hideyuki SHIRAI ( 白井秀行 )]

From: KAMEI Ken-ichi <mule at example.com> さん曰く
Subject: [Mew-dist 16597] Re: fancy-highlight-body
Message-ID: <20010224.162256.01363960.mule at example.com>
Date: Sat, 24 Feb 2001 16:23:02 +0900

kamei> >>> <20010224.110306.65669608.shirai at example.com> から引用します．
kamei> 白井> fancy-highlight-body (旧 mew-cite-color) を作りました。
kamei> 
kamei> おぉ！ いい感じに動いているようです。

どうも。

kamei> 個人的には mew-fancy-highlight-body-prefix-width の存在がうれし
kamei> かったりします。
kamei> # 私には 10 で十分かな。

ぼくも、こいつがないといやなんです。だから、速度を考えて
cite-color から機能を削りまくったけどこれだけは残しました。

kamei> 初期値は
kamei> cite＞ 引用符が全角
kamei> に色が付かないのですね。

せっかくだから mew-lang-jp.el に書いちゃおうかなという気もしたの
ですが、後から考えようかな、と思ってすっかり忘れていました。^^;

kamei> 私は
kamei> 
kamei> (setq mew-use-fancy-highlight-body t)
kamei> (setq mew-fancy-highlight-body-prefix-width 10)
kamei> (setq mew-fancy-highlight-body-keywords
kamei>       '(("^\\(\\([ \t]*\\w*[A-Za-z0-9'-]*[》≫＞>|]+\\)+\\).*"
kamei> 	 mew-fancy-highlight-body) ;; Don't modify
kamei> 	("^[＃#]+.*"
kamei> 	 mew-highlight-body-face-comment))
kamei>       )

 (setq mew-fancy-highlight-body-keywords
	    '(("^\\(\\([ \t]*\\w*[A-Za-z0-9'_-]*[>|》≫＞]+\\)+\\).*"
	       mew-fancy-highlight-body) ;; Don't modify
	      ("^[;#＃%]+.*"
	       mew-highlight-body-face-comment)))))))

です。emacs 系の人だと

;; コメント

って人が多いものでして。

以下、本題。

kamei> とかいっていたら、
kamei> 
kamei> >>> <20010224.161349.74752130.yossi at example.com> から引用します．
kamei> > fancy-highlight-body (旧 mew-cite-color) を作りました。
kamei> > 

yossi> このパッチを使用するとMultiPart のメールの表示が出来なくなりました。

kamei> とのメールが。私のところでは表示できています。うーむ。

僕も出来ています。

http://www.mew.org/FAQ/FAQ04/index-j.html#4.0

の通りに BackTrace をとっていただけませんか？

また、b108 付属の mew-highlight.el の mew-highlight-body-region
を indent してから diff をとっているいるので、patch でそのあたり
が reject しているということはありませんか？


ちなみに、一カ所エンバグしていました。(_ _)

--- mew-highlight.el.~1.34.~	Sat Feb 24 14:04:58 2001
+++ mew-highlight.el	Sat Feb 24 16:33:57 2001
@@ -148,7 +148,7 @@
 		       (setq face (nth fancy-num mew-fancy-highlight-body-faces))
 		       (setq fancy-alst (cons (cons fancy-prefix face) fancy-alst))
 		       (setq fancy-num (1+ fancy-num))
-		       (when (< fancy-length fancy-num)
+		       (when (= fancy-length fancy-num)
 			 (setq fancy-num 0))
 		       (put-text-property beg end 'face face))))))
 	     ;; normal highlight

## 昨日の夜、直した場所なのにぃ。。。

-- 
白井秀行 (mailto:shirai at example.com)