[Date Prev][Date Next][Thread Prev][][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)