Function: url-cache-create-filename-using-md5

url-cache-create-filename-using-md5 is a byte-compiled function defined in url-cache.el.gz.

Signature

(url-cache-create-filename-using-md5 URL)

Documentation

Create a cached filename using MD5.

Very fast if you have an md5 primitive function, suitably fast otherwise.

Source Code

;; Defined in /usr/src/emacs/lisp/url/url-cache.el.gz
(defun url-cache-create-filename-using-md5 (url)
  "Create a cached filename using MD5.
Very fast if you have an `md5' primitive function, suitably fast otherwise."
  (if url
      (let* ((checksum (md5 url))
	     (urlobj (url-generic-parse-url url))
	     (protocol (url-type urlobj))
	     (hostname (url-host urlobj))
	     (host-components
	      (cons
	       (user-real-login-name)
	       (cons (or protocol "file")
		     (nreverse
		      (delq nil
			    (split-string (or hostname "localhost")
					  "\\."))))))
	     (fname    (url-filename urlobj)))
	(and fname
	     (expand-file-name checksum
			       (expand-file-name
				(mapconcat 'identity host-components "/")
				url-cache-directory))))))