(require 'wl-load-path)

(if (and (fboundp 'daemonp) (daemonp))
    (add-hook 'after-make-frame-functions
	      (lambda (frame)
		(with-selected-frame frame
		  (set-fontset-font "fontset-default"
				    'chinese-gbk "WenQuanYi Micro Hei Mono 15"))))
  (set-fontset-font "fontset-default" 'chinese-gbk "WenQuanYi Micro Hei Mono 15"))

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

(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)))))

(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)

(require 'wl-mail)
(setq gnus-summary-line-format
      "%U%R%z %d %4k %I%(%[%-15,15a%]%) %s\n")
(eval-after-load 'bbdb
  '(setq bbdb/news-auto-create-p nil))

;;; remove [ from the second character class of the third regular
;;; expression to enable [Gmail]/* subscription
(setq gnus-ignored-newsgroups
      (mapconcat 'identity
		 '("^to\\."			; not "real" groups
		   "^[0-9. \t]+\\( \\|$\\)"	; all digits in name
		   "^[\"][]\"#'()]"		; bogus characters
		   )
		 "\\|"))
(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")

(provide 'wl-fedora-init)