[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: url-gw.el: Cannot use proxy with url-gw.el 1.15

From: Shun-ichi GOTO
Subject: Re: url-gw.el: Cannot use proxy with url-gw.el 1.15
Date: Thu, 09 Nov 2006 18:23:55 +0900
User-agent: xcite1.47> Wanderlust/2.14.0 (Africa) SEMI/1.14.6 (Maruoka) FLIM/1.14.8 (Shij┼Ź) APEL/10.6 Emacs/22.0.90 (i386-msvc-nt5.1.2600) MULE/5.0 (SAKAKI) Meadow/3.00-dev (KIKU)

>> Does this patch solve the problem?
> No. It didn't.

I found the bug (maybe).
Is this correct?
Anyway, I got expected response with this patch.

Last one fixes my problem.
1st and 2nd is not required for my problem, but I guess it is required
generaly. And also some more files have a code checking process status.

Index: url-http.el
RCS file: /sources/emacs/emacs/lisp/url/url-http.el,v
retrieving revision 1.40
diff -u -r1.40 url-http.el
--- url-http.el 8 Nov 2006 20:34:36 -0000       1.40
+++ url-http.el 9 Nov 2006 09:17:50 -0000
@@ -92,7 +92,7 @@
 (defun url-http-mark-connection-as-free (host port proc)
   (url-http-debug "Marking connection as free: %s:%d %S" host port proc)
-  (when (memq (process-status proc) '(open run))
+  (when (memq (process-status proc) '(open run connect))
     (set-process-buffer proc nil)
     (set-process-sentinel proc 'url-http-idle-sentinel)
     (puthash (cons host port)
@@ -104,7 +104,7 @@
   (let ((conns (gethash (cons host port) url-http-open-connections))
        (found nil))
     (while (and conns (not found))
-      (if (not (memq (process-status (car conns)) '(run open)))
+      (if (not (memq (process-status (car conns)) '(run open connect)))
            (url-http-debug "Cleaning up dead process: %s:%d %S"
                            host port (car conns))
@@ -1144,7 +1144,7 @@
      ((string= (substring why 0 4) "open")
       (set-process-sentinel proc 'url-http-end-of-document-sentinel)
-      (process-send-string proc (url-http-create-request url-current-object)))
+      (process-send-string proc (url-http-create-request url-http-target-url)))
       (setf (car url-callback-arguments)
            (nconc (list :error (list 'error 'connection-failed why

--- Regards,
 Shun-ichi Goto  <address@hidden>
   R&D Group, TAIYO Corp., Tokyo, JAPAN

reply via email to

[Prev in Thread] Current Thread [Next in Thread]