Mercurial > hg > xemacs-beta

comparison lisp/w3/url-http.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents a145efe76779
children 7d55a9ba150c
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
1 ;;; url-http.el --- HTTP Uniform Resource Locator retrieval code 1 ;;; url-http.el --- HTTP Uniform Resource Locator retrieval code
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/02/19 00:50:08 3 ;; Created: 1997/03/03 15:13:11
4 ;; Version: 1.15 4 ;; Version: 1.16
5 ;; Keywords: comm, data, processes 5 ;; Keywords: comm, data, processes
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
397 (goto-char (point-max)) 397 (goto-char (point-max))
398 (insert "<hr>Error! This URL tried to redirect me to itself!<P>" 398 (insert "<hr>Error! This URL tried to redirect me to itself!<P>"
399 "Please notify the server maintainer."))))) 399 "Please notify the server maintainer.")))))
400 ((= status 304) ; Cached document is newer 400 ((= status 304) ; Cached document is newer
401 (message "Extracting from cache...") 401 (message "Extracting from cache...")
402 (url-extract-from-cache (url-create-cached-filename (url-view-url t)))) 402 (url-cache-extract (url-cache-create-filename (url-view-url t))))
403 ((= status 305) ; Use proxy in Location: header 403 ((= status 305) ; Use proxy in Location: header
404 nil))) 404 nil)))
405 ((= class 4) ; Client error 405 ((= class 4) ; Client error
406 (cond 406 (cond
407 ((and (= status 401) ; Unauthorized access, retry w/auth. 407 ((and (= status 401) ; Unauthorized access, retry w/auth.