Mercurial > hg > xemacs-beta

comparison lisp/w3/url.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents 8619ce7e4c50
children 7d55a9ba150c
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
1 ;;; url.el --- Uniform Resource Locator retrieval tool 1 ;;; url.el --- Uniform Resource Locator retrieval tool
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/03/20 15:45:21 3 ;; Created: 1997/03/26 20:11:33
4 ;; Version: 1.66 4 ;; Version: 1.69
5 ;; Keywords: comm, data, processes, hypermedia 5 ;; Keywords: comm, data, processes, hypermedia
6 6
7 ;;; LCD Archive Entry: 7 ;;; LCD Archive Entry:
8 ;;; url|William M. Perry|wmperry@cs.indiana.edu| 8 ;;; url|William M. Perry|wmperry@cs.indiana.edu|
9 ;;; Functions for retrieving/manipulating URLs| 9 ;;; Functions for retrieving/manipulating URLs|
10 ;;; 1997/03/20 15:45:21|1.66|Location Undetermined 10 ;;; 1997/03/26 20:11:33|1.69|Location Undetermined
11 ;;; 11 ;;;
12 12
13 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 13 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
14 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu) 14 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu)
15 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 15 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
95 (autoload 'url-finger "url-misc") 95 (autoload 'url-finger "url-misc")
96 (autoload 'url-rlogin "url-misc") 96 (autoload 'url-rlogin "url-misc")
97 (autoload 'url-telnet "url-misc") 97 (autoload 'url-telnet "url-misc")
98 (autoload 'url-tn3270 "url-misc") 98 (autoload 'url-tn3270 "url-misc")
99 (autoload 'url-proxy "url-misc") 99 (autoload 'url-proxy "url-misc")
100 (autoload 'url-netrek "url-misc")
100 (autoload 'url-news "url-news") 101 (autoload 'url-news "url-news")
101 (autoload 'url-nntp "url-news") 102 (autoload 'url-nntp "url-news")
102 103
103 (autoload 'url-open-stream "url-gw") 104 (autoload 'url-open-stream "url-gw")
104 (autoload 'url-mime-response-p "url-http") 105 (autoload 'url-mime-response-p "url-http")
905 (url-register-protocol 'mailto nil 'url-identity-expander) 906 (url-register-protocol 'mailto nil 'url-identity-expander)
906 (url-register-protocol 'news nil 'url-identity-expander "119") 907 (url-register-protocol 'news nil 'url-identity-expander "119")
907 (url-register-protocol 'nntp nil 'url-identity-expander "119") 908 (url-register-protocol 'nntp nil 'url-identity-expander "119")
908 (url-register-protocol 'irc nil 'url-identity-expander "6667") 909 (url-register-protocol 'irc nil 'url-identity-expander "6667")
909 (url-register-protocol 'data nil 'url-identity-expander) 910 (url-register-protocol 'data nil 'url-identity-expander)
911 (url-register-protocol 'netrek nil 'url-identity-expander)
910 (url-register-protocol 'rlogin) 912 (url-register-protocol 'rlogin)
911 (url-register-protocol 'telnet) 913 (url-register-protocol 'telnet)
912 (url-register-protocol 'tn3270) 914 (url-register-protocol 'tn3270)
913 (url-register-protocol 'proxy) 915 (url-register-protocol 'proxy)
914 (url-register-protocol 'auto 'url-handle-no-scheme) 916 (url-register-protocol 'auto 'url-handle-no-scheme)
1277 (defun url-clean-text () 1279 (defun url-clean-text ()
1278 "Clean up a buffer, removing any excess garbage from a gateway mechanism, 1280 "Clean up a buffer, removing any excess garbage from a gateway mechanism,
1279 and decoding any MIME content-transfer-encoding used." 1281 and decoding any MIME content-transfer-encoding used."
1280 (set-buffer url-working-buffer) 1282 (set-buffer url-working-buffer)
1281 (goto-char (point-min)) 1283 (goto-char (point-min))
1282 (url-replace-regexp "Connection closed by.*" "") 1284 (url-replace-regexp "Connection closed by.*\n*\\'" "")
1283 (goto-char (point-min)) 1285 (goto-char (point-min))
1284 (url-replace-regexp "Process WWW.*" "")) 1286 (url-replace-regexp "Process .* exited abnormally.*\n*\\'" ""))
1285 1287
1286 (defun url-remove-compressed-extensions (filename) 1288 (defun url-remove-compressed-extensions (filename)
1287 (while (assoc (url-file-extension filename) url-uncompressor-alist) 1289 (while (assoc (url-file-extension filename) url-uncompressor-alist)
1288 (setq filename (url-file-extension filename t))) 1290 (setq filename (url-file-extension filename t)))
1289 filename) 1291 filename)