Don't `require' everything eagerly.

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index c9663baff8f0f11fe557aa129d51a1adf85e2448..9bb5ef1c3e530b4b51d24ef9f8d1856ebb972563 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,7 @@
+2004-12-11  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * url-handlers.el: Don't `require' everything eagerly.
+
 2004-11-30  Paul Pogonyshev  <pogonyshev@gmx.net>
 
        * url-http.el (url-http-handle-cookies): Bind `url-current-object'
@@ -18,8 +22,7 @@
 
 2004-11-12  Masatake YAMATO  <jet@gyve.org>
 
-       * 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  <jet@gyve.org>
 
@@ -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 db961b9c27e26f1a4f788b7cfff379c50c2a00df..f90f21a3dbed60f7f896b6e52be325dc3afc2f90 100644 (file)
--- 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))