[mew-dist 23353] Re: Mew 4

[ogawa at example.com]

小川と申します。

On March 15, 2003, [mew-dist 23293],
Masahiro NANASHIMA (七島 雅裕) <nana at example.com> wrote:

> とりあえず、mew-fancy-summary を動くようにしてみました。

スレッド表示のときに以下のような挙動になるのを直してみました。

* インデント量に応じて Subject: 用の face が本文にも及ぶ。

  12/03 To:す          　┗その手の店にはなかったなり|ただいま。小川です。駄
                           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ここまで塗られる。

* インデントが深く ML タグ用の文字列が完了しない場合、ML タグ用でなく 
  Subjetct: 用の face がかかる。

  03/19 To:junktest at example.com 　┃　　　　　　┣[junktest:08|小川です。 むー、おうち
                                         ^^^^^^^^^^^^^ こーゆー場合。
--
小川敬則 <ogawa at example.com>

Index: mew-fancy-summary.el
===================================================================
RCS file: /cvsmew/mew/contrib/mew-fancy-summary.el,v
retrieving revision 1.8
diff -u -r1.8 mew-fancy-summary.el
--- mew-fancy-summary.el	2003/03/20 03:05:06	1.8
+++ mew-fancy-summary.el	2003/03/20 11:14:56
@@ -142,7 +142,7 @@
   :group 'mew-highlight
   :type 'boolean)
 
-(defcustom mew-fancy-summary-ml-regex "[\[(][^])\n\r]*[\])]"
+(defcustom mew-fancy-summary-ml-regex "[\[(][^])|\n\r]*[\])|]"
   "*Regex string as a prefix of the subject of mails posted to ML."
   :group 'mew-highlight
   :type 'regexp)
@@ -518,7 +518,15 @@
      ((eq elem 'subj)
       (list (cons mew-fancy-summary-ml-regex
 		  (mew-fancy-summary-get-face 'ml t))
-	    (cons range face)))
+ 	    (cons
+	     (if (> mew-fancy-summary-thread-column 0)
+		 (save-excursion
+ 		   (move-to-column mew-fancy-summary-thread-column)
+		   (- range
+		      (* (mew-thread-get-property (point))
+			 mew-thread-indent-width)))
+	       range)
+	     face)))
      (t
       (list (cons range face))))))