HTTP/0.9 How I hate thee! ... what the...

[Harry Putnam <reader@newsguy.com>]

[-- Attachment #1: Type: text/plain, Size: 1396 bytes --]

Running CVS w3 

[Adding a little controversy to the raging message ID debate, you can
see what version of CVS I'm running by converting the unix epochal
time in mine --perl -e "print scalar localtime <string;>"

I don't often browse the web with w3, mostly let it work inside gnus
for me or on, local disk.  Today I tried connecting to several sites
and get this strange, but obiously intended to be humorous message.

        `HTTP/0.9 How I hate thee!'

According to *Messages* buffer the startup page is downloaded:

After pressing M-x w3:

  Downloading of `http://www.cs.indiana.edu/elisp/w3/docs.html' complete.
  Parsed  82% of 2632...
  Parsed 100% of 2632...done
  Drawing... |
  HTTP/0.9 How I hate thee!
  Drawing... done
  Quit

With a very lengthy pause between the `Drawing.. done' and pressing
`g'.  Pinging that address works and a traceroute to
`www.cs.indiana.edu' shows reasonable output.

That reminded me that I've never been able to find a command to load a
url from the emacs prompt.  Other than a local file that is.  There
doesn't seem to be an equivalent to `M-x w3-open-local' until you've
loaded the home page then use `C-o'.

Two items from C-h v load-path <RET>:
"/usr/local/w3/url/lisp" "/usr/local/w3/w3/lisp"

both accurate addresses.

So hiding all the *.elc files in both my cvs w3 and url
directories, enable debug on quit and let 'er rip...

And M-x w3....


[-- Attachment #2: w3 backtrace --]
[-- Type: application/octet-stream, Size: 13615 bytes --]

Signaling: (quit)
  accept-process-output(nil 3)
  (while (not retrieval-done) (accept-process-output nil 3))
  (if (not asynch-buffer) nil (while (not retrieval-done) (accept-process-output nil 3)) asynch-buffer)
  (let ((retrieval-done nil) (asynch-buffer nil)) (setq asynch-buffer (url-retrieve url ...)) (if (not asynch-buffer) nil (while ... ...) asynch-buffer))
  url-retrieve-synchronously("http://www.cs.indiana.edu/elisp/w3/styles/w3.css")
  (let ((buffer ...) (handle nil) (data nil)) (if (not buffer) (error "Opening input file: No such file or directory, %s" url)) (save-excursion (set-buffer buffer) (setq handle ...) (set-buffer ...) (if beg ... ...)) (kill-buffer buffer) (mm-destroy-parts handle) (if replace (delete-region ... ...)) (insert data) (list url (length data)))
  url-insert-file-contents("http://www.cs.indiana.edu/elisp/w3/styles/w3.css")
  (if url (url-insert-file-contents url))
  (save-excursion (set-buffer (generate-new-buffer " *style*")) (setq url-current-object pobj) (set-syntax-table css-syntax-table) (erase-buffer) (if url (url-insert-file-contents url)) (goto-char (point-max)) (if string (insert string)) (css-clean-buffer) (goto-char (point-min)) (while (not ...) (setq save-pos ...) (cond ... ... ... ... ...) (skip-chars-forward " 	\r\n")) (set-buffer-modified-p nil) (kill-buffer (current-buffer)))
  (let ((url-mime-accept-string "text/css ; level=2") (save-pos nil) (applies-to nil) (attrs nil) (att nil) (cur nil) (val nil) (device-type nil) (purl ...) (pobj url-current-object) (active-device-types ...) (sheet inherit)) (if (not sheet) (setq sheet ...)) (save-excursion (set-buffer ...) (setq url-current-object pobj) (set-syntax-table css-syntax-table) (erase-buffer) (if url ...) (goto-char ...) (if string ...) (css-clean-buffer) (goto-char ...) (while ... ... ... ...) (set-buffer-modified-p nil) (kill-buffer ...)) sheet)
  css-parse("http://www.cs.indiana.edu/elisp/w3/styles/w3.css" nil (cl-hash-table-tag eql [0 center h1 h2 h3 h4 h5 h6 menu strong 0 0 0 sub a b input 0 0 0 dfn 0 br caption dd xmp 0 sup 0 strike 0 0 quote 0 ol 0 blink secret abstract ul dt address 0] 43))
  (setq stylesheet (css-parse url string cur-sheet))
  (cond ((member type ...) (setq stylesheet ...)) (t (w3-warn ... "Unknown stylesheet notation: %s" type)))
  (save-excursion (cond (... ...) (t ...)))
  (if (not (memq media ...)) nil (save-excursion (cond ... ...)) (setq w3-current-stylesheet stylesheet))
  (let ((url ...) (media ...) (type ...) (stylesheet nil) (defines nil) (buffer nil) (cur-sheet w3-current-stylesheet) (string ...)) (if (not ...) nil (save-excursion ...) (setq w3-current-stylesheet stylesheet)))
  w3-handle-style((class (":visited") title "Emacs/W3 Stylesheet" rel "stylesheet" type "text/css" href "http://www.cs.indiana.edu/elisp/w3/styles/w3.css"))
  (if w3-honor-stylesheets (w3-handle-style plist))
  (cond ((member* desc ...) (if w3-honor-stylesheets ...)) (t nil))
  (case desc ((style stylesheet) (if w3-honor-stylesheets ...)) (otherwise))
  (let* ((type ...) (desc ...) (dc-desc ...) (dest ...) (plist ...) (node-1 ...) (node-2 ...)) (if (member dc-desc w3-defined-link-types) (setq desc dc-desc)) (if dest (cond ... ... ...)) (setq desc (and desc ...)) (case desc (... ...) (otherwise)))
  w3-parse-link(((class ":visited") (title . "Emacs/W3 Stylesheet") (rel . "stylesheet") (type . "text/css") (href . "http://www.cs.indiana.edu/elisp/w3/styles/w3.css")))
  (cond ((eql tag ...) (let* ... ... ... ... ... ... ... ... ... ... ... ... ...)) ((member* tag ...) (push ... w3-display-list-stack) (w3-handle-content node)) ((eql tag ...) (push 0 w3-display-list-stack) (setq node ...) (w3-handle-content node)) ((eql tag ...) (setq node ...) (w3-handle-content node)) ((eql tag ...) (w3-handle-image) (w3-handle-empty-tag)) ((eql tag ...) (if w3-display-frames ... ...)) ((eql tag ...) (if w3-display-frames ... ...)) ((eql tag ...) (if w3-display-frames ... ...)) ((eql tag ...) (if w3-auto-run-java ... ...)) ((eql tag ...) (w3-handle-empty-tag)) ((member* tag ...) (w3-handle-content node)) ((eql tag ...) (let* ... ... ... ...)) ((eql tag ...) (let ... ...) (w3-handle-empty-tag)) ((eql tag ...) (setq node ...) (w3-handle-content node)) ((eql tag ...) (w3-display-table node) (setq w3-last-fill-pos ...) (w3-handle-empty-tag)) ((eql tag ...) (let ... ... ... ... ... ...)) ((member* tag ...) (let ... ... ... ... ... ...)) ((eql tag ...) (let ...!
 
 ... ... ... ... ... ... ... ... ... ... ...) (w3-handle-content node)) ((eql tag ...) (w3-handle-empty-tag)) ((eql tag ...) (quote ...) (w3-handle-empty-tag)) ((eql tag ...) (w3-parse-link args) (w3-handle-empty-tag)) ((eql tag ...) (let ... ... ... ...) (w3-handle-empty-tag)) ((eql tag ...) (setq w3-base-target ...) (w3-handle-content node)) ((eql tag ...) (setq w3-current-form-number ...) (let* ... ... ... ...)) ((eql tag ...) (w3-form-add-element ... w3-active-faces) (w3-handle-empty-tag)) ((eql tag ...) (w3-form-add-element ... w3-active-faces) (w3-handle-empty-tag)) ((eql tag ...) (let* ... ... ... ...)) ((eql tag ...) (let* ... ... ...) (w3-handle-empty-tag)) ((eql tag ...) (w3-handle-style ...) (w3-handle-empty-tag)) ((eql tag ...) (if ... ...) (set-marker w3-display-label-marker ...) (w3-handle-content node)) ((eql tag ...) (if ... nil ...) (w3-handle-content node)) ((eql tag ...) (if ... nil ...) (w3-handle-content node)) ((eql tag ...) (if ... nil ...) (w3-handle-!
 
content node)) (t (w3-handle-content node)))
  (case tag (a (let* ... ... ... ... ... ... ... ... ... ... ... ... ...)) ((ol ul dl menu) (push ... w3-display-list-stack) (w3-handle-content node)) (dir (push 0 w3-display-list-stack) (setq node ...) (w3-handle-content node)) (multicol (setq node ...) (w3-handle-content node)) (img (w3-handle-image) (w3-handle-empty-tag)) (frameset (if w3-display-frames ... ...)) (frame (if w3-display-frames ... ...)) (noframes (if w3-display-frames ... ...)) (applet (if w3-auto-run-java ... ...)) (script (w3-handle-empty-tag)) ((embed object) (w3-handle-content node)) (hr (let* ... ... ... ...)) (map (let ... ...) (w3-handle-empty-tag)) (note (setq node ...) (w3-handle-content node)) (table (w3-display-table node) (setq w3-last-fill-pos ...) (w3-handle-empty-tag)) (isindex (let ... ... ... ... ... ...)) ((html body) (let ... ... ... ... ... ...)) (*document (let ... ... ... ... ... ... ... ... ... ... ... ...) (w3-handle-content node)) (*invisible (w3-handle-empty-tag)) (meta (quote ...)!
 
 (w3-handle-empty-tag)) (link (w3-parse-link args) (w3-handle-empty-tag)) (title (let ... ... ... ...) (w3-handle-empty-tag)) (base (setq w3-base-target ...) (w3-handle-content node)) (form (setq w3-current-form-number ...) (let* ... ... ... ...)) (keygen (w3-form-add-element ... w3-active-faces) (w3-handle-empty-tag)) (input (w3-form-add-element ... w3-active-faces) (w3-handle-empty-tag)) (select (let* ... ... ... ...)) (textarea (let* ... ... ...) (w3-handle-empty-tag)) (style (w3-handle-style ...) (w3-handle-empty-tag)) (label (if ... ...) (set-marker w3-display-label-marker ...) (w3-handle-content node)) (pinhead (if ... nil ...) (w3-handle-content node)) (flame (if ... nil ...) (w3-handle-content node)) (cookie (if ... nil ...) (w3-handle-content node)) (otherwise (w3-handle-content node)))
  (if (stringp (car content)) (w3-handle-string-content (pop content)) (setq node (pop content) tag (nth 0 node) args (nth 1 node) id (or ... ...)) (if (w3-get-attribute ...) (let ... ... ... ... ...)) (setq w3-display-css-properties (css-get ... ... w3-current-stylesheet w3-display-open-element-stack)) (push (w3-get-style-info ... node) break-style) (push (w3-get-style-info ... node) insert-after) (setq insert-before (w3-get-style-info ... node)) (w3-display-handle-break) (if (w3-node-visible-p) nil (setq insert-before nil tag ...) (setcar insert-after nil)) (if insert-before (w3-handle-string-content insert-before)) (if nofaces nil (push ... w3-active-faces) (push ... w3-active-voices)) (setq insert-before nil) (if id (setq w3-id-positions ...)) (case tag (a ...) (... ... ...) (dir ... ... ...) (multicol ... ...) (img ... ...) (frameset ...) (frame ...) (noframes ...) (applet ...) (script ...) (... ...) (hr ...) (map ... ...) (note ... ...) (table ... ... ...) (isindex ...!
 
) (... ...) (*document ... ...) (*invisible ...) (meta ... ...) (link ... ...) (title ... ...) (base ... ...) (form ... ...) (keygen ... ...) (input ... ...) (select ...) (textarea ... ...) (style ... ...) (label ... ... ...) (pinhead ... ...) (flame ... ...) (cookie ... ...) (otherwise ...)))
  (while content (w3-display-progress-meter) (if (stringp ...) (w3-handle-string-content ...) (setq node ... tag ... args ... id ...) (if ... ...) (setq w3-display-css-properties ...) (push ... break-style) (push ... insert-after) (setq insert-before ...) (w3-display-handle-break) (if ... nil ... ...) (if insert-before ...) (if nofaces nil ... ...) (setq insert-before nil) (if id ...) (case tag ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
  (while content-stack (setq content (pop content-stack)) (pop w3-active-faces) (pop w3-active-voices) (w3-display-progress-meter) (setq last-element (pop w3-display-open-element-stack)) (case (car last-element) (a ... ...) (img ... ...) (... ...) (label ...) (otherwise nil)) (if (car insert-after) (w3-handle-string-content ...)) (pop insert-after) (w3-display-handle-end-break) (w3-pop-all-face-info) (while content (w3-display-progress-meter) (if ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
  (let ((content-stack ...) (right-margin-stack ...) (left-margin-stack ...) (inhibit-read-only t) (widget-push-button-gui nil) node insert-before insert-after tag args content hyperlink-info hyperimage-info break-style cur id class last-element) (while content-stack (setq content ...) (pop w3-active-faces) (pop w3-active-voices) (w3-display-progress-meter) (setq last-element ...) (case ... ... ... ... ... ...) (if ... ...) (pop insert-after) (w3-display-handle-end-break) (w3-pop-all-face-info) (while content ... ...)))
  w3-display-node((*document nil ((html nil ...))))
  (while tree (w3-display-node (car tree)) (setq tree (cdr tree)))
  w3-draw-tree(((*document nil (...))))
  (unwind-protect (w3-draw-tree parse) (kill-buffer source-buf) (set-buffer-modified-p nil) (setq w3-current-source source w3-current-parse parse) (w3-finish-drawing) (w3-mode))
  (let* ((source ...) (source-buf ...) (parse ...)) (set-buffer-modified-p nil) (unwind-protect (w3-draw-tree parse) (kill-buffer source-buf) (set-buffer-modified-p nil) (setq w3-current-source source w3-current-parse parse) (w3-finish-drawing) (w3-mode)) (set-buffer-modified-p nil))
  w3-prepare-buffer()
  (cond ((equal ... "text/html") (setq buff ...) (set-buffer buff) (setq url-current-object ...) (mm-insert-part handle) (w3-prepare-buffer) (w3-notify-when-ready ...)) ((equal ... "application/x-elisp-parsed-html") (w3-prepare-tree ...)) ((mm-inlinable-p handle) (setq buff ...) (set-buffer buff) (mm-display-part handle) (w3-notify-when-ready ...)) (t (mm-display-part handle)))
  (let ((handle ...) (buff nil)) (message "Downloading of `%s' complete." url) (w3-decode-charset) (url-mark-buffer-as-dead (current-buffer)) (cond (... ... ... ... ... ... ...) (... ...) (... ... ... ... ...) (t ...)) (mm-destroy-parts handle))
  w3-fetch-callback("http://www.cs.indiana.edu/elisp/w3/docs.html")
  apply(w3-fetch-callback "http://www.cs.indiana.edu/elisp/w3/docs.html")
  url-http-activate-callback()
  (if (url-http-parse-headers) (url-http-activate-callback))
  (cond ((string= "HEAD" url-http-method) (url-http-debug "HEAD request must have headers only (%s)." ...) (url-http-mark-connection-as-free ... ... url-http-process) (if ... ...)) ((string= "CONNECT" url-http-method) (url-http-debug "CONNECT request must have headers only.") (if ... ...)) ((equal url-http-response-status 304) (if ... ...)) (old-http (url-http-debug "Saw HTTP/0.9 response, connection closed means end of document.") (setq url-http-real-after-change-function ...)) ((equal url-http-transfer-encoding "chunked") (url-http-debug "Saw chunked encoding.") (setq url-http-real-after-change-function ...) (if ... ...)) ((integerp url-http-content-length) (url-http-debug "Got a content-length, being smart about document end.") (setq url-http-real-after-change-function ...)) (t (url-http-debug "No content-length, being dumb.") (setq url-http-real-after-change-function ...)))
  (if (not end-of-headers) nil (if old-http (message "HTTP/0.9 How I hate thee!") (progn ... ... ... ... ...)) (if url-http-transfer-encoding (setq url-http-transfer-encoding ...)) (cond (... ... ... ...) (... ... ...) (... ...) (old-http ... ...) (... ... ... ...) (... ... ...) (t ... ...)))
  (let ((end-of-headers nil) (old-http nil) (content-length nil)) (goto-char (point-min)) (if (not ...) (setq end-of-headers t url-http-end-of-headers 0 old-http t) (if ... ...)) (if (not end-of-headers) nil (if old-http ... ...) (if url-http-transfer-encoding ...) (cond ... ... ... ... ... ... ...)))
  url-http-wait-for-headers-change-function(1 186 0)
  funcall(url-http-wait-for-headers-change-function 1 186 0)
  (if (not url-http-real-after-change-function) nil (funcall url-http-real-after-change-function st nd length))
  (if (not (boundp ...)) (debug nil "after-change-function called in strange buffer: %s" (buffer-name)) (if (not url-http-real-after-change-function) nil (funcall url-http-real-after-change-function st nd length)))
  url-http-generic-after-change-function(1 186 0)