(require 'wl-load-path)

(require 'wl-generic)
(require 'wl-emacswiki)
(require 'wl-programming)
(require 'wl-version-control)
(require 'wl-org)
(require 'wl-muse)

(require 'wl-perl)
(add-to-list 'load-path "~/elisp/pod-mode-0.4/")
(when (require-maybe 'pod-mode)
  (add-to-list 'auto-mode-alist '("\\.pod$" . pod-mode))
  (add-hook 'pod-mode-hook
	    '(lambda ()
	       (progn
		 (font-lock-mode)
		 (auto-fill-mode 1)
		 (flyspell-mode 1))))

  (add-to-list 'load-path "~/project/parrot/editor/")
  (autoload 'pir-mode "pir-mode" nil t)
  (add-to-list 'auto-mode-alist '("\\.\\(imc\\|pir\\)\\'" . pir-mode)))

(defun wl-visit-emacs-tags-table ()
  (interactive)
  (visit-tags-table "~/Download/software/emacs/src/TAGS")
  (visit-tags-table "~/Download/software/emacs/src/TAGS-LISP"))

(defvar wl-slime-contrib-list
  '(inferior-slime
    slime-asdf
    slime-autodoc
    slime-banner
    slime-c-p-c
    slime-editing-commands
    slime-fancy-inspector
    slime-fancy
    slime-fuzzy
    slime-highlight-edits
    slime-parse
    ;;    slime-presentation-streams
    slime-presentations
    slime-references
    slime-scratch
    slime-tramp
    ;;    slime-typeout-frame
    slime-xref-browser))

(require 'wl-common-lisp)
(setq slime-default-lisp 'sbcl)

(setq markdown-command "~/bin/Markdown.pl")
(require 'wl-mail)
(setq gnus-select-method
      '(nnimap "imap.gmail.com"
	       (nnimap-address "imap.gmail.com")
	       (nnimap-server-port 993)
	       (nnimap-stream ssl)))

(setq message-send-mail-function 'smtpmail-send-it
      smtpmail-starttls-credentials '(("smtp.gmail.com" 25 nil nil))
      smtpmail-auth-credentials '(("smtp.gmail.com" 25 "netcasper@gmail.com" nil))
      smtpmail-default-smtp-server "smtp.gmail.com"
      smtpmail-smtp-server "smtp.gmail.com"
      smtpmail-smtp-service 25
      smtpmail-local-domain "wanglianghome.org")

(setq bbdb/news-auto-create-p nil)

(provide 'wl-fedora-init)