From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/35183 Path: main.gmane.org!not-for-mail From: Harry Putnam Newsgroups: gmane.emacs.gnus.general Subject: Re: HTTP/0.9 How I hate thee! ... what the... Date: 02 Mar 2001 00:04:07 -0800 Sender: owner-ding@hpc.uh.edu Message-ID: References: <2nu25cg47m.fsf@tiger.jia.vnet> <2nk868u0tl.fsf@tiger.jia.vnet> NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035170968 1652 80.91.224.250 (21 Oct 2002 03:29:28 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 03:29:28 +0000 (UTC) Cc: ding@gnus.org Return-Path: Original-Received: from lisa.math.uh.edu (lisa.math.uh.edu [129.7.128.49]) by mailhost.sclp.com (Postfix) with ESMTP id CB558D04A0 for ; Fri, 2 Mar 2001 13:45:54 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by lisa.math.uh.edu (8.9.1/8.9.1) with ESMTP id MAB12616; Fri, 2 Mar 2001 12:45:41 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 02 Mar 2001 12:44:49 -0600 (CST) Original-Received: from epithumia.math.uh.edu (IDENT:root@epithumia.math.uh.edu [129.7.128.2]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id MAA12709 for ; Fri, 2 Mar 2001 12:44:42 -0600 (CST) Original-Received: (from tibbs@localhost) by epithumia.math.uh.edu (8.11.0/8.11.1) id f22Iixu21040 for ding@hpc.uh.edu; Fri, 2 Mar 2001 12:44:59 -0600 Original-Received: from mailhost.sclp.com (postfix@66-209.196.61.interliant.com [209.196.61.66] (may be forged)) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id CAA08803 for ; Fri, 2 Mar 2001 02:03:48 -0600 (CST) Original-Received: from mail.networkone.net (mail.networkone.net [209.144.112.246]) by mailhost.sclp.com (Postfix) with SMTP id 8F62FD049E for ; Fri, 2 Mar 2001 03:04:16 -0500 (EST) Original-Received: (qmail 9005 invoked from network); 2 Mar 2001 08:04:10 -0000 Original-Received: from unknown (HELO reader.local.lan) (209.144.117.151) by mail.networkone.net with SMTP; 2 Mar 2001 08:04:10 -0000 Original-Received: (from reader@localhost) by reader.local.lan (8.11.0/8.11.0) id f22847r01617; Fri, 2 Mar 2001 00:04:07 -0800 X-Authentication-Warning: reader.local.lan: reader set sender to reader@newsguy.com using -f Original-To: ShengHuo ZHU In-Reply-To: <2nk868u0tl.fsf@tiger.jia.vnet> (ShengHuo ZHU's message of "02 Mar 2001 01:44:38 -0500") User-Agent: Gnus/5.090001 (Oort Gnus v0.01) Emacs/20.7 Precedence: list X-Majordomo: 1.94.jlt7 Original-Lines: 109 Xref: main.gmane.org gmane.emacs.gnus.general:35183 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:35183 --=-=-= ShengHuo ZHU writes: > > > > Seem to be something missing from the tree? > > url-auto.el is an auto generated file in url package. You should > build url package before w3. OK, much better now... Still get some messages but harmless I think: w3.txi:1234: warning: @sc argument all uppercase, thus no effect. w3.txi:1490: warning: @sc argument all uppercase, thus no effect. w3.txi:1517: warning: @sc argument all uppercase, thus no effect. makeinfo w3-faq.txi make[1]: Leaving directory `/usr/local/w3-cvs/w3/texi' The bad news is I still get the same problem. After applying your patch I ran a diff on url-http.el~ url-http.el $ diff url-http.el~ url-http.el 291a292 > (widen) ;; The buffer might be mysteriously narrowed. Should there be more? >>From *Messages* buffer: (is the line about the cookies causing this?) [...] Loading url-auth (source)...done Could not load cookie file /home/reader/.url/cookies Loading mail-extr... Loading mail-extr...done Loading w3-hot (source)... Loading w3-hot (source)...done Contacting host: www.cs.indiana.edu:80 Loading url-cache (source)... Loading url-cache (source)...done Downloading of `http://www.cs.indiana.edu/elisp/w3/docs.html' complete. Parsed 82% of 2632... Parsed 100% of 2632...done Drawing... \ Loading w3-style (source)... Loading w3-style (source)...done HTTP/0.9 How I hate thee! Backtrace with *.elc files moved out of the line of fire. --=-=-= Content-Type: application/octet-stream Content-Disposition: attachment; filename=w3_back2 Content-Description: w3 back trace 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 " \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) --=-=-=--