Don't `require' everything eagerly.

2 files changed, 26 insertions, 13 deletions

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index c9663baff8..9bb5ef1c3e 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,7 @@
+2004-12-11  Stefan Monnier  <[email protected]>
+
+	* url-handlers.el: Don't `require' everything eagerly.
+
 2004-11-30  Paul Pogonyshev  <[email protected]>
 
 	* url-http.el (url-http-handle-cookies): Bind `url-current-object'
@@ -18,8 +22,7 @@
 
 2004-11-12  Masatake YAMATO  <[email protected]>
 
-	* url-mailto.el (url-mailto): Fix a typo in the 
-	comment.
+	* url-mailto.el (url-mailto): Fix a typo in the comment.
 
 2004-11-02  Masatake YAMATO  <[email protected]>
 
@@ -76,12 +79,12 @@
 
 	* url-vars.el (url-passwd-entry-func): Var deleted.
 	(mm-mime-mule-charset-alist): Remove compatibility code for old Gnus.
-	(url-weekday-alist): Renamed from weekday-alist.
-	(url-monthabbrev-alist): Renamed from monthabbrev-alist.
+	(url-weekday-alist): Rename from weekday-alist.
+	(url-monthabbrev-alist): Rename from monthabbrev-alist.
 	(url-vars-unload-hook): Initialize hook var to hold the function.
 
-	* url-util.el (url-get-normalized-date): Use
-	url-weekday-alist and url-monthabbrev-alist.
+	* url-util.el (url-get-normalized-date): Use url-weekday-alist and
+	url-monthabbrev-alist.
 
 	* url-misc.el: Load cl at compile time.
 
@@ -99,8 +102,8 @@
 	* url-news.el (url-snews): Use nntp-open-tls-stream if
 	url-gateway-method is tls.
 
-	* url-ldap.el (url-ldap-certificate-formatter): Use
-	tls-certificate-information if ssl.el is not available.
+	* url-ldap.el (url-ldap-certificate-formatter):
+	Use tls-certificate-information if ssl.el is not available.
 
 	* url-https.el (url-https-create-secure-wrapper): Use tls if ssl
 	is not available.
diff --git a/lisp/url/url-handlers.el b/lisp/url/url-handlers.el
index db961b9c27..f90f21a3db 100644
--- a/lisp/url/url-handlers.el
+++ b/lisp/url/url-handlers.el
@@ -25,11 +25,21 @@
 
 ;;; Code:
 
-(require 'url)
-(require 'url-parse)
-(require 'url-util)
-(require 'mm-decode)
-(require 'mailcap)
+;; (require 'url)
+(eval-when-compile (require 'url-parse))
+;; (require 'url-util)
+(eval-when-compile (require 'mm-decode))
+;; (require 'mailcap)
+;; The following functions in the byte compiler's warnings are known not
+;; to cause any real problem for the following reasons:
+;; - mm-save-part-to-file, mm-destroy-parts: always used
+;;   after mm-dissect-buffer and defined in the same file.
+;; The following are autoloaded instead of `require'd to avoid eagerly
+;; loading all of URL when turning on url-handler-mode in the .emacs.
+(autoload 'url-retrieve-synchronously "url" "Retrieve url synchronously.")
+(autoload 'url-expand-file-name "url-expand" "Convert url to a fully specified url, and canonicalize it.")
+(autoload 'mm-dissect-buffer "mm-decode" "Dissect the current buffer and return a list of MIME handles.")
+(autoload 'url-scheme-get-property "url-methods" "Get property of a URL SCHEME.")
 
 (eval-when-compile
   (require 'cl))