;;
;; -*-emacs-lisp-*-
;;
;;
;;	$Revision: 1.1 $
;;	$Date: 1998/04/02 10:03:29 $
;;

;; load path
;(if (boundp 'MULE)
;    ; Lisp ライブラリの load path に "~/lib/mule/lisp" を追加します
;    (setq load-path (cons (expand-file-name "~/lib/mule/lisp")
;			  load-path))

; ディスプレイに表示するときの文字コードを日本語 EUC にします
(cond ((boundp 'NEMACS) (setq kanji-display-code 3))
      ((boundp 'MULE)
       (set-display-coding-system *euc-japan*)))

; 新バッファ作成時のファイル文字コードを *euc-japan* にします。
(if (boundp 'MULE)
    (set-default-file-coding-system *euc-japan*))

; MH のプログラムとやりとりするときの文字コードを JIS に指定します。
(if (boundp 'MULE)
    (progn
      (define-program-coding-system nil ".*scan.*" (cons *junet* *junet*))
      (define-program-coding-system nil ".*inc.*" (cons *junet* *junet*))))
(if (boundp 'NEMACS)
    (progn
      (define-program-kanji-code nil ".*scan.*" 2)
      (define-program-kanji-code nil ".*inc.*" 2)))

; Text モードにするとき、常に auto-fill-mode にします。
;(setq text-mode-hook
;      '(lambda () (auto-fill-mode 1)))

; mail-mode にしたときに、ファイル文字コードを JIS にセットするようにし
; ます。
(setq mail-mode-hook
      '(lambda ()
 	 (setq kanji-fileio-code 2)  ; for Nemacs
  	 (if (boundp 'MULE)
    	     (set-file-coding-system *junet*))))

; ガーベージコレクションをおこりにくくする
(setq gc-cons-threshold 200000)

; テキストに色を付ける
(cond (window-system
       (setq hilit-mode-enable-list
	     '(not text-mode)
	     hilit-background-mode    'light
	     hilit-inhibit-hooks      nil
	     hilit-inhibit-rebinding  nil)
       (require 'hilit19)
       ))
	     
; BS (C-h)キーと DEL キーを入れかえます
(cond ( (not window-system)
       (load-library "term/bobcat")
))

; カーソルの位置が何行目か表示
(line-number-mode 1)

; メニューバーを消す
;(menu-bar-mode 0)
; スルロールバーの表示を消す
;(scroll-bar-mode 0)
;  File メニューにある rmail を mh-rmail に置き換える
(substitute-key-definition 'rmail 'mh-rmail menu-bar-file-menu)

;; AUC TeX
(require 'tex-site)

;; Wnn の 頻度ファイルと個人辞書の directory
;
;  自分のオーナーで書き込みをする
(defvar wnn-usr-dic-dir "!$HOME/dic/wnn")

;; MIME 対応
(load "mime-setup")

;; display time
(display-time)

;; Mew 
;
; Add the following in your "~/.emacs"
;   Draft-Folder: drafts
;
; Execute the following command
;   mkdir ~/Mail/drafts
;   chmod 700 ~/Mail/drafts
;
(setq exec-path (cons "/usr/local/bin" exec-path))
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
(setq mew-mail-domain-list '("u-aizu.ac.jp"))
(setq mew-fcc "+Backup")
;;;;;;;;;;;;;;;;;; end ;;;;;;;;;;;;;;;;;;;;;;