[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: cannot render the site of rpg japan
From: Hideyuki SHIRAI (白井秀行) <shirai@rdmg.mgcs.mei.co.jp> 曰く
Subject: [emacs-w3m:04304] Re: cannot render the site of rpg japan
Message-ID: <20021114.181108.62122922.shirai@rdmg.mgcs.mei.co.jp>
Date: Thu, 14 Nov 2002 18:11:08 +0900 (JST)
今までずっと case-fold-search t で使っていて特に問題無いので、ど
うでもいいとも思うのだけど、(無知な質問)
白井> --- w3m.el.~1.678.~ Wed Nov 13 09:39:50 2002
白井> +++ w3m.el Thu Nov 14 17:58:56 2002
白井> @@ -3268,7 +3268,8 @@
白井> (w3m-process-do
白井> (header (w3m-w3m-get-header url no-cache handler))
白井> (when header
白井> - (let (alist type charset moved)
白井> + (let ((case-fold-search t)
白井> + alist type charset moved)
白井> (setq w3m-current-redirect nil)
白井> (dolist (line (split-string header "[\t ]*\n"))
白井> (when (string-match "^\\([^ \t:]+\\):[ \t]*" line)
ってしちゃうと、
((or (string-match "HTTP/1\\.[0-9] 200 " header)
(setq moved (and (string-match "HTTP/1\\.[0-9] \\(30[1237]\\) "
の部分で "http/1.1 200" とかにマッチするようななるのだけど、これっ
て問題ないのですか?
(let (case-fold-search alist type charset moved)
で nil に拘束して (downcase type) と string-match した方が正解
でしょうか?
--
白井秀行 (mailto:shirai@rdmg.mgcs.mei.co.jp)