[mew-dist 28373] mew-highlight-body-regex-cite for AA

[KOIE Hidetaka ( 鯉江英隆 )]

仕事の関係上、アスキーアートを多用するのですが、
これが引用と誤認されて色が着くことがしばしばです。
たとえばこんな感じです:
━━━━━━━━━━━━━━ここから━━━━━━━━━━━━━━
> これでどうでしょうか?
>        +---------+    +---------+
>        | session |--->| host    |
>        +---------+    +---------+
やっぱりこっちでおねがいします:
        +---------+    +---------+   +---------+
        | session |--->| host    |-->| user    |
        +---------+    +---------+   +---------+
━━━━━━━━━━━━━━ここまで━━━━━━━━━━━━━━

正規表現で空白にマッチする部分に長さ制限(7)を
入れるといいとおもったのですが、どうでしょうか?
ちなみに空白が高々7つ連続で引用という判断は
絵を入れるときにインデント8にしているからです...

手元に残っているメイルを調べてみたところ
>と>の間に空白が8つ以上あったのは
・send-prの引用
・XMLの引用
・C++の引用でoperator >>
だけで、引用の引用はありませんでした。
ほかの文字だと、表がとしての|が引用されている場合がほとんどのようでした。

Index: mew-vars2.el
===================================================================
RCS file: /cvsmew/mew/mew-vars2.el,v
retrieving revision 1.176
diff -u -p -r1.176 mew-vars2.el
--- mew-vars2.el	7 Apr 2008 08:31:40 -0000	1.176
+++ mew-vars2.el	30 Apr 2008 05:49:16 -0000
@@ -604,7 +604,7 @@ present, mew-face-header-marginal is use
 (defvar mew-highlight-body-regex-comment "^#+.*")
 
 (defvar mew-highlight-body-regex-cite
-  "^\\(\\([ \t]*\\([>:|]\\|\\w+\\(['._-]+\\w+\\)*>+\\)\\)+\\).*")
+  "^\\(\\([ \t]\\{,7\\}\\([>:|]\\|\\w+\\(['._-]+\\w+\\)*>+\\)\\)+\\).*")
 
 (defcustom mew-highlight-body-prefix-width 20
   "*Maximum string width assume prefix for fancy highlight a body."
Index: mew-lang-jp.el
===================================================================
RCS file: /cvsmew/mew/mew-lang-jp.el,v
retrieving revision 1.18
diff -u -p -r1.18 mew-lang-jp.el
--- mew-lang-jp.el	18 Mar 2008 03:04:57 -0000	1.18
+++ mew-lang-jp.el	30 Apr 2008 05:49:16 -0000
@@ -165,7 +165,7 @@
 (defvar mew-thread-indent-strings ["┣" "┗" "┃" "　"])
 
 (defvar mew-highlight-body-regex-cite
-  "^\\(\\([ \t]*\\([>:|〉＞》≫：｜]\\|\\w+\\(['._-]+\\w+\\)*>+\\)\\)+\\).*")
+  "^\\(\\([ \t]\\{,7\\}\\([>:|〉＞》≫：｜]\\|\\w+\\(['._-]+\\w+\\)*>+\\)\\)+\\).*")
 
 (provide 'mew-lang-jp)
 
--
KOIE Hidetaka <hide at example.com>