Show
Ignore:
Timestamp:
05/13/06 11:31:18 (3 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/url/url-http.el

    r4058 r4079  
    387387  (mail-narrow-to-head) 
    388388  ;;(narrow-to-region (point-min) url-http-end-of-headers) 
     389  (let ((connection (mail-fetch-field "Connection"))) 
     390    (if (and connection 
     391             (string= (downcase connection) "close")) 
     392        (delete-process url-http-process))) 
    389393  (let ((class nil) 
    390394        (success nil)) 
    …… 
    11381142      (setq status (url-http-symbol-value-in-buffer 'url-http-response-status 
    11391143                                                    buffer 500) 
    1140             exists (and (>= status 200) (< status 300))) 
     1144            exists (and (integerp status) 
     1145                        (>= status 200) (< status 300))) 
    11411146      (kill-buffer buffer)) 
    11421147    exists))