;;;
;;; このファイルはMule用のカスタマイズファイルです．
;;;
(setq load-path '("/usr/local/lib/mule/19.28/lisp"
                  "/usr/local/lib/mule/site-lisp"))
(put 'eval-expression 'disabled nil)
;;;
;;; 基本漢字コード等の設定
;;;
(global-set-key "\e=" 'what-line)
(setq text-mode-hook 'turn-on-auto-fill)
(set-keyboard-coding-system *euc-japan*)
(set-display-coding-system *euc-japan*)
(set-default-file-coding-system *euc-japan*)
(autoload 'mime-mode "mime" "Minor mode for editing MIME message." t)
;;;
;;; Mewの設定
;;;
(setq exec-path (cons "/usr/local/bin/mh" exec-path))
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
(setq mew-mail-domain-list '("mgt.aitech.ac.jp" "aitech.ac.jp"))
(setq mew-mule-charset-local *iso-2022-jp*)
;;;
;;; メール用の設定
;;;
(setq mh-progs "/usr/local/bin/mh/")
(setq mh-lib "/usr/local/lib/mh/")
(define-program-coding-system nil ".*scan.*" *euc-japan*)
(define-program-coding-system nil ".*inc.*" *euc-japan*)
(define-program-coding-system nil ".*mhl.*" *euc-japan*)
(setq  mh-lpr-command-format "a2ps | lpr '%s'")
(setq mh-letter-mode-hook
	'(lambda ()
		(mh-goto-header-end 2)
		(auto-fill-mode 1)
		(setq fill-column 74)
		(end-of-buffer)
		(make-local-variable 'mail-header-separator)
		(setq mail-header-separator "--------")
		(setq kanji-fileio-code 2)))
(setq mhl-formfile "mhl.noconv")
;;;
;;; ネットニュース用の設定
;;;
(setq gnus-nntp-server "aitcc")
(setq gnus-nntp-service "nntp")
(setq gnus-your-domain "aitech.ac.jp")
(setq gnus-your-organization "Aichi Institute of Technology, Toyota, Japan.")
(setq gnus-use-generic-from t)
(setq gnus-show-threads t)
(setq gnus-default-article-saver (function gnus-Subject-save-in-folder))
(setq gnus-mail-reply-method
	(function gnus-mail-reply-using-mhe))
(setq gnus-mail-forward-method
	(function gnus-mail-forward-using-mhe))
(setq gnus-mail-other-window-method
	(function gnus-mail-other-window-using-mhe))
(autoload 'gnus "gnus" "Read network news." t)
(autoload 'gnus-post-news "gnuspost" "Post a new news." t)
(setq news-reply-mode-hook
	'(lambda ()
		(set-file-coding-system *junet*)
		(mime-mode)))
(setq gnus-Article-mode-hook
	'(lambda ()
		(set-file-coding-system *junet*)))
(setq gnus-show-mime t) 
(setq call-process-hook nil)
;;;
;;; sdic-mode 用の設定
;;;
(setq load-path (cons "/usr/local/lib/mule/site-lisp" load-path))
(autoload 'sdic-describe-word "sdic" "英単語の意味を調べる" t nil)
(global-set-key "\C-cw" 'sdic-describe-word)
(autoload 'sdic-describe-word-at-point "sdic" "カーソルの位置の英単語の意味を調べる" t nil)
(global-set-key "\C-cW" 'sdic-describe-word-at-point)
;;;
;;; ispell 用の設定
;;;
(autoload 'ispell-word "ispell"
  "Check the spelling of word in buffer." t)
(global-set-key "\e$" 'ispell-word)
(autoload 'ispell-region "ispell"
  "Check the spelling of region." t)
(autoload 'ispell-buffer "ispell"
  "Check the spelling of buffer." t)
(autoload 'ispell-complete-word "ispell"
  "Look up current word in dictionary and try to complete it." t)
(autoload 'ispell-change-dictionary "ispell"
  "Change ispell dictionary." t)
(autoload 'ispell-message "ispell"
  "Check spelling of mail message or news post.")
(add-hook 'news-inews-hook 'ispell-message)
(add-hook 'mail-send-hook  'ispell-message)
(add-hook 'mh-before-send-letter-hook 'ispell-message)
;;;
;;; その他
;;;
(canna)
(auto-save-mode -1)
(line-number-mode 1)
(setq next-line-add-newlines nil)