;;
;; CANNA
;;
(select-input-method "japanese-canna")
(global-set-key "\C-o" 'canna-toggle-japanese-mode)
(define-key canna-mode-map [delete] "\C-h")

;;
;; MEW
;;
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
(setq mew-mail-domain-list '("tokuda.net"))

;; Do not get on startup
(setq mew-auto-get nil)

;; Citation Setting
(setq mew-cite-prefix-function 'mew-cite-prefix-username)
(setq mew-addrbook-for-cite-label  'nickname)
(setq mew-addrbook-for-cite-prefix 'nickname)

;; FCC for 1.94
(setq mew-fcc "tokuda@tokuda.net")

;; Auto fill mode
(setq mew-draft-mode-hook
      (function (lambda ()
		  (setq fill-column 50)
		  (auto-fill-mode 1))))

;; Highlight Body
;(setq mew-use-highlight-body t)

;; Thread Summry Buffer 1.94
;(eval-after-load "mew" '(require 'mew-virtual-thread))



;; Option Header Field
(setq mew-header-alist '(("X-URL:" . "http://www.tokuda.net/")
			 ("Bcc:" . "tokuda@tokuda.net")
			 ))

;; browser-url
(require 'mew-browse)
(setq browse-url-browser-function 'browse-url-netscape)
(setq browse-url-netscape-program "mozilla")


;;
;; bobcat
;;
(load "bobcat")


(setq fill-column 50)

;;
;; YaHtml
;;
(setq load-path (cons (expand-file-name "~/elisp/yatex") load-path))

(setq auto-mode-alist
      (cons (cons "\\.html$" 'yahtml-mode) auto-mode-alist))
(autoload 'yahtml-mode "yahtml" "Yet Another HTML mode" t)
;;(setq yahtml-www-browser "mozilla")


(setq yahtml-path-url-alist
      '(("/home/tokuda/public_html" . "http://jetworld.tokuda.net/~tokuda")))

;; YaTeX Kanji Code (1: ShiftJIS, 2: JIS, 3: EUC)
(setq YaTeX-kanji-code 3) 
(setq yahtml-kanji-code 3)

;; hilit19 (For YaTex)
;(cond (window-system
;       (setq hilit-mode-enable-list  '(yatex-mode)
;	     hilit-background-mode   'light
;	     hilit-inhibit-hooks     nil
;	     hilit-inhibit-rebinding nil)
;       (require 'hilit19)
;       ))

;; Auto Update Timestamp
;;
(defun save-buffer-wrapper ()
  (interactive)
  (let ((tostr (concat "$Lastupdate: " (current-time-string) " $")))
    (save-excursion
      (goto-char (point-min))
      (while (re-search-forward
	      "\\$Lastupdate\\([A-Za-z0-9: ]*\\)?\\$" nil t)
	(replace-match tostr nil t)))
    (save-buffer)))

(global-set-key "\C-x\C-s" 'save-buffer-wrapper)

;;
;; Small Font
;;
(set-face-font 'default ;; face
	       "-mnkaname-fixed-medium-r-normal--12-*"
	       'global ;; locale
	       '(mule-fonts) ;; tag-set
	       'prepend) ;; how-to-add


; Intelli Mouse
(case (console-type)
  (x
   (autoload 'mwheel-install "mwheel" "Enable mouse wheel support.")
   (mwheel-install)))

;; c-mode (for Java)
(defun my-c-mode-common-hook ()
  (c-set-style "cc-mode")
  (c-set-offset 'member-init-intro '++)
  (c-set-offset 'inline-open 0)
  
  (setq tab-width 4)
  (setq indent-tabs-mode nil)
  (c-toggle-auto-hungry-state 1)
  (define-key c-mode-map "\C-m" 'newline-and-indent)
  (setq c-hanging-semi&comma-criteria nil)
  (setq c-hanging-braces-alist
	(append '((class-open after)
		  ) c-hanging-braces-alist))
  (setq c-hanging-braces-alist
	(append '((inline-open after)
		  ) c-hanging-braces-alist))
  )
(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)

(if window-system
    (progn
      (font-lock-mode t)
      (setq font-lock-support-mode 'fast-lock-mode)
      (setq fast-lock-cache-directories '("~/.emacs-flc"))
      ))