[mew-dist 23598] Re: displaying body

[Tatsuya Kinoshita]

On March 29, 2003, [mew-dist 23488],
Tatsuya Kinoshita <tats at example.com> wrote:

> .mew.elで実験しづらいので、とりあえず変数にしました。

> +(defvar mew-regex-ignore-scan-body-list

"In news ...", "In mail ..."等を引用ラベルと見なせるよう正規表現
を少し変更しました。あと、関数mew-scan-bodyでcase-fold-searchをt
にしておきました。

-- tats

 This patch is written by Tatsuya Kinoshita.  Copyright is disclaimed.

--- mew-scan.el	2003/04/14 22:54:10	1.178
+++ mew-scan.el	2003/04/18 12:27:30
@@ -527,7 +527,7 @@
     "^.*\\(:\\|;\\|/\\)[ \t]*$"
     "^.*\\(wrote\\|writes?\\|said\\|says?\\)[^.!\n]?[ \t]*$"
     "^[ \t]*\\(On\\|At\\) .*[^.! \t\n][ \t]*$"
-    "^[ \t]*In \\(message\\|article\\|<\\|\"\\)"))
+    "^[ \t]*In \\(message\\|article\\|mail\\|news\\|<\\|\"\\|\\[\\|(\\)"))
 
 (defun mew-scan-body (mew-vec &optional draftp)
   (forward-line)
@@ -536,6 +536,7 @@
 	 (ctr (MEW-CT))
 	 (cte (MEW-CTE))
 	 (body "")
+	 (case-fold-search t)
 	 textp ctl ct charset cs beg skip boundary found regex)
     (catch 'break
       (cond