[mew-dist 19483] Re: HTML/XML

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 19482] HTML/XML
Message-ID: <20011024.195913.50031776.kazu at example.com>
Date: Wed, 24 Oct 2001 19:59:13 +0900 (JST)

いけない、xml-detect-cs の re-search-forward()が、end じゃなくて
nil になっていました。(_ _)

kazu> mew-text/html-detect-cs と mew-text/xml-detect-cs ですが、meda 情報を
kazu> 探すには先頭部分だけ re-search-forward すればいいので、上限を設けた方
kazu> がいいと思います。1K byte もあれば、十分じゃないでしょうか？

ぼくもそう思います。

-- 
白井秀行 (mailto:shirai at example.com)

--- mew-mime.el.~1.39.~	Wed Oct 24 19:46:22 2001
+++ mew-mime.el	Wed Oct 24 20:05:31 2001
@@ -269,12 +269,12 @@
 	     (concat "<meta[ \t]+http-equiv=\"?content-type\"?[ \t]"
 		     "+content=\"[^;]+"
 		     ";[ \t]*charset=\"?\\([^\"]+\\)\"?[ \t]*/?>")
-	     end t)
+	     (min end (+ begin 1024)) t)
 	    (re-search-forward
 	     (concat "<meta[ \t]+content=\"[^;]+"
 		     ";[ \t]*charset=\"?\\([^\"]+\\)\"?"
 		     "[ \t]+http-equiv=\"?content-type\"?[ \t]*/?>")
-	     end t))
+	     (min end (+ begin 1024)) t))
 	(mew-charset-to-cs (mew-match 1)))
        (cs cs)
        (t  ;; charset eq "us-ascii", cs is nil.
@@ -366,7 +366,7 @@
        ((re-search-forward
 	 (concat "<\\?xml +version=['\"][0-9.]+['\"] +"
 		 "encoding=['\"]\\([^'\"]+\\)['\"] *\\?>")
-	 nil t)
+	 (min end (+ begin 1024)) t)
 	(mew-charset-to-cs (mew-match 1)))
        (cs cs)
        (t  ;; charset eq "us-ascii", cs is nil.