error on <select> with empty name

[Kevin Ryde <user42@xxxxxxxxxx>]

With recent debian i386 emacs 24.2.1 and cvs w3m, the file foo.html
below viewed with M-x w3m-find-file gets an error

    Wrong type argument: stringp, ("1" ("1" . "AAA") ("2" . "BBB"))

backtrace.txt below from the debugger.

Dunno if foo.html is legal html or not, but even if not I hoped it
wouldn't error out but display some sort of approximation.

I wonder if it's related to the <select name=""> being empty "".
Putting something non-empty in there works.



  
     AAA 
     BBB 
  

   One

  w3m-form-resume(([w3m-form-object get "file:///tmp/foo.html" nil application/x-www-form-urlencoded (1 (:value ("" "1" ("1" . "AAA") ("2" . "BBB"))))]))
  w3m-form-parse-and-fontify(nil)
  w3m-fontify-forms()
  w3m-fontify()
  w3m-create-text-page("file:///tmp/foo.html" "text/html" nil #<buffer *w3m*>)
  w3m-create-page("file:///tmp/foo.html" "text/html" nil #<buffer *w3m*>)
  #[(G15992 G15993 G15994 G15995 G15996 G15997 G15998 G15999 G16000 type) "\306J!\203Jq\210	J\307J!\205+
\f\310\fJ!L\210
\203\317
\311\230\2039\312\fJJ\"\205+
\313\211\314\fJ\"!\202+
\315\316\fJ\317\"8)\320\fJ\317)*J$\210)\204Y\321\fJ\322\317#\210\323\316\fJ\317\"8+\fJ+\230\204\217\320\fJ\317\211*J$\210\321+\324\325\fJ\324\"#\210\321+\322\325\fJ\322\"#\210\f+L\210)\326\fJ\325\fJ\327\"\206\234
,J\206\261\325\fJ\330\"\206\261\316\fJ\317\"A@J$\331J\332\"\210\333J!\204\313\313\334\fJ\306J!#\210)\202+
\335 \210-@\336=\203\337-A-\"\205\375\337\fJ!\206\360\340\341\fJ\"?\205\375\342\fJ,JJ#rJq\210\313\343\fJ.\203
.\344\232\204
\345\346.\"\202(
/\203'
\345\347/\"\202(
\350#\210))\207" [G15995 G15996 w3m-message-silent G15998 G16000 type buffer-name buffer-live-p w3m-url-strip-authinfo "X-w3m-error/redirection" w3m-show-redirection-error-information w3m-message "Cannot retrieve URL: %s" 4 w3m-attributes nil w3m-arrived-add w3m-arrived-put last-modified 5 title w3m-arrived-get w3m-create-page content-type content-charset w3m-force-window-update-later 1e-09 get-buffer-window "The content (%s) has been retrieved in %s" ding t w3m-url-local-p string-match "\\`about:" w3m-show-error-information "Cannot retrieve URL: %s%s" 0 format " (exit status: %s)" " (http status: %s)" "" modified-time G15997 real G15999 w3m-current-forms w3m-process-exit-status w3m-http-status] 7](----cl-var--15981-- ----cl-var--15982-- ----current-buffer--15980-- ----temp-buffer--15979-- --silent-- --arrival-time-- --page-buffer-- --charset-- --url-- "text/html")
  apply(#[(G15992 G15993 G15994 G15995 G15996 G15997 G15998 G15999 G16000 type) "\306J!\203Jq\210	J\307J!\205+
\f\310\fJ!L\210
\203\317
\311\230\2039\312\fJJ\"\205+
\313\211\314\fJ\"!\202+
\315\316\fJ\317\"8)\320\fJ\317)*J$\210)\204Y\321\fJ\322\317#\210\323\316\fJ\317\"8+\fJ+\230\204\217\320\fJ\317\211*J$\210\321+\324\325\fJ\324\"#\210\321+\322\325\fJ\322\"#\210\f+L\210)\326\fJ\325\fJ\327\"\206\234
,J\206\261\325\fJ\330\"\206\261\316\fJ\317\"A@J$\331J\332\"\210\333J!\204\313\313\334\fJ\306J!#\210)\202+
\335 \210-@\336=\203\337-A-\"\205\375\337\fJ!\206\360\340\341\fJ\"?\205\375\342\fJ,JJ#rJq\210\313\343\fJ.\203
.\344\232\204
\345\346.\"\202(
/\203'
\345\347/\"\202(
\350#\210))\207" [G15995 G15996 w3m-message-silent G15998 G16000 type buffer-name buffer-live-p w3m-url-strip-authinfo "X-w3m-error/redirection" w3m-show-redirection-error-information w3m-message "Cannot retrieve URL: %s" 4 w3m-attributes nil w3m-arrived-add w3m-arrived-put last-modified 5 title w3m-arrived-get w3m-create-page content-type content-charset w3m-force-window-update-later 1e-09 get-buffer-window "The content (%s) has been retrieved in %s" ding t w3m-url-local-p string-match "\\`about:" w3m-show-error-information "Cannot retrieve URL: %s%s" 0 format " (exit status: %s)" " (http status: %s)" "" modified-time G15997 real G15999 w3m-current-forms w3m-process-exit-status w3m-http-status] 7] ----cl-var--15981-- ----cl-var--15982-- ----current-buffer--15980-- ----temp-buffer--15979-- --silent-- --arrival-time-- --page-buffer-- --charset-- --url-- "text/html")
  (lambda (&rest --cl-rest--) (apply (quote #[(G15992 G15993 G15994 G15995 G15996 G15997 G15998 G15999 G16000 type) "\306J!\203Jq\210	J\307J!\205+
\f\310\fJ!L\210
\203\317
\311\230\2039\312\fJJ\"\205+
\313\211\314\fJ\"!\202+
\315\316\fJ\317\"8)\320\fJ\317)*J$\210)\204Y\321\fJ\322\317#\210\323\316\fJ\317\"8+\fJ+\230\204\217\320\fJ\317\211*J$\210\321+\324\325\fJ\324\"#\210\321+\322\325\fJ\322\"#\210\f+L\210)\326\fJ\325\fJ\327\"\206\234
,J\206\261\325\fJ\330\"\206\261\316\fJ\317\"A@J$\331J\332\"\210\333J!\204\313\313\334\fJ\306J!#\210)\202+
\335 \210-@\336=\203\337-A-\"\205\375\337\fJ!\206\360\340\341\fJ\"?\205\375\342\fJ,JJ#rJq\210\313\343\fJ.\203
.\344\232\204
\345\346.\"\202(
/\203'
\345\347/\"\202(
\350#\210))\207" [G15995 G15996 w3m-message-silent G15998 G16000 type buffer-name buffer-live-p w3m-url-strip-authinfo "X-w3m-error/redirection" w3m-show-redirection-error-information w3m-message "Cannot retrieve URL: %s" 4 w3m-attributes nil w3m-arrived-add w3m-arrived-put last-modified 5 title w3m-arrived-get w3m-create-page content-type content-charset w3m-force-window-update-later 1e-09 get-buffer-window "The content (%s) has been retrieved in %s" ding t w3m-url-local-p string-match "\\`about:" w3m-show-error-information "Cannot retrieve URL: %s%s" 0 format " (exit status: %s)" " (http status: %s)" "" modified-time G15997 real G15999 w3m-current-forms w3m-process-exit-status w3m-http-status] 7]) (quote ----cl-var--15981--) (quote ----cl-var--15982--) (quote ----current-buffer--15980--) (quote ----temp-buffer--15979--) (quote --silent--) (quote --arrival-time--) (quote --page-buffer--) (quote --charset--) (quote --url--) --cl-rest--))("text/html")
  w3m-retrieve-and-render("file:///tmp/foo.html" nil nil nil nil ((lambda (&rest --cl-rest--) (apply (quote #[(G16034 G16035 G16036 G16037 G16038 G16039 G16040 G16041 G16042 G16043 action) "rq\210\306\n\204\307\310\f\206\311D\"\210eb\210\202
\306\312\313\217\210)\314\224\20307\315\316\"L\2107J\203[\317\320!\210\3217J\306\n\322=?#\203[\3238J!9\3249\306\211\325:J!$\210)\n\322=\204
;J\326\232\203\206\327<\307\310\fD\"\210=J\203\202>\330=J!\240\210)\202\260?J?J\331=\205\232>\211@@A)@A<\307\310\fD\"\210A\203\257\332A!\210*\333\334;J\335BJF!\210C\204\305DEF\203\323GJ\203\323\336 \210\337 \203\353H\203\341\317\320!\210\340\341GJ\"\210\202
\342 \203
\n\343=\203
H\203\377\317\320!\210\344\341GJ\"\210\327I\345\306!\210\fJ\346!K\347 \210\350 \210\351 \210\352:J!\2037
\353\354:J\306\"8\206:
:J\202:
:JL\355\356L\"\210\355\357L\"\210)\360 \210\203i
;\203i
\361\362\"\204f
\354\306\"@\363\232\203i
\306MGJ\204u
NJ\203x
\364 \210\365 \210\366 )\207" [w3m-current-buffer w3m-current-process action w3m-current-url w3m-current-title string nil w3m-history-push :title "" (string-match w3m-url-components-regexp string) ((error ...)) 8 match-string 9 sit-for 0 w3m-search-name-anchor cursor-moved w3m-url-strip-authinfo w3m-arrived-add w3m-arrived-time "about://history/" t w3m-history-regenerate-pointers reload w3m-history-set-current w3m-history-add-properties :referer :post-data w3m-form-textarea-files-remove w3m-display-inline-images-p w3m-toggle-inline-images force w3m-display-graphic-p image-page w3m-toggle-inline-image set-buffer-modified-p w3m-current-directory w3m-buffer-name-add-title w3m-update-toolbar w3m-select-buffer-update w3m-arrived-p 5 w3m-attributes run-hook-with-args w3m-display-functions w3m-display-hook w3m-session-crash-recovery-save string-match ...] 7]) (quote --reuse-history--) (quote --history-position--) (quote --name--) (quote --referer--) (quote --post-data--) (quote --charset--) (quote --redisplay--) (quote --reload--) (quote --url--) (quote --orig--) --cl-rest--))))
  w3m-goto-url("file:///tmp/foo.html" nil nil nil nil nil nil nil t)
  w3m-find-file("/tmp/foo.html")
  my-dired-file-viewer(nil)
  call-interactively(my-dired-file-viewer nil nil)