;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;  Linux MLD5 ユーザ設定ファイルサンプル for xemacs
;;                       

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Xemacsの一般的な設定
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 漢字コードの指定
(set-keyboard-coding-system 'euc-jp)
(set-default-file-coding-system 'euc-jp)
;;日本語フォントと英文フォントのバランス是正
(if (eq (console-type) 'x)
    (set-face-font
     'default
;     '("-*-fixed-medium-r-normal--16-*")
     '("-*-fixed-medium-r-*--16-*-iso8859-*"
       "-*-fixed-medium-r-*--16-*-jisx0208.1976-*"
       "-*-fixed-medium-r-*--16-*-jisx0208.1983-*")
     'global '(mule-fonts) 'prepend))

;; 文字の行間
(set-specifier minimum-line-ascent 5 nil 'x)
(set-specifier minimum-line-descent 3 nil 'x)

;;オープニングメッセージの非表示
(setq inhibit-startup-message t)
;;主モードをテキスト入力・編集モードに設定
(setq initial-major-mode (lambda()(text-mode)
      (turn-on-auto-fill)))
;;バルーンヘルプ
;(require 'balloon-help)
;(balloon-help-mode 1)

;; 行、桁を表示
(setq line-number-mode t)
(setq column-number-mode t)

;; ステータスラインに時間を表示する
(display-time)

;; 最終更新日の自動挿入
;; ファイルの先頭から 8 行以内に Time-stamp: <> または
;; Time-stamp: " " と書いてあれば、セーブ時に自動的に日付が挿入されます
(if (not (memq 'time-stamp write-file-hooks))
    (setq write-file-hooks
          (cons 'time-stamp write-file-hooks)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; CANNAの設定
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;(if (and (boundp 'CANNA) CANNA)
;    (progn
;      ;;フェンスではなくアンダーライン表示
;      ;(setq canna-with-fences nil)
;      ;(setq canna-underline t)
;      
;      (load-library "canna")
;      (canna)
;      ;;Cannaをカラーモードに設定
;      (setq canna-use-color t)
;      ;;C-oで日本語入力
;      (global-set-key "\C-\o" 'canna-toggle-japanese-mode)
;      ;;アンドゥの設定
;      (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)) );
;
;      ;;かんなの変換中に BS & DEL を使う
;      (define-key canna-mode-map [backspace] [?\C-h])
;      (define-key canna-mode-map [delete] [?\C-d])
;
;      ;;かんなの変換中に C-h を使う (with term/keyswap)
;      ;(define-key canna-mode-map [?\177] [?\C-h])
;
;      ))
;(select-input-method "japanese-canna")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Wnn6の設定
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;(if (and (boundp 'CANNA) CANNA)
;    (progn
;      (setq wnn-host-name "localhost")      
;      ;;"nn"で「ん」を入力
;      (setq enable-double-n-syntax t)
;      ;;"."で「.」,","で「,」を入力
;      (setq use-kuten-for-period nil)
;      (setq use-touten-for-comma nil)
;      
;      (select-input-method "japanese-egg-wnn")
;
;))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Mew
;;   メールリーダー Mew
;;   M-x mew で起動します
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; From: に余計なモノ(localhost 名等)が付いたりする場合は、
;; xxxx の部分にドメイン名やメールアドレス等を指定します
;(setq mew-mail-domain-list '("xxx.xxx.xxx"))
;(setq mew-from "xxx@xxx.xxx.xxx")

(autoload 'mew "mew" nil t)
(autoload 'mew-read "mew" nil t)
(autoload 'mew-send "mew" nil t)
;(setq mew-init-hook
;      (function
;       (lambda ()
;        (setq kill-emacs-hook (function mew-mark-process-all-folders)))))
;(setq mew-reply-to nil)

;; XEmacs 版 Mew のアイコンのありか
(setq mew-icon-directory "/usr/lib/xemacs/site-packages/etc/mew")

(cond
 ((string-match "XEmacs" emacs-version)
  (setq file-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))
))

;; 返信時の引用フォーマットの指定
;(setq mew-cite-fields '("From:" "Subject:" "Date:" "Message-ID:"))
;(setq mew-cite-format "From: %s\nSubject: %s\nDate: %s\nMessage-ID: %s\n\n")
;(defvar mew-cite-prefix-function nil)
;;(setq mew-cite-prefix-function 'mew-cite-prefix-username)

;; 起動時にメールを取りにいかないようにする
;(setq mew-auto-get nil)

;; From ヘッダの "" で囲まれた文字も MIME デコードする
;(setq mew-decode-quoted t)

;; スレッド表示を行う
;(setq mew-prog-imls-arg-list '("--thread=yes"))

;; 送信メールを格納
(setq mew-fcc "+outbox")

;; 自分に Bcc をつけない
;(setq mew-mail-address-list
;    '("あなたのメールアドレス" "他にもあれば"))

;; Reply-To ヘッダがある場合そのアドレスにだけ返信
;(setq mew-replyto-to-list '("Reply-To:"))
;(setq mew-replyto-cc-list nil)

;; ドラフトを用意する時に定型文を自動的に挿入する
;(add-hook 'mew-draft-mode-hook
;   (function
;      (lambda()
;         (let ((p (point)))
;         (goto-char (point-max))
;         (insert-file "~/Mail/teikei")
;         (goto-char p)))))

;; 引用(返信)時でも定型文を一番上に挿入する
;(add-hook 'mew-before-cite-hook
;   (lambda() (goto-char (point-max))))

;; 印刷コマンド設定
(setq mew-print-command-format "mpage -2 -P")
(defun mew-print-region (begin end)
     (interactive "r")
     (shell-command-on-region begin end mew-print-command-format))

(defun mew-print-buffer ()
    (interactive)
    (mew-print-region (point-min) (point-max)))
(setq mew-print-function (function mew-print-buffer))

;; この 2 行は通常設定する必要はありませんが、メールアドレスに
;; ホスト名が入って欲しくない場合などに指定します。
;(setq mew-from "hoge@hoge.hoge.or.jp")
;(setq mew-mail-domain "hoge.hoge.or.jp")

;; URL をマウス中クリックでブラウザ起動する様にする
(setq browse-url-browser-function 'browse-url-netscape)
(autoload 'browse-url-at-mouse "browse-url"
   "Ask a WWW browser to load a URL clicked with the mouse." t)
(add-hook 'mew-message-mode-hook
   (function
      (lambda()
         (local-set-key [mouse-2] 'browse-url-at-mouse)
)))

;; らくらく整理整頓
;; マッチするヘッダ、その値、リファイル先のフォルダを書いておくと、
;; 簡単に振り分けができます

;(setq mew-refile-guess-alist
;  '(("Reply-To:"
;      ("vine-users@" . "+ml/vine-users")
;      ("foobar-ml@" . "+ml/FooBarML")
;    )
;    ("From:"
;      ("shaolin@rins" . "+from/shaolin")
;      ("hoge@foo.bar" . "+from/hoge")
;    )
;))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Wanderlust
;;   メールリーダー Wanderlust
;;   M-x wl で起動します
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; これ以外の設定は ~/.wl で行います

(autoload 'wl "wl" "Wanderlust" t)
(autoload 'wl-draft "wl" "Write draft with Wanderlust." t)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; W3
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;W3の設定
;(setq w3-default-homepage "http://www.linux.or.jp/")
;(custom-set-variables
; '(c-default-style "gnu"))
;(custom-set-faces
; '(custom-rogue-face ((((class color)) (:foreground "green" :background "black"))
;)))

;; w3 でプロキシの設定が必要な場合、
;; ~/.w3/profile 内の設定を編集して下さい.
;; 書式は以下の通りです.
;(setq url-proxy-services '(
;      ("http" . "http://proxy.nowhere.ne.jp:8080/")
;      ("ftp" . "http://proxy.nowhere.ne.jp:8080/")
;      ("gopher" . "http://proxy.nowhere.ne.jp:8080/")
;      ("no_proxy" . "://[^/]*nowhere.ne.jp/\\|://192.168"))
;    url-using-proxy t)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 印刷の設定
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq-default lpr-command "lpr")
(setq-default lpr-switches '("-Plp0"))

(setq ps-lpr-command "lpr")
(setq ps-lpr-switches '("-Plp0"))
(setq ps-paper-type 'ps-a4)
(setq ps-print-header nil)
(setq ps-print-header-frame nil)
(setq ps-font-size 8)
(setq ps-print-color-p nil)
(setq ps-wrap-line nil)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; rpm-mode
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; rpm-mode.el は spec ファイルの作成に便利です。
;; ~/lib/emacs に /usr/doc/rpm/rpm-mode.el をコピーして以下の設定を
;; 行ってください。

;(setq auto-mode-alist (nconc '(("\\.spec" . rpm-mode)) auto-mode-alist))
;(autoload 'rpm-mode "rpm-mode" "Major mode for editing SPEC file of RPM." t) 
;(setq packager "Vine User <vine@hoge.fuga>");自分の名前
;      (setq buildrootroot "/tmp");BuildRootの場所
;      (setq projectoname "Project Vine (Vine Plus)");プロジェクト名 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; YaTeX
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)

;; YaTeX-mode
(setq auto-mode-alist
      (cons (cons "\\.tex$" 'yatex-mode) auto-mode-alist))
(setq dvi2-command "xdvi"
      tex-command "platex"
      dviprint-command-format "dvips %s | lpr"
      YaTeX-kanji-code 3)

;; YaHtml-mode
(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 "netscape")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; このファイルに間違いがあった場合に全てを無効にします
;(put 'eval-expression 'disabled nil)