;; -*- Emacs-lisp -*-
;;
;; $Id: dot.emacs 1438 2006-09-21 11:19:56Z usata $
;;

;; emacs server
;;(server-start)

;; diary
;;(diary)

;; make C-h backspace
(load "term/bobcat")

;; no description
(display-time)

;; for ls(dired-mode)
(setenv "LC_TIME" "C")

;; FAT disk area does not allow to make a backup file
(setq backup-inhibited t)

;; default style
(setq default-fill-column 76)
(setq default-tab-width 4)

;; for LaTeX
(setq tex-run-command "tex"		; tex/ptex(if you want to use Japanese)
      latex-run-command "latex"		; latex/platex(ditto)
      tex-dvi-view-command "xdvi"
      ;; zsh append ^M at the end of each command
      tex-shell-file-name "tcsh")
(add-hook 'latex-mode-hook 'auto-fill-mode)

;; don't use widget
;;(setq mime-use-widget nil)

;; don't use w3 when wl reads HTML mail.
;;(setq mime-setup-enable-inline-html nil)

;; use w3m to browse web
;; (eval-after-load "mime-view"
;;   '(progn
;;      (autoload 'mime-w3m-preview-text/html "mime-w3m")
;;      (ctree-set-calist-strictly
;;       'mime-preview-condition
;;       '((type . text) (subtype . html) (body . visible)
;;  (body-presentation-method . mime-w3m-preview-text/html)))
;;      (set-alist 'mime-view-type-subtype-score-alist
;;      '(text . html) 3)))

;; w3m.el
(autoload 'w3m "w3m" "*Interface for w3m on Emacs." t)

;; IRC related lisp
;;(autoload 'liece "liece" nil t)
;;(load "~/.liece/init.el")
;;(setq irchat-server "irc.fujisawa.wide.ad.jp")
;;(autoload 'irchat "irchat" nil t)

;; mpg123.el (obsolete)
;;(setq mpg123-startup-volume 80)
;;(autoload 'mpg123 "mpg123" nil t)

;; mew (not installed yet)
;;(autoload 'mew "mew" nil t)
;;(autoload 'mew-send "mew" nil t)
;;(setq mew-name "KOMACHI Mamoru")
;;(setq mew-user "c10344@mail.ecc.u-tokyo.ac.jp")
;;(setq mew-mail-domain "mail.ecc.u-tokyo.ac.jp")
;;(setq mew-icon-directory "/path/to/icon/dir")
;;(setq mew-pop-server "pop.usata.org")
;;(setq mew-smtp-server "") ; if not localhost

;; for yc.el
;;(setq yc-server-host "localhost")
;;(setq yc-rK-trans-key [henkan])
;;(load "yc.el")
;;(global-yc-mode 1)

;; migemo (inactivated because it takes time to search non-Japanese text)
;;(load "migemo.el")

;; wl
(autoload 'wl "wl" "Wanderlust" t)
(autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t)

;; mgp
;;(setq auto-mode-alist
;;      (append '(("\\.mgp$" . mgp-mode))
;;        auto-mode-alist))
;;(autoload 'mgp-mode "mgp-mode" "a mode for editing magicpoint" t)

(put 'downcase-region 'disabled nil)
(put 'upcase-region 'disabled nil)

;; Japanese environment
;;(set-language-environment "Japanese")
;;(set-terminal-coding-system 'euc-japan)
;;(setq default-buffer-file-coding-system 'euc-japan)
;;(set-default-coding-systems 'euc-japan)
;;(setq default-process-coding-system 'euc-japan)

;; character hilight
(if (eq window-system 'x)
    ;; highlight text
    (load-library "hilit19")
  ;; not X
  (menu-bar-mode nil))


;; skk.el (not required)
;;(require 'skk-setup)

(cond ((= emacs-major-version 21)	; version 21 specific
       (blink-cursor-mode nil)
       (setq default-buffer-local-cursor-color 'green)
       (setq cursor-in-non-selected-windows nil)))