- To: raman@xxxxxxxxxxx
- Subject: Re: url-http.el breaks Emacs/W3
- From: Magnus Henoch <mange@xxxxxxxxxxx>
- Date: Mon, 02 Oct 2006 00:33:43 +0200
- In-Reply-To: <17680.47832.392979.355667@xxxxxxxxxxx> (T. V. Raman'smessage of "Tue, 19 Sep 2006 20:51:52 -0700")
- Jabber-Id: legoscia@xxxxxxxxxxx
- User-Agent: Gnus/5.110006 (No Gnus v0.6) Emacs/22.0.50 (berkeley-unix)
Sorry about my delay in answering...
The patch looks fine to me when I look in the archives; anyway here is
a shorter version. It doesn't fix the indentation of the
w3-fetch-callback function, but should be able to pass through most
e-mail systems unharmed.
Magnus
*** w3.el 03 Mar 2006 04:13:41 +0100 1.32
--- w3.el 02 Oct 2006 00:28:26 +0200
***************
*** 293,299 ****
(w3-setup-reload-timer uri (url-view-url t)
(string-to-int (or reload "5"))))))
! (defun w3-fetch-callback (url)
(w3-nasty-disgusting-http-equiv-handling (current-buffer) url)
;; Process any cookie and refresh headers.
(let (headers)
--- 293,306 ----
(w3-setup-reload-timer uri (url-view-url t)
(string-to-int (or reload "5"))))))
! (defun w3-fetch-callback (&rest args)
! (let ((url (cond
! ;; see callback argument conventions in docstring of
! ;; `url-retrieve'
! ((eq (car args) :redirect)
! (caddr args))
! (t
! (car args)))))
(w3-nasty-disgusting-http-equiv-handling (current-buffer) url)
;; Process any cookie and refresh headers.
(let (headers)
***************
*** 369,375 ****
;; Must be an external viewer
(mm-display-part handle)
;;(mm-destroy-parts handle)
! )))))
;;;###autoload
(defun w3-fetch (&optional url target)
--- 376,382 ----
;; Must be an external viewer
(mm-display-part handle)
;;(mm-destroy-parts handle)
! ))))))
;;;###autoload
(defun w3-fetch (&optional url target)