;;; -*- mode: lisp-interaction; syntax: elisp -*-
;;;
;;; Mule for Win32 Window Version 1.20 用 ~/.emacs のサンプル
;;;

;(cond ((eq system-type 'windows-nt)
;
;;; bashの時にはこのようにする
;	  (setq shell-command-option "-c")
;
;         (if (not window-system)
;            (progn
;;; 表示色の設定(console mode用)
;		 (set-screen-color 15 1)
;		 (set-bold-color 14 1)	; ボールド
;		 (set-italic-color 14 1)	; イタリック
;;; 画面の大きさの設定。
;		 (change-console-size 80 30)
;		 (clear-console)
;		 (recenter)))))
;

;;; hilitの設定。
;(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)))

;(setq next-line-add-newlines nil)
;(line-number-mode t)

;(load "term/bobcat")
;(load "win32fontset")

; IMEのトグルキーの設定。
; (既にIMEがトグルできているキーを設定する必要はありません。)
; (set-ime-toggle-key "\C-\\")

;;; フレームのディフォルトの設定。
;(setq default-frame-alist (append (list '(foreground-color . "black")
;					'(background-color . "white")
; フレームの横幅
;					'(width . 80)
; フレームの高さ
;					'(height . 40)
; フレームのX座標の位置
;                                       '(top . 100)
; フレームのY座標の位置
;                                       '(left . 100)
;;;この次の行を変えることによってフォントを
;;;簡単に選択できます。どのような種類があるかを見るには
;;;win32fontsetをロードしたあと
;;;Ctrl+マウス右ボタンを使ってみてください。
;					'(fontset . "Mincho-9"))
;				  default-frame-alist))
;
;; RMAIL 
(add-hook 'mail-mode-hook
	  '(lambda ()
	       (require 'mule-tcp)
	       (require 'smtpmail)
	       (setq mail-from-style nil)))

(define-service-coding-system 110 nil *junet*unix)
(define-service-coding-system 25 nil *junet*unix)
(setq send-mail-function 'smtpmail-send-it)

;;
(setq smtpmail-default-smtp-server <i>"csc_innova"</i>  ;SMTPサーバ
      smtpmail-local-domain        <i>"nicos"</i> 
      smtpmail-code-conv-from      nil
      user-full-name               <i>"Watanabe Masanori"</i>
      user-mail-address            <i>"mwatanab@csc-net.co.jp"</i>);

;;ディフルトメールヘッダの設定
(add-hook 'mail-mode-hook
	  (function
	    (lambda ()
	      (make-local-variable 'mail-default-headers)
	      (setq mail-default-headers
		    (concat
		      <i>"Cc: mwatanab@csc-net.co.jp\n"
		      "Reply-To: mwatanab@csc-net.co.jp\n"
		      "X-Mailer: Rmail on mule-for-win32-version \n"</i>)))))

;; POP3サーバ関係の設定
(setenv "MAILHOST" <i>"csc_innova"</i>)
(setq rmail-primary-inbox-list '("po:<i>mwatanab</i>")
      rmail-pop-password-required password)
(setenv "MOVEMAIL" "-p")        ;;

;;; Infoのパス
(setq Info-directory-list
      (list
       "d:/programs/gnuwin32/b18/info"
       "d:/root/mule2/info"))