Function: url-http-parse-response

url-http-parse-response is a byte-compiled function defined in url-http.el.gz.

Signature

(url-http-parse-response)

Documentation

Parse just the response code.

Source Code

;; Defined in /usr/src/emacs/lisp/url/url-http.el.gz
              nil))))))) ;; Not success yet.

(defun url-http-parse-response ()
  "Parse just the response code."
  (if (not url-http-end-of-headers)
      (error "Trying to parse HTTP response code in odd buffer: %s" (buffer-name)))
  (url-http-debug "url-http-parse-response called in (%s)" (buffer-name))
  (goto-char (point-min))
  (skip-chars-forward " \t\n")		; Skip any blank crap
  (skip-chars-forward "/HPT")		; Skip HTTP Version "HTTP/".
  (setq url-http-response-version
	(buffer-substring (point)
			  (progn
			    (skip-chars-forward "0-9.")
			    (point))))
  (setq url-http-response-status (read (current-buffer))))