;;; -*-Emacs-Lisp-*-
;;; File: .emacs.mew
;;; Setup file for Mew-1.70
;;; Created by R.Kyuji (k9610049@edu.cc.uec.ac.jp) on 23-Apr-98
;;; Last Modified by M.Kuwada (kuwada@ee.uec.ac.jp) on 30-Apr-98
;;;

(load ".emacs-mew")

;;hilitの設定。色が付きます。

(cond
 ((eq window-system 'x)
  (cond
   ((string-match "^19" emacs-version)
    (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)
       ("^[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)))
    )
   )
  (cond
   ((string-match "XEmacs" emacs-version)
    (set-face-font
     'default
     '(
       ;; Europa
       "-*-fixed-medium-r-*--14-*-iso8859-1"
       "-*-fixed-medium-r-*--*-iso8859-1"
       "-*-fixed-medium-r-*--*-iso8859-2"
       "-*-fixed-medium-r-*--*-iso8859-3"
       "-*-fixed-medium-r-*--*-iso8859-4"
       "-*-fixed-medium-r-*--*-iso8859-7"
       "-*-fixed-medium-r-*--*-iso8859-8"
       "-*-fixed-medium-r-*--*-iso8859-5"
       "-*-fixed-medium-r-*--*-iso8859-9"
       ;; Japanese
       "-*-fixed-medium-r-*--14-*-jisx0201.1976-*"
       "-*-fixed-medium-r-*--14-*-jisx0208.1983-*"
       "-*-fixed-medium-r-*--14-*-jisx0212*-*"
       "-*-fixed-medium-r-*--*-jisx0201.1976-*"
       "-*-fixed-medium-r-*--*-jisx0208.1983-*"
       "-*-fixed-medium-r-*--*-jisx0212*-*"
       ;; Chinese fonts
       "-*-*-medium-r-*--*-gb2312.1980-*"
       "-*-fixed-medium-r-*--*-cns11643*-*"
       "-*-fixed-medium-r-*--*-big5*-*"
       "-*-fixed-medium-r-*--*-sisheng_cwnn-0"
       ;; Korean
       "-*-mincho-medium-r-*--*-ksc5601.1987-*"
       ;; Thai
       "-*-fixed-medium-r-*--*-tis620.2529-1"
       )
     'global '(mule-fonts))
;    (add-hook 'mew-message-hook
;	      (function 
;	       (lambda ()
;		 (if mew-xemacs-p
;		     (highlight-headers (point-min) (point-max) nil)))))
    (require 'highlight-headers)
    (set-face-foreground 'message-headers "blue")
    (set-face-foreground 'message-highlighted-header-contents "firebrick")
    (set-face-foreground 'message-header-contents "purple")
;    (set-face-foreground 'message-cited-text "purple")
    (setq highlight-headers-hack-x-face-p t);; X-Face
;    (setq highlight-headers-highlight-citation-too nil)
    (set-specifier scrollbar-height 0)
    )
   )
  )
 (t
  ;; Command line (emacs/mule/xemacs -nw)
  (setq mew-demo nil)
  )
 )

;;;
;;; End
;;;