(cl): Don't require.

[gnu-emacs] / lisp / url / url-cache.el

diff --git a/lisp/url/url-cache.el b/lisp/url/url-cache.el
index 7a6cc21383e13a390d7701c0415df46822ac3ca4..d279a88951d3c80b28d7ae4af7fac96521a466f2 100644 (file)
--- a/lisp/url/url-cache.el
+++ b/lisp/url/url-cache.el
@@ -1,7 +1,4 @@
 ;;; url-cache.el --- Uniform Resource Locator retrieval tool
-;; Author: $Author: monnier $
-;; Created: $Date: 2004/04/04 01:21:46 $
-;; Version: $Revision: 1.1.1.1 $
 ;; Keywords: comm, data, processes, hypermedia
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -26,6 +23,7 @@
 ;;; Boston, MA 02111-1307, USA.
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (require 'url-parse)
+(require 'url-util)
 
 (defcustom url-cache-directory
   (expand-file-name "cache" url-configuration-directory)
@@ -141,7 +139,7 @@ FILE can be created or overwritten."
 
 (defun url-cache-create-filename-using-md5 (url)
   "Create a cached filename using MD5.
- Very fast if you are in XEmacs, suitably fast otherwise."
+Very fast if you have an `md5' primitive function, suitably fast otherwise."
   (require 'md5)
   (if url
       (let* ((url (if (vectorp url) (url-recreate-url url) url))