●「~/.xemacs/init.el」の内容。「language-env」が生成した部分を除く。

;;(setq mew-pop-server "your POP server")    ;; if not localhost
(setq mew-smtp-server "smtp.nifty.com")  ;; if not localhost
(setq mew-icon-directory "/usr/share/pixmaps/mew") ;; if using XEmacs
;; See also mew-config-alist for advanced use
;; To use local mailbox "mbox" or "maildir" instead of POP
(setq mew-mailbox-type 'mbox)
(setq mew-mbox-command "incm")
(setq mew-mbox-command-arg "-d /var/spool/mail/xxxxxxxx")
;; If /path/to/mbox is a file, it means "mbox".
;; If /path/to/mbox is a directory, it means "maildir".


;;;;; set frame size
(setq default-frame-alist (append (list
   '(width . 100)
   '(height . 40))
   default-frame-alist))


;;; setting for psgml (from info)
(autoload 'sgml-mode "psgml" "Major mode to edit SGML files." t)
(autoload 'xml-mode "psgml" "Major mode to edit XML files." t)
;;; from the driver file of the DocBook DTD.
;;; see under directory /usr/share/sgml/docbook/dtd/xml/
(setq sgml-custom-dtd '(
 ( "DocBook 4.2CR1 XML Article"
      "<?xml version=\"1.0\" encoding=\"euc-jp\"?>
      <!DOCTYPE article PUBLIC \"-//OASIS//DTD DocBook XML V4.2CR1//EN\"
       \"/usr/share/sgml/docbook/dtd/xml/4.2/docbookx.dtd\">" )
 ( "DocBook 4.1.2 XML Article"
      "<?xml version=\"1.0\" encoding=\"euc-jp\"?>
      <!DOCTYPE article PUBLIC \"-//OASIS//DTD DocBook XML V4.1.2//EN\"
       \"/usr/share/sgml/docbook/dtd/xml/4.1.2/docbookx.dtd\">" )
 ( "DocBook 4.2 Article"
      "<!DOCTYPE article PUBLIC \"-//OASIS//DTD DocBook V4.2CR1//EN\"
       \"/usr/share/sgml/docbook/dtd/4.2.cr1/docbook.dtd\">" )
 ( "DocBook 4.1 Article"
      "<!DOCTYPE article PUBLIC \"-//OASIS//DTD DocBook V4.1//EN\"
       \"/usr/share/sgml/docbook/dtd/4.1/docbook.dtd\">" )
))

;; バッファを印刷する
(setq print-command-format "e2ps -a4 -p -head xemacs_buffer | lpr2")
  (defun print-region (begin end)
    (interactive "r")
      (shell-command-on-region begin end print-command-format))
  (defun print-buffer ()
    (interactive)
      (print-region (point-min) (point-max)))
(setq print-function (function print-buffer))

;;; 起動時メッセージを表示しない
(setq inhibit-startup-message t)

;;; 現在の日付を挿入する
(defun ins-date ()
  (interactive)
  (insert (current-time-string)))
(define-key global-map "\C-xt" 'ins-date)

;;; Mewをツールバーボタン(Mail)へ登録
(setq toolbar-mail-reader 'Mew)
(setq toolbar-mail-commands-alist
	(cons '(Mew . mew) toolbar-mail-commands-alist))
;;; WLをツールバーボタン(News)へ登録
(setq toolbar-news-reader 'WL)
(setq toolbar-news-commands-alist
      (cons '(WL . wl) toolbar-news-commands-alist))

;;; 指定した規則から推測
(setq mew-refile-guess-alist
  '(("From:"
      ("zdnet.co.jp" . "+zdnet")
      ("newsletter@japan.cnet.com" . "+cnet")
      ("nikkeibp.co.jp" . "+nikkei")
      ("jpxoops@myweb.ne.jp" . "+jpxoops")
   )))

;;; php-mode
;;; /usr/share/emacs/site-lisp/php-elisp/php-mode.el
;(load-library "php-mode-102")
(load-library "php-mode")
(add-hook 'php-mode-user-hook 'turn-on-font-lock)