;; region の色
;(set-face-background 'region "cian3")
;(set-face-foreground 'region "black")

;; Frame size setting ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
(setq initial-frame-alist '((width . 120)  ; 起動時のサイズ（幅と高さ）
                            (height . 40)  ; 起動時のサイズ（幅と高さ）
                            (top . 0)      ; 起動時の表示位置（右から）
                            (left . 0)     ; 起動時の表示位置（左から）
                            (background-color .  "lemon chiffon")   ; 背景の色  （その他，RoyalBlue4）
                           )) 
;; その他，色の設定は M-x list-faces-display で見られる．
;; ここから指示に従えば，勝手に .emacs に書き込んでくれる．
;; すぐ下はその一例である．左右の scroll-bar のすぐ内側の領域の色指定をしてゐる．
(custom-set-variables)
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(fringe ((((class color) (background light)) (:background "LemonChiffon2")))))
;;;;;;;;;;;;; 以上は frame と face の設定 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(utf-translate-cjk-mode 1)

(set-language-environment "Japanese")
(set-terminal-coding-system 'sjis)
(global-set-key "\C-h" 'delete-backward-char)
(setq tool-bar-mode nil) ;; without tool bar
(text-mode)  ;; stop (tex-mode) because of (  and （
(create-fontset-from-fontset-spec
 (concat  "-*-fixed-medium-r-normal-*-16-*-*-*-*-*-fontset-monaco16"))
;;"japanese-jisx0208:-apple-osaka-medium-r-normal--16-160-75-75-m-160-jisx0208.1983-sjis"))
(set-default-font "fontset-monaco16")
(setq default-frame-alist (append '((font . "fontset-monaco16"))))

;;(create-fontset-from-fontset-spec
;; (concat
;;  "-*-fixed-medium-r-normal-*-12-*-*-*-*-*-fontset-monaco12,"
;;"japanese-jisx0208:-apple-osaka-medium-r-normal--14-140-*-m-140-jisx0208.1983-sjis,"
;;  "ascii:-apple-monaco-medium-r-normal-*-12-*-*-*-*-*-mac-roman"))
;;(set-default-font "fontset-monaco12")
;;(setq default-frame-alist (append '((font . "fontset-monaco12"))))

(setq default-truncate-lines t)
;;;  << Color Fonts >> ;;;;;;;;;;;;;;;;;;;;

(setq font-lock-use-default-fonts nil)
  (setq font-lock-use-default-colors nil)
  (global-font-lock-mode t)
  (require 'font-lock)

;;;  << SKK >> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(require 'skk-autoloads)
(global-set-key "\C-x\C-j" 'skk-mode)
(global-set-key "\C-xj" 'skk-auto-fill-mode)
(global-set-key "\C-xt" 'skk-tutorial)
(setq skk-large-jisyo "~/SKK-JISYO.L")

;;;; << Mew >> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
(setq mew-file-max-size 50000000)

;;; Makefile 
(setq mew-icon-directory "/usr/local/lib/emacs/etc/Mew") 

(if (boundp 'read-mail-command)
    (setq read-mail-command 'mew))
(autoload 'mew-user-agent-compose "mew" nil t)
(if (boundp 'mail-user-agent)
    (setq mail-user-agent 'mew-user-agent))
(if (fboundp 'define-mail-user-agent)
    (define-mail-user-agent
      'mew-user-agent
      'mew-user-agent-compose
      'mew-draft-send-message
      'mew-draft-kill
      'mew-send-hook))
(setq mew-ssh-keep-connection nil) 

;;;  ===>  .mew.el 

;; load browse-url from Mew
;(add-hook 'mew-message-mode-hook
;          (function
;           (lambda ()
;             (local-set-key [mouse-2] 'browse-url-at-mouse))))


(require 'w3m-load)
(setq browse-url-browser-function 'w3m-browse-url)
(autoload 'w3m-browse-url "w3m" "Ask a WWW browser to show a URL." t)
;(global-set-key "\C-xm" 'browse-url-at-point)
;
(setq w3m-command "/usr/local/bin/w3m")
(autoload 'w3m "w3m" "Visit the WWW page using w3m" t)
(setq w3m-icon-directory "~/.w3m/")
(setq w3m-default-display-inline-images t) 
(autoload 'w3m "w3m" "Interface for w3m on Emacs." t)
(autoload 'w3m-find-file "w3m" "Find a local file using emacs-w3m." t)
(autoload 'w3m-browse-url "w3m" "Ask a WWW browser to show a URL." t)
(autoload 'w3m-search "w3m-search" "Search words using emacs-w3m." t)
(autoload 'w3m-weather "w3m-weather" "Display a weather report." t)
(autoload 'w3m-antenna "w3m-antenna" "Report changes of web sites." t)
(autoload 'w3m-namazu "w3m-namazu" "Search files with Namazu." t)


(autoload 'w3m-find-file "w3m" "Interface for w3m on Emacs." t)
(autoload 'w3m-search "w3m-search" "Search QUERY using SEARCH-ENGINE." t)
(setq w3m-icon-directory ".w3m/")
(setq w3m-command "w3m")
(setq w3m-type 'w3m)
(setq w3m-use-filter t)
(setq w3m-display-inline-image t)
(setq mime-setup-enable-inline-html t)
(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)))

;;;
;;; ~/.emacs settings.
;;;
;;; ... anything browse-url setting ...
;(eval-after-load "mew" '(require 'mew-browse))

;;; SHIFT + (Middle|Right)-Click = browse-url or mew-user-agent-compose
;;; for Emacs
; (define-key global-map [mouse-2] 'browse-url-at-mouse)
;;; for XEmacs
;; (define-key global-map [(shift button2)] 'browse-url-at-mouse)
;;

;; Pick in Japanese by using "mg"  ;;;;;;;;;;;;;;;;;;;; 
(setq mew-prog-grep "mg")
(setq mew-prog-grep-opts '("-j" "jis" "-l" "-e" "-x" "&mime"))

;;Virtual mode pick in Jpanese by using "mg"
(setq mew-prog-vgrep "mg")
(setq mew-prog-vgrep-opts '("-j" "jis" "-l" "-e" "-x" "&mime"))
;;
;;