;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Autoload statements so we don't get lots of unknown functions when
;;; compiling.  Just for clean-ness.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar extent nil "")
(defvar mode-popup-menu nil "")
(defvar buffers-menu nil "")
(defvar mm-mime-data nil "")
(defvar mm-version nil "")
(defvar mm-mime-extensions nil "")
(defvar *noconv* nil "")
(defvar *internal* nil "")
(defvar mouse-map nil "")
(defvar x-button-middle nil "")
(defvar nntp/connection nil "")
(defvar x-button-c-middle nil "")
(defvar mouse-middle nil "")
(defvar mouse-down nil "")
(defvar hwww:link-follow nil "")
(defvar hwww:url nil "")
(defvar hwww:start nil "")
(defvar *autoconv* nil "")
(defvar *euc-japan* nil "")
(defvar nntp-server-buffer nil "")
(defvar nntp-server-buffer nil "")
(defvar nntp-version nil "")
(defvar nntp-server-buffer nil "")
(defvar ange-ftp-version nil "")
(defvar efs-version nil "")
(defvar file-coding-system nil "")
(defvar mc-flag nil "")
(defvar mc-pgp-path nil "")
(defvar mc-pgp-key-begin-line nil "")
(defvar mc-ripem-pubkeyfile nil "")
(defvar mc-default-scheme nil "")
(defvar current-menubar nil "")
(defvar default-menubar nil "")
(defvar mode-motion-hook nil "")
(defvar standard-display-table nil "")
(defvar nntp-server-name "")
(defvar gnus-default-nntp-server "")
(defvar gnus-nntp-server "")
(defvar track-mouse nil)
(defvar menu-bar-help-menu nil)
(defvar w3-working-buffer nil)

(load "bytecomp" t t nil)
;; Emacs 19 byte compiler complains about too much stuff by default.
;; Turn off most of the warnings here.
(setq byte-compile-warnings '(free-vars))

(let ((x (get 'extent-data 'byte-obsolete-info))
      (y '(extent-data set-extent-attribute set-extent-data)))
  (cond
   (x					; stifle lucid warnings
    (while y				; when compiling old code in new lucid
      (if (setq x (get (car y) 'byte-obsolete-info))
	  (put (car y) 'byte-compile (cdr x)))
      (setq y (cdr y))))
   (t nil)))

(provide 'mm)
(provide 'url)
(provide 'ange-ftp)
