Mercurial > hg > xemacs-beta

comparison lisp/w3/url.el @ 46:6a22abad6937 r19-15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15
author cvs
date Mon, 13 Aug 2007 08:55:31 +0200
parents 8d2a9b52c682
children
comparison
equal deleted inserted replaced
45:7705b7aa3b8a 46:6a22abad6937
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/25 00:00:34 3 ;; Created: 1997/03/26 20:11:33
4 ;; Version: 1.68 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/25 00:00:34|1.68|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.
1279 (defun url-clean-text () 1279 (defun url-clean-text ()
1280 "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,
1281 and decoding any MIME content-transfer-encoding used." 1281 and decoding any MIME content-transfer-encoding used."
1282 (set-buffer url-working-buffer) 1282 (set-buffer url-working-buffer)
1283 (goto-char (point-min)) 1283 (goto-char (point-min))
1284 (url-replace-regexp "Connection closed by.*" "") 1284 (url-replace-regexp "Connection closed by.*\n*\\'" "")
1285 (goto-char (point-min)) 1285 (goto-char (point-min))
1286 (url-replace-regexp "Process WWW.*" "")) 1286 (url-replace-regexp "Process .* exited abnormally.*\n*\\'" ""))
1287 1287
1288 (defun url-remove-compressed-extensions (filename) 1288 (defun url-remove-compressed-extensions (filename)
1289 (while (assoc (url-file-extension filename) url-uncompressor-alist) 1289 (while (assoc (url-file-extension filename) url-uncompressor-alist)
1290 (setq filename (url-file-extension filename t))) 1290 (setq filename (url-file-extension filename t)))
1291 filename) 1291 filename)