;----- initial setup
(setq inhibit-startup-message t)
(setq line-number-mode t)
(setq mode-line-inverse-video t)
(global-set-key "\C-h" 'delete-backward-char)
;(load-library "term/bobcat")
(setq next-line-add-newlines nil)
       (defun previous-line (arg)
         (interactive "p")
         (condition-case nil
             (line-move (- arg))
           (beginning-of-buffer)))
(line-number-mode 1)
(setq-default indent-tabs-mode nil)
(setq-default tab-width 4)
(setq-default zmacs-regions nil)

; X-Faceの設定
(autoload 'x-face-encode "x-face"
  "Generate X-Face string(s) from xbm file." t)
(autoload 'x-face-insert "x-face"
  "Insert X-Face fields." t)
(autoload 'x-face-save "x-face"
  "Save X-Face fields to files." t)
(autoload 'x-face-view "x-face"
  "View X-Face fields." t)
(autoload 'x-face-ascii-view "x-face"
  "View X-Face fields as ascii pictures." t)

; X-Faceの設定(XEmacs の場合のみ)
(autoload 'x-face-xmas-display-x-face "x-face"
  "Display X-Face fields as XEmacs-glyph." t)
(autoload 'x-face-xmas-force-display-x-face "x-face"
  "Display X-Face fields compulsorily as XEmacs glyph." t)
(autoload 'x-face-xmas-remove-x-face-glyph "x-face"
  "Remove X-Face images and some text-properties." t)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Mew ;;;;;;;;;
;;;       Mew (Ver.1.94)                                             ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Site configuration
;;;
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
(setq mew-mail-domain-list '("domainname"))
(setq mew-icon-directory "/usr/local/lib/xemacs-21.1.6/etc/mew")
(setq mew-replyto-to-list '("Reply-To:"))
(setq mew-fcc "+Backup")
(setq mew-window-use-full t)

(autoload 'x-face-xmas-mew-display-x-face "x-face" nil t)
(setq mew-use-highlight-x-face-function 'x-face-xmas-mew-display-x-face)

;;;
;;; Window tips
;;;
;; If you use XEmacs and your video chip provides only limited
;; color map(e.g. 256), put the following line to avoid exhaustion
;; of colors.
(setq mew-demo-picture nil)
(cond
 ((string-match "XEmacs" emacs-version)
  (setq url-be-asynchronous t)
  (setq-default buffer-file-coding-system 'iso-2022-jp)
  (setq keyboard-coding-system    'iso-2022-jp)
  (setq terminal-coding-system    'iso-2022-jp)
  (add-menu-item '("Apps") "Read Mail (Mew)" 'mew t "Read Mail (VM)...")
  (add-menu-item '("Apps") "Send Mail (Mew)" 'mew-send t "Read Mail (VM)...")
  (delete-menu-item '("Apps" "Read Mail (VM)..."))
  (delete-menu-item '("Apps" "Read Mail (MH)..."))
  (delete-menu-item '("Apps" "Send mail..."))
  (setq toolbar-mail-reader 'Mew)
  (setq toolbar-mail-commands-alist
	(cons '(Mew . mew) toolbar-mail-commands-alist))
  )
 ((string< "20" emacs-version)
  (setq standard-fontset-spec14
	"-*-fixed-medium-r-normal-*-14-*-*-*-*-*-fontset-standard")
  (create-fontset-from-fontset-spec standard-fontset-spec14 nil 'noerror)
  (set-default-font standard-fontset-spec14)
  (setup-japanese-environment)
  )
 (t ;; Mule 2.3 or Emacs 19
  )
 )

;;;
;;; Citation tip
;;;
(setq mew-cite-fields '("From:" "Subject:" "Date:" "Message-ID:"))
(setq mew-cite-format "From: %s\nSubject: %s\nDate: %s\nMessage-ID: %s\n\n")
(setq mew-cite-prefix-function 'mew-cite-prefix-username)

(setq mew-signature-file "~/.signature")
(setq mew-signature-insert-last t)

;;;
;;; Thread tip
;;;
;; Now threading is insufficient,but partially makes enough by comment out following line.
(setq mew-prog-imls-arg-list '("--thread=yes" "--indent=2"))
;;;
;;; Miscellaneous
;;;
(setq mew-underline-lines-use t)
(setq mew-use-highlight-body t)
;; If you use Wnn4/6,sj3 or Canna, comment out following line.
(setq mew-use-overlay-keymap nil)
;;;                                                       Mew end

;----- Canna -----
(if (and (boundp 'CANNA) CANNA) ; 『かんな/emacs』であることを確認して
    ;;『かんな/emacs』の場合だけ以下を実行します。
    (progn
     (load-library "canna")     ;ライブラリのロード

     (setq canna-do-keybind-for-functionkeys t)
     (setq canna-server "hostnamme.domainname") ;かな漢字変換サーバの指定
;     (setq canna-file (expand-file-name "~/.canna-emacs"))

     (global-set-key "\C-c\C-d" 'canna-touroku)
     (global-set-key "\e[209z" 'canna-japanese-mode) ;NFER
     (global-set-key "\C-_" 'canna-undo) ;アンドゥの設定
     (setq canna-save-undo-text-predicate ;アンドゥバッファへ入れる条件
           '(lambda (s) (> (length (car s)) 2)) )
     (setq canna-undo-hook ;アンドゥ＋α
           '(lambda () (message "再変換します....")
                       (canna-do-function canna-func-henkan)) )
    ))

(set-face-font
 'default
 '(
   "-misc-fixed-medium-r-normal--12-110-*-*-c-70-iso8859-1"
   "-misc-fixed-medium-r-normal--13-132-75-75-c-70-jisx0201.1976-0"
   "-misc-fixed-medium-r-normal--13-132-75-75-c-140-jisx0208.1983-0"
   "-jis-fixed-medium-r-normal--16-150-75-75-c-160-jisx0208.1983-0"
   "-misc-fixed-medium-r-normal--14-132-75-75-c-140-jisx0212.1990-0"
   )
)
(custom-set-variables
 '(default-input-method (quote japanese-canna)))
(custom-set-faces)