X-Face を作ろう。

ネコ。
(pmk=Shp4j_L$4!ZF6＠｀*f?6C/J*wy10`z+Q_{*!\YB)+-ll}jdEd3+(NhZslP!C%!BH%U&{
B\)2k(Y\8&~\X&z;IQ

モナ。
/d)K-JK6t'kw1gk.Y*>}W84&sG/SvZPM＠｀*orz`Q0lBw-l<;FpyF6ls%8B<w4dbTe$(MZv`<
_$\?/hI^D)"iWAI

どちらも各行頭に半角スペースが必要。
はぁ。。。なにしてんだろ俺。。。

おつかれですね。

まず、.emacs の内容です。

(if (string-match "XEmacs" emacs-version)
(load (expand-file-name "~/.xemacs.el") nil t nil)
(load (expand-file-name "~/.emacs.el") nil t nil)
)

次に読んでいる.emacs.el の内容です。

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; FSF Emacs 20 用 ユーザ設定ファイルのサンプル
;; MATSUBAYASHI 'Shaolin' Kohji ([email protected]>
;; modified by Jun Nishii <[email protected]>
;; Time-stamp: <2000-06-22 10:47:19 ryo>
;; ベースにした設定ファイル：
;; PJE-0.1 ユーザ設定ファイルサンプル for emacs(mule)
;; MATSUMOTO Shoji ([email protected])


;;; 初期設定ファイルの指定

(setq user-init-file "~/.emacs.el")

;;; 言語環境の指定

(set-language-environment "Japanese")

;;; 漢字コードの指定

(set-default-coding-systems 'euc-jp)
(set-buffer-file-coding-system 'euc-jp-unix)
(set-terminal-coding-system 'euc-jp)
(set-keyboard-coding-system 'euc-jp)

;;; 一行が 80 字以上になった時には自動改行する
(setq fill-column 80)
(setq text-mode-hook 'turn-on-auto-fill)
(setq default-major-mode 'text-mode)

;; 環境変数 EMACS_IME を調べる。- 現在のところ、canna または Canna なら、
;; 「かんな」を使用する。それ以外の場合は Wnn を使用する。

(setq emacs-ime (getenv "EMACS_IME"))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Egg (Wnn フロントエンド) の設定
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;(if (or (equal emacs-ime "wnn")
;; (equal emacs-ime "Wnn")
;; (equal emacs-ime "wnn6")
;; (equal emacs-ime "Wnn6")
;; )
;; (progn
;; (autoload 'egg "egg" "Initialize EGG." t)
;; (egg)
;; (global-set-key "\C-\\" 'toggle-egg-mode)
;; (define-key isearch-mode-map "\C-\\" 'isearch-fep-egg)
;; (autoload 'toggle-egg-mode "egg" "Initialize EGG." t)
;; (autoload 'isearch-fep-egg "isearch-ext"
;; "Read string for incremental search by using egg." t)

;; (setq egg-default-startup-file "eggrc-wnn") ; 95.6.1 by S.Tomura
;; (garbage-collect)

;; jserver のリストを次の様にして指定できます
;;(setq jserver-list '("vanilla" "espresso"))
;; (setq jserver-list '("localhost"))

;; "nn" で「ん」を入力
;; (setq enable-double-n-syntax t)

;; "." で「．」、"＠｀" で「，」を入力。
;; (setq use-kuten-for-period nil)
;; (setq use-touten-for-comma nil)

;; 1234567890%#%"' を「半角」で入力"
;; (let ((its:*defrule-verbose* nil))
;; (its-define-mode "roma-kana")
;; (dolist (symbol '("1" "2" "3" "4" "5"
;; "6" "7" "8" "9" "0"
;; "#" "%" "\"" "'" ))
;; (its-defrule symbol symbol)))

;; おまけ :-)
;;(set-egg-fence-mode-format "♪" "♪" 'highlight)
;; )
;;)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; かんなの設定
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(if (or (equal emacs-ime "canna")
(equal emacs-ime "Canna")
)
(progn
(load-library "canna")

;; color-mate を使わないで、漢字変換に色を付けたい時に
;;(setq canna-use-color t)

;; フェンスモードでなくアンダーラインを使う
;;(setq canna-with-fences nil)
;;(setq canna-underline t)

(canna)

;; Canna を Ctrl-\ で起動します。コメントアウトすれば、
;; Ctrl-\ で skk が立ち上がります。
(global-set-key "\C-\\" '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-h])

;;かんなの変換中に C-h を使う (with term/keyswap)
(define-key canna-mode-map [?\177] [?\C-h])
)
)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; SKK-9.6m
;; Mule 上の仮名漢字変換システム SKK の設定
;; C-x t でチュートリアルが起動します
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;; 使用する辞書の設定 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; SKK-JISYO.L をメモリ上に読み込んで利用する場合
(setq skk-large-jisyo "/usr/share/skk/SKK-JISYO.L")

;;; SKK-JISYO.M をメモリ上に読み込み、
;;; 見付からない場合は skkserv を起動して SKK-JISYO.L から検索する場合
;;; (skkexdic パッケージが必要です)
;;(setq skk-large-jisyo "/usr/share/skk/SKK-JISYO.M")
;;(setq skk-aux-large-jisyo "/usr/share/skk/SKK-JISYO.L")
;;(setq skk-server-portnum 1178)
;;(setq skk-server-host "localhost")
;;(setq skk-server-prog "/usr/libexec/skkserv")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(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)
(autoload 'skk-mode "skk" nil t)
(autoload 'skk-auto-fill-mode "skk" nil t)
(autoload 'skk-tutorial "skk-tut" nil t)
(autoload 'skk-isearch-mode-setup "skk-isearch" nil t)
(autoload 'skk-isearch-mode-cleanup "skk-isearch" nil t)
(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)
(skk-set-cursor-color-properly) ))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; SEMI
;; Vine 1.9 からは tm (Tiny Mime) の代りに semi を使います
;; (Mew は tm や semi なしでも MIME に対応しています)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(require 'mime-setup)
(load "path-util")
(setq rmail-enable-mime t)

;; rail-1.0.2 を使って User-Agent: フィールドのコードネームを日本語化する
(setq rail-emulate-genjis t)
(if (module-installed-p 'rail) (load "rail"))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; T-Gnus 6.13.3 (参考)
;; NetNews リーダー GNUS (SEMI 対応版)
;; M-x gnus で起動します
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; News Server 名やドメイン名を適切に指定してください
;(setq gnus-nntp-server "news.hoge.hoge.or.jp")
;(setq gnus-local-domain "hoge.hoge.or.jp")
;(setq gnus-local-organization "HogeHoGe Org.")
;(setq gnus-use-generic-from t)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Mew 1.94 - Messaging in the Emacs World
;; メールリーダー Mew
;; M-x mew で起動します
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)

;; 返信時の引用フォーマットの指定
(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-auto-get nil)

;; From: に余計なもの (localhost 名等) が付いたりする場合は，
;; xxxx の部分にドメイン名を指定します
;(setq mew-mail-domain-list '("xxxx.xxxx.xxxx.xxxx"))

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

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

;; 自分に 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))

;;; URL をマウス中クリックでブラウザ起動する様にする
(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")
; ("[email protected]" . "+from/hoge")
; )
;))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; color-mate の設定読み込み
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(load "~/.emacs-color.el")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; X 版 Emacs/Mule で色を付ける
;; color-mate を使わない時にどうぞ

;(cond
; ((and window-system (>= (string-to-int emacs-version) 19))
; (setq hilit-mode-enable-list nil
; hilit-background-mode 'light
; hilit-inhibit-hooks nil
; hilit-inhibit-rebinding nil)
; (require 'hilit19)
; ;;
; (add-hook 'mew-message-hook
; 'hilit-rehighlight-buffer-quietly)
; (hilit-set-mode-patterns
; '(mew-message-mode)
; '(("^Subject:.*$" nil msg-subject)
; ("^From:.*$" nil msg-from)
; ("^X-.*:.*$" nil msg-quote)
; ("^>.*$" nil msg-quote)
; ("^[A-Za-z][A-Za-z0-9-]+:" nil msg-header)))
; (add-hook 'mew-draft-mode-hook
; 'hilit-rehighlight-buffer-quietly)
; (hilit-set-mode-patterns
; '(mew-draft-mode)
; '(("^Subject:.*$" nil msg-subject)
; ("^From:.*$" nil msg-from)
; ("^>.*$" nil msg-quote)
; ("^[A-Za-z][A-Za-z0-9-]+:" nil msg-header)))
; )
; )


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Wanderlust 2.2.12
;; IMAP にも対応したメール/ニュースリーダ
;; これ以外の設定は ~/.wl で行います
;; ~/.wl のサンプルは /usr/doc/Wanderlust-2.2.12 以下にあります
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; X-Face-Mule
;; Mew や Wanderlust などで、X-Face 画像つきのメッセージを表示します
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(if (and window-system (module-installed-p 'bitmap))
(progn
(require 'bitmap)
(mapcar (lambda (fontset)
(set-fontset-font
fontset 'bitmap
"-etl-fixed-medium-r-*--16-*-100-100-m-*-bitmap.8x16-0"))
(fontset-list))

; for Wanderlust
(setq wl-highlight-x-face-func
'x-face-mule-x-face-decode-message-header)

; for Mew
(setq mew-use-highlight-x-face t)
(setq mew-use-highlight-x-face-function
(function
(lambda (beg end)
(x-face-mule-x-face-decode-message-header beg end))))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; irchat-pj-2.4.24.07
;; IRC (チャット) クライアントの設定
;; M-x irchat で起動します
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(autoload 'irchat "irchat" nil t)

;;; IRC server の指定
;;; (いずれか一つをコメントアウトします)
;;(setq irchat-server "irc.tohoku.ac.jp")
;;(setq irchat-server "irc.kyutech.ac.jp")
;;(setq irchat-server "irc.tokyo.wide.ad.jp")
;;(setq irchat-server "irc.kyoto.wide.ad.jp")
;;(setq irchat-server "irc.huie.hokudai.ac.jp")
;;(setq irchat-server "irc.cc.yamaguchi-u.ac.jp")
;;(setq irchat-server "irc.karrn.ad.jp")
;;(setq irchat-server "irc.kyoto.wide.ad.jp")

;;; ユーザー名とニックネーム
;;; (nick は半角英数および []{}_\^ からなる最大 9 文字の文字列です)
(setq irchat-name "IRC sample user")
(setq irchat-nickname "VineUser")

;;; デフォルトで参加するチャンネルのリスト
;;; （ここに書いたチャンネルには irchat の起動と同時に参加できます）
;;(setq irchat-startup-channel-list '("#linuxjp＠｀#vinetest"))
(setq irchat-startup-channel-list '("#vinetest"))

;;; オプション
;;; 詳細は /usr/doc/irchat-pj-2.4.24.07/doc 以下のファイルを参照
(setq irchat-reconnect-automagic t) ; 切れた場合に再接続を試みる
;;(setq irchat-channel-buffer-mode t) ; チャネル分割表示モード
;;(setq irchat-display-channel-always t)
;;(setq irchat-default-freeze-local nil)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; YaTeX 1.67
;; [La]TeX 入力モード
;; M-x yatex とするか、.tex で終わるファイルを読み込むと起動します
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(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")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; dic (eldic.el)
;; Mule 上で dic を利用するための設定です
;; ~/lib/emacs に /usr/doc/dic/eldic.el をコピーして
;; dic-shell-file-name の辺りを適切に設定してください。
;; C-c C-c C-e で英和、C-c C-c C-j で和英が引けます。
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;(global-set-key "\C-c\C-c\C-e" 'lookup-edic)
;;(global-set-key "\C-c\C-c\C-j" 'lookup-jdic)
;;(autoload 'lookup-edic "eldic" nil t)
;;(autoload 'lookup-jdic "eldic" nil t);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; その他の設定
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; マクロサーチパスの追加
;;; ~/lib/emacs 以下にユーザ用の *.el＠｀ *.elc を置くことができます
;;(setq load-path (append '("~/lib/emacs") load-path))

;;; C-h と Del の入れ替え
;;; Help が Shift + Ctrl + h および Del に割当てられ、
;;; 前一文字削除が Ctrl + h に割当てられます
;;(load-library "term/keyswap")
;;(if (eq window-system 'x)
;; (progn
;; (define-key function-key-map [delete] [8])
;; (put 'delete 'ascii-character 8)))

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

;;; mule/emacs -nw で起動した時にメニューバーを消す
;;(if window-system (menu-bar-mode 1) (menu-bar-mode -1))

;;; スクロールバーを右側に表示する
;;(set-scroll-bar-mode 'right)

;;; 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 <[email protected]>");自分の名前
; (setq buildrootroot "/tmp");BuildRootの場所
; (setq projectoname "Project Vine (Vine Plus)");プロジェクト名

;;;印刷設定
;(setq-default lpr-switches '("-Pepson"))
(setq-default lpr-switches '("-2P"))
(setq-default lpr-command "mpage")

;;;バッファの最後でnewlineで新規行を追加するのを禁止する

(setq next-line-add-newlines nil)


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

;;;
;;; GPG の設定
;;;
(setq pgp-version 'gpg)

;;;
;;; bbdb の設定
;;;
(require 'bbdb-wl)
(bbdb-wl-setup)
(add-hook 'wl-mail-setup-hook 'bbdb-insinuate-sendmail)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(require 'bbdb)
(autoload 'bbdb "bbdb-com" "Insidious Big Brother Database" t)
(autoload 'bbdb-name "bbdb-com" "Insidious Big Brother Database" t)
(autoload 'bbdb-company "bbdb-com" "Insidious Big Brother Database" t)
(autoload 'bbdb-net "bbdb-com" "Insidious Big Brother Database" t)
(autoload 'bbdb-notes "bbdb-com" "Insidious Big Brother Database" t)
;;(autoload 'bbdb-insinuate-vm "bbdb-vm" "Hook BBDB into VM")
;;(autoload 'bbdb-insinuate-rmail "bbdb-rmail" "Hook BBDB into RMAIL")
;;(autoload 'bbdb-insinuate-mh "bbdb-mhe" "Hook BBDB into MH-E")
;;(autoload 'bbdb-insinuate-gnus "bbdb-gnus" "Hook BBDB into GNUS")
;;(autoload 'bbdb-insinuate-sendmail "bbdb" "Hook BBDB into sendmail")

(bbdb-initialize)
(setq bbdb-file "~/.bbdb") ;(concat TT:mule-save-dir "~/.bbdb")
(setq bbdb/mail-auto-create-p 'bbdb-ignore-some-messages-hook)
(setq bbdb-ignore-some-messages-alist
'(("From" . "MAILER-DAEMON\\|iso-2022-jp\\|ISO-2022-JP")))
(setq bbdb-pop-up-elided-display '(creation-date timestamp))
(setq bbdb-user-mail-names "ryo@sra\\.co\\.jp")

;; BBDB windowの高さ
(setq bbdb-pop-up-target-lines 5)
;; ポップアップ表示
(setq bbdb-use-pop-up t)
(setq signature-use-bbdb t)
(setq bbdb-north-american-phone-numbers-p nil)
;; サマリに bbdb の名前を表示 :-)。
;(setq wl-summary-from-func 'bbdb-wl-from-func)
;; 自動的に ML フィールドを加える
(add-hook 'bbdb-notice-hook 'bbdb-auto-notes-hook)
;; wl-folder-suspendしたときにBBDBフィールドを消す
(defadvice wl-folder-suspend (after wl-bbdb-suspend activate compile)
(interactive)
(bbdb-wl-exit))
(defadvice wl-exit (after wl-bbdb-suspend activate compile)
(interactive)
(bbdb-wl-exit))

;;;
;;; carm の設定
;;;
(autoload 'carm-cite "carm")
(setq carm-pgg-scheme 'gpg)

; For Gnus＠｀ T-gnus
;(setq message-cite-function (function carm-cite)

; For rmail＠｀ wl
(setq mail-citation-hook 'carm-cite)

(setq carm-message-top-format
'("At " Date ＠｀"\n"
From " wrote:\n"))
;; '("From: " From "\n"
;; "Subject: " Subject "\n"
;; "Date: " Date "\n"
;; "Message-Id: "Message-Id "\n"))

;;;
;;; JDE(Java Development Environment) の設定
;;;

(setq load-path (cons "/usr/share/emacs/site-lisp/cc-mode-5.26" load-path))
(setq load-path (cons "/usr/share/emacs/site-lisp/custom-1.9962" load-path))
(setq load-path (cons "/usr/share/emacs/site-lisp/jde-2.16/lisp" load-path))
(setq load-path (cons "/usr/share/emacs/site-lisp/speedbar-0.11" load-path))
(setq load-path (cons "/usr/share/emacs/site-lisp/semantic-1.1" load-path))

(require 'jde)

;;;
;;; For boiling-egg
;;;
;;(load-library "/home/ryo/boiling-egg.elc")
(autoload 'boiling-rK-trans "boiling-egg" "romaji-kanji conversion" t)
(autoload 'boiling-rhkR-trans "boiling-egg" "romaji-kana conversion" t)
(global-set-key "\C-j" 'boiling-rK-trans)
(global-set-key "\eo" 'boiling-rhkR-trans)

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

(load "term/bobcat")

;;このように最後に足してみたのですが....

(if (string-match "XEmacs" emacs-version)
(load (expand-file-name "~/.emacsen/xemacs.el") nil t nil)
(load (expand-file-name "~/.emacsen/emacs.el") nil t nil))

;;; $HOME に .emacses というディレクトリを掘ってそこに xemacs.el＠｀ emacs.el を入れる。

;;;;;;;;;;;;;;;;;;;;;;
;;;;;;; .emacs ;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;

;;;(setq debug-on-error t) ; for debug mode

(setq load-path (cons (expand-file-name "~/.emacsen/emacs" ) load-path))
(setq load-path (cons (expand-file-name "~/.emacsen/common" ) load-path))

;;; generic setting
(load "generic.el-1")

;;; for Wanderlust
;(load "wl.el-1")

;;; for mew
(load "mew.el-1")
(load "x-face-mule.el-1")

;;; for T-gnus
;(load "gnus.el-1")

;;; for W3
;(load "w3.el-1")

;;; Scroll
(load "ce-scroll.el")
(setq ce-smooth-scroll nil)

;;; misc
(load "etc.el-1")
;(load "java.el-1")
;(load "c.el-1")
;(load "pg.el-1")
(load "lookup.el-1")

;;; skk
(load "skk.el-1")

;;; egg.
;(load "egg.el-1")

;;; eof.

;;; $HOME/.emacsen/emacs に Emacs 固有の設定ファイルを置き
;;; XEmacs と共通する設定ファイルは $HOME/.emacsen/common に入れる。
;;; エラーになったときの切り分けがしやすいように各設定ファイルを分ける。

% ls $HOME/.emacsen
common/ emacs.el xemacs.el
emacs/ xemacs/
% ls $HOME/.emacsen/common
egg.el-1 gnus.el-1 mew.el-1 w3.el-1
eshell.el-1 java.el-1 pg.el-1 wl.el-1
c.el-1 etc.el-1 lookup.el-1 skk.el-1

%ls $HOME/.emacsen/emacs
ce-scroll.el x-face-mule.el-1
generic.el-1