wrong-type-argument error in w3m-detect-meta-charset

[TSUCHIYA Masatoshi <tsuchiya@xxxxxxxxxx>]

http://www.shiro.dreamhost.com/scheme/index-j.html $B$K9T$3$&$H$7$F$_$k(B
$B$H!$KvHx$KE:IU$7$?$h$&$J%(%i!<$,H/@8$7$^$7$?!%$3$N%Z!<%8$G$O!$(B

    <meta http-equiv="content-type" value="text/html; charset=euc-jp">

$B$H!$(Bcontent= $B$G$O$J$/(B value= $B$GJ8=q7?$,;XDj$5$l$F$$$?$+$i$G$9!%(B

$B$H$j$"$($:!$2sHr$9$k$?$a$K!$(B

    2004-07-12  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>

        * w3m.el (w3m-detect-meta-charset): Check that a content field has
        a valid value before parsing it.

$B$H$$$&JQ99$r9T$$$^$7$?!%(B

$B$?$@!$$3$l$G@5$7$$$N$+$I$&$+$r$A$g$C$HG:$s$G$$$^$9!%0l1~!$(BHTML4.0 $B5,3J(B
$B$NK.Lu$O%A%'%C%/$7$?$N$G$9$,!$(Bvalue $B$G;XDj$G$-$k$H$$$&$h$&$J5-=R$O8+$D(B
$B$1$i$l$^$;$s$G$7$?!%$R$g$C$H$7$F!$(Bxhtml $B$N5,3J$@$H(B valid $B$@$C$?$j$9$k(B
$B$N$G$7$g$&$+(B? $B$I$J$?$+65$($F$$$?$@$1$^$;$s$+!%(B

-- 
$BEZ20(B $B2mL-(B ( TSUCHIYA Masatoshi )

Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  string-match(";[ 	\n]*charset=\\([^\"]+\\)" nil)
  (and (string= http-equiv "content-type") (string-match ";[ 	\n]*charset=\\([^\"]+\\)" content))
  (if (and (string= http-equiv "content-type") (string-match ";[ 	\n]*charset=\\([^\"]+\\)" content)) (progn (throw ... ...)))
  (when (and (string= http-equiv "content-type") (string-match ";[ 	\n]*charset=\\([^\"]+\\)" content)) (throw (quote found) (match-string 1 content)))
  (let (http-equiv content) (skip-chars-forward " 	
\f\n") (while (cond ... ... ... ...) (goto-char ...) (skip-chars-forward " 	
\f\n")) (skip-chars-forward "^>") (forward-char) (when (and ... ...) (throw ... ...)))
  (w3m-parse-attributes ((http-equiv :case-ignore) (content :case-ignore)) (when (and ... ...) (throw ... ...)))
  (while (re-search-forward "<meta[ 	
\f\n]+" nil t) (w3m-parse-attributes (... ...) (when ... ...)))
  (catch (quote found) (while (re-search-forward "<meta[ 	
\f\n]+" nil t) (w3m-parse-attributes ... ...)))
  (let ((case-fold-search t)) (goto-char (point-min)) (catch (quote found) (while ... ...)))
  w3m-detect-meta-charset()
  w3m-decode-buffer("http://www.shiro.dreamhost.com/scheme/index-j.html"; nil "text/html")
  w3m-safe-decode-buffer("http://www.shiro.dreamhost.com/scheme/index-j.html"; nil "text/html")
  w3m-create-page("http://www.shiro.dreamhost.com/scheme/index-j.html"; "text/html" nil #<buffer *w3m*>)
  #[(G69328 G69329 G69330 G69331 G69332 G69333 G69334 G69335 type) "ÆJ!�Jq�Ç	J!�§
\n�JÈ\f\"�+ÉÊ\"ËÌ�ÍOQ�,)L�
�a
ÎÏ\nJÍ\"8%Ð\nJÍ%&J$�%�k\nJÑÍ'(Ò)\"�*�hÓ*('#)�+ÔÏ\nJÍ\"8+\nJ+��
Ð\nJÍ�&J$�+,\nJÕ(Ò)\"�*� *(N+-,Õ-'(Ò)\"�*�ÀÓ*('#)�-+.\nJÑ(Ò)\"�*�Ý*(N+/.Ñ/'(Ò)\"�*�ýÓ*('#)�-\n+L�)Ö\nJ\nJ×(Ò)\"�*�
*(N+�$

0J�K
\nJØ(Ò)\"�*�@
*(N+�K
Ï\nJÍ\"A@	J$Ù	J!�_
ÚÛ\nJÆ	J!#�)�Ü �1@Ý=�q
1A1 ��
\nJÈÞ\")��
Èß\nJ\"?��
à\nJ0J	J#Úá\nJ2�¤
âã2\"�¥
ä#��" [G69331 G69333 G69335 url w3m-url-authinfo-regexp type buffer-name buffer-live-p string-match match-string 1 "//" 0 nil 4 w3m-attributes w3m-arrived-add last-modified intern-soft put 5 title w3m-create-page content-type content-charset get-buffer-window w3m-message "The content (%s) has been retrieved in %s" ding t "\\`file:" "\\`about:" w3m-show-error-information "Cannot retrieve URL: %s%s" format " (exit status: %s)" "" modified-time G69332 value property w3m-arrived-db symbol real G69320 --store--69322 G69323 --store--69325 G69334 w3m-current-forms ...] 7](--G69303-- --G69304-- ----current-buffer--69300-- ----temp-buffer--69299-- --arrival-time-- --page-buffer-- --charset-- --url-- "text/html")
  apply(#[(G69328 G69329 G69330 G69331 G69332 G69333 G69334 G69335 type) "ÆJ!�Jq�Ç	J!�§
\n�JÈ\f\"�+ÉÊ\"ËÌ�ÍOQ�,)L�
�a
ÎÏ\nJÍ\"8%Ð\nJÍ%&J$�%�k\nJÑÍ'(Ò)\"�*�hÓ*('#)�+ÔÏ\nJÍ\"8+\nJ+��
Ð\nJÍ�&J$�+,\nJÕ(Ò)\"�*� *(N+-,Õ-'(Ò)\"�*�ÀÓ*('#)�-+.\nJÑ(Ò)\"�*�Ý*(N+/.Ñ/'(Ò)\"�*�ýÓ*('#)�-\n+L�)Ö\nJ\nJ×(Ò)\"�*�
*(N+�$

0J�K
\nJØ(Ò)\"�*�@
*(N+�K
Ï\nJÍ\"A@	J$Ù	J!�_
ÚÛ\nJÆ	J!#�)�Ü �1@Ý=�q
1A1 ��
\nJÈÞ\")��
Èß\nJ\"?��
à\nJ0J	J#Úá\nJ2�¤
âã2\"�¥
ä#��" [G69331 G69333 G69335 url w3m-url-authinfo-regexp type buffer-name buffer-live-p string-match match-string 1 "//" 0 nil 4 w3m-attributes w3m-arrived-add last-modified intern-soft put 5 title w3m-create-page content-type content-charset get-buffer-window w3m-message "The content (%s) has been retrieved in %s" ding t "\\`file:" "\\`about:" w3m-show-error-information "Cannot retrieve URL: %s%s" format " (exit status: %s)" "" modified-time G69332 value property w3m-arrived-db symbol real G69320 --store--69322 G69323 --store--69325 G69334 w3m-current-forms ...] 7] --G69303-- --G69304-- ----current-buffer--69300-- ----temp-buffer--69299-- --arrival-time-- --page-buffer-- --charset-- --url-- "text/html")
  (lambda (&rest --cl-rest--) (apply (quote #[... "ÆJ!�Jq�Ç	J!�§
\n�JÈ\f\"�+ÉÊ\"ËÌ�ÍOQ�,)L�
�a
ÎÏ\nJÍ\"8%Ð\nJÍ%&J$�%�k\nJÑÍ'(Ò)\"�*�hÓ*('#)�+ÔÏ\nJÍ\"8+\nJ+��
Ð\nJÍ�&J$�+,\nJÕ(Ò)\"�*� *(N+-,Õ-'(Ò)\"�*�ÀÓ*('#)�-+.\nJÑ(Ò)\"�*�Ý*(N+/.Ñ/'(Ò)\"�*�ýÓ*('#)�-\n+L�)Ö\nJ\nJ×(Ò)\"�*�
*(N+�$

0J�K
\nJØ(Ò)\"�*�@
*(N+�K
Ï\nJÍ\"A@	J$Ù	J!�_
ÚÛ\nJÆ	J!#�)�Ü �1@Ý=�q
1A1 ��
\nJÈÞ\")��
Èß\nJ\"?��
à\nJ0J	J#Úá\nJ2�¤
âã2\"�¥
ä#��" [G69331 G69333 G69335 url w3m-url-authinfo-regexp type buffer-name buffer-live-p string-match match-string 1 "//" 0 nil 4 w3m-attributes w3m-arrived-add last-modified intern-soft put 5 title w3m-create-page content-type content-charset get-buffer-window w3m-message "The content (%s) has been retrieved in %s" ding t "\\`file:" "\\`about:" w3m-show-error-information "Cannot retrieve URL: %s%s" format " (exit status: %s)" "" modified-time G69332 value property w3m-arrived-db symbol real G69320 --store--69322 G69323 --store--69325 G69334 w3m-current-forms ...] 7]) (quote --G69303--) (quote --G69304--) (quote ----current-buffer--69300--) (quote ----temp-buffer--69299--) (quote --arrival-time--) (quote --page-buffer--) (quote --charset--) (quote --url--) --cl-rest--))("text/html")
  w3m-retrieve-and-render("http://www.shiro.dreamhost.com/scheme/index-j.html"; nil nil nil "about://bookmark/" ((lambda (&rest --cl-rest--) (apply ... ... ... ... ... ... ... ... ... ... --cl-rest--)) (lambda (&rest --cl-rest--) (apply ... ... ... ... ... --cl-rest--))))
  w3m-goto-url("http://www.shiro.dreamhost.com/scheme/index-j.html"; nil nil nil "about://bookmark/" ((lambda (&rest --cl-rest--) (apply ... ... ... ... ... --cl-rest--))))
  byte-code("Æ	Ç�\n&\fpL�
È L��" [url reload w3m-current-url handler --newbuffer--69365 --wconfig--69366 w3m-goto-url nil current-window-configuration] 7)
  w3m-view-this-url(nil nil)
  call-interactively(w3m-view-this-url)