;
; .emacs $Id: .emacs,v 1.3 2003/01/24 22:16:00 kay Exp $
;

;; For C mode
;; Turn off inserting tab characters into your .emacs buffer.  Use only spaces.
(setq-default indent-tabs-mode nil)

(menu-bar-mode 0)
(tool-bar-mode 0)
(display-time-mode 1)
(setq display-time-24hr-format 1)

;(set-default-font "fontset-standard")
(set-terminal-coding-system 'iso-2022-jp)
(set-buffer-file-coding-system 'iso-2022-jp)

;; Following must be included in ~/.emacs
;; (No need if installed as XEmacs package.)
(autoload 'wl "wl" "Wanderlust" t)
(autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t)

;; Icon directory
;; (No need if installed as XEmacs package.)
;(setq wl-icon-directory "/usr/share/emacs/21.2/etc")

;; [[ SEMI Setting ]]

;; Disable inline display of HTML part.
;; Put before load `mime-setup'
(setq mime-setup-enable-inline-html nil)

;; Don't split large message.
(setq mime-edit-split-message nil)

;; If lines of message are larger than this value, treat it as `large'.
;(setq mime-edit-message-default-max-lines 1000)

;; [[ skk ]]
(autoload 'skk-mode "skk" nil t)
(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)
(add-hook 'isearch-mode-hook
	  (function (lambda ()
		      (and (boundp 'skk-mode) skk-mode
			   (skk-isearch-mode-setup) ))))

(add-hook 'isearch-mode-end-hook
	  (function (lambda ()
		      (and (boundp 'skk-mode) skk-mode
			   (skk-isearch-mode-cleanup) )
		      (and (boundp 'skk-mode-invoked) skk-mode-invoked
			   (skk-set-cursor-properly) ))))

(setq skk-large-jisyo "/usr/share/skk/SKK-JISYO.L")

;; [[ automatic browser ]]
(setq gnus-button-url 'browse-url-generic
      browse-url-generic-program "opera"
      browse-url-browser-function gnus-button-url)

;;; Emacs/W3 Configuration
(setq load-path (cons "/usr/share/emacs/site-lisp" load-path))
(condition-case () (require 'w3-auto "w3-auto") (error nil))