;;; Time-stamp: <2006-02-23 10:53:33 john>


(if (and (boundp 'w3-host)
	 w3-host)
    (let ((w3-lisp-dir ;; "$GATHERED/emacs/w3/w3-4.0pre.46/lisp/"
		       (substitute-in-file-name "$GATHERED/emacs/w3/w3-4.0pre.47/lisp/")
		       ))
      (add-lispdir w3-lisp-dir)
      (let ((file (expand-file-name "w3.elc" w3-lisp-dir)))
	(if (file-exists-p file)
	    (load-file file)
	  (load-file (expand-file-name "w3.el" w3-lisp-dir))))
      (condition-case () (require 'w3-auto "w3-auto") (error nil))))

(autoload 'altavista "search-engines"
  "Do an altavista search for SEARCH-EXPRESSION." t)

(autoload 'bbc-news "bbc-news"
  "Read the news." t)

(autoload 'prepare-oremus "oremus"
  "Read the office." t)

(autoload 'dove "dove"
  "Look for TOWER in Dove's Guide." t)

(autoload 'web-letter "web-letters"
  "Start a web LETTER, using a TEMPLATE." t)

(autoload 'make-gallery "gallery"
  "Make a gallery in the current file, of pictures matching PATTERN" t)

;;; what it added to my .emacs:
;;; Emacs/W3 Configuration
(setq load-path (cons "/usr/local/share/emacs/site-lisp" load-path))


; (autoload 'w3 "w3" "Start a w3 session.  Goes to w3-default-homepage as home page." t)
; (autoload 'w3-open-local "w3" "Open local file for WWW browsing" t)
; (autoload 'w3-fetch "w3" "Open remote file for WWW browsing" t)
; (autoload 'w3-use-hotlist "w3" "Use shortcuts to WWW Docs" t)
; (autoload 'w3-preview-this-buffer "w3" "Parse this buffer as HTML" t)
; (autoload 'w3-batch-fetch "w3" "Batch fetch urls")
; (autoload 'w3-retrieve "w3" "Fetch urls")

; (autoload 'find-url-file "find-url-file"
;   "Try to get the file referenced by URL into a buffer" t)

;;; end of autoload/w3.el