[mew-dist 28392] Re: メールヘッダの配色

[Tatsuya Kinoshita]

On May 8, 2008, [mew-dist 28387],
kuroishi.mitsuo (at gmail.com) wrote:

> .mew-theme.el を頑張って設定したりしたんですが，任意のヘッダに任意の色
> を設定するには，結局本体側をいじって実現しました．

本体をいじらなくても、mew-field-spec変数だけ手元に抱えてsetqで変更
すれば済むのではないでしょうか。

> メールヘッダの配色ですが， default の Mew では， google のロゴよろしく
> カラフルすぎて，実はあまり好みではありません．

参考までに、個人的に使っている~/.mew-theme.elを添付します。地味に
したい方はどうぞ。

-- 
木下達也
-------------- next part --------------
;;; .mew-theme.el --- simple/monochrome theme file for Mew

;; Author: Tatsuya Kinoshita <tats at example.com>
;; Created: Mar  1, 2002
;; Revised: May  8, 2008

;; Unlimited permission is granted to use, copy, distribute and/or modify
;; this file.  There is NO WARRANTY.

;; This file is for Mew 3.3 and later versions.

;; A sample of ~/.mew.el:
;;
;; (setq mew-use-highlight-mark nil)
;; (setq mew-use-highlight-header t)
;; (setq mew-use-highlight-body t)
;; (setq mew-highlight-body-max-size 10000)
;; (setq mew-use-highlight-url nil)
;; (setq mew-use-highlight-cursor-line t)
;; (setq mew-use-highlight-mouse-line nil)
;; ;;;(setq mew-use-highlight-x-face nil)
;;
;; (unless (fboundp 'mew-face-spec-set)
;;   ;; for Mew 2.0-3.0.66
;;   (if (or (featurep 'xemacs) (>= emacs-major-version 21))
;;       (defalias 'mew-face-spec-set 'face-spec-set)
;;     (defun mew-face-spec-set (face spec)
;;       "Set FACE's attributes according to the first matching entry in SPEC
;; on all frames."
;;       (custom-set-faces `(,face ,spec)))))
;;
;; (setq mew-theme-file "~/.mew-theme")
;; (load mew-theme-file 'no-err 'no-msg)

;;; Code:

;; Highlight header
(mew-face-spec-set
 'mew-face-header-subject
 '((((class color) (type tty)) (:bold t))
   (((class color) (background light)) (:foreground "gray20" :bold t))
   (((class color) (background dark))  (:foreground "gray90" :bold t))
   (t (:bold t))))
(mew-face-spec-set
 'mew-face-header-from
 '((((class color) (type tty)) (:bold t))
   (((class color) (background light)) (:foreground "gray20" :bold t))
   (((class color) (background dark))  (:foreground "gray90" :bold t))
   (t (:bold t))))
(mew-face-spec-set
 'mew-face-header-date
 '((((class color) (type tty)) (nil))
   (((class color) (background light)) (:foreground "gray60"))
   (((class color) (background dark))  (:foreground "gray70"))
   (t (nil))))
(mew-face-spec-set
 'mew-face-header-to
 '((((class color) (type tty)) (:bold t))
   (((class color) (background light)) (:foreground "gray20" :bold t))
   (((class color) (background dark))  (:foreground "gray90" :bold t))
   (t (:bold t))))
(mew-face-spec-set
 'mew-face-header-key
 '((((class color) (type tty)) (nil))
   (((class color) (background light)) (:foreground "gray60"))
   (((class color) (background dark))  (:foreground "gray70"))
   (t (nil))))
(mew-face-spec-set
 'mew-face-header-private
 '((((class color) (type tty)) (nil))
   (((class color) (background light)) (:foreground "gray60"))
   (((class color) (background dark))  (:foreground "gray70"))
   (t (nil))))
(mew-face-spec-set
 'mew-face-header-important
 '((((class color) (type tty)) (nil))
   (((class color) (background light)) (:foreground "gray60"))
   (((class color) (background dark))  (:foreground "gray70"))
   (t (nil))))
(mew-face-spec-set
 'mew-face-header-marginal
 '((((class color) (type tty)) (nil))
   (((class color) (background light)) (:foreground "gray60"))
   (((class color) (background dark))  (:foreground "gray70"))
   (t (nil))))
(mew-face-spec-set
 'mew-face-header-xmew
 '((((class color) (type tty)) (nil))
   (((class color) (background light)) (:foreground "gray60"))
   (((class color) (background dark))  (:foreground "gray70"))
   (t (nil))))
(mew-face-spec-set
 'mew-face-header-xmew-bad
 '((((class color) (type tty)) (nil))
   (((class color) (background light)) (:foreground "gray60"))
   (((class color) (background dark))  (:foreground "gray70"))
   (t (nil))))

;; Highlight body
(mew-face-spec-set
 'mew-face-body-url
 '((((class color) (type tty)) (nil))
   (((class color) (background light)) (nil))
   (((class color) (background dark))  (nil))
   (t (nil))))
(mew-face-spec-set
 'mew-face-body-comment
 '((((class color) (type tty)) (nil))
   (((class color) (background light)) (nil))
   (((class color) (background dark))  (nil))
   (t (nil))))
(mew-face-spec-set
 'mew-face-body-cite1
 '((((class color) (type tty)) (nil))
   (((class color) (background light)) (:foreground "gray60" :bold t))
   (((class color) (background dark))  (:foreground "gray70" :bold t))
   (t (nil))))
(mew-face-spec-set
 'mew-face-body-cite2
 '((((class color) (type tty)) (nil))
   (((class color) (background light)) (:foreground "gray60" :bold t))
   (((class color) (background dark))  (:foreground "gray70" :bold t))
   (t (nil))))
(mew-face-spec-set
 'mew-face-body-cite3
 '((((class color) (type tty)) (nil))
   (((class color) (background light)) (:foreground "gray60" :bold t))
   (((class color) (background dark))  (:foreground "gray70" :bold t))
   (t (nil))))
(mew-face-spec-set
 'mew-face-body-cite4
 '((((class color) (type tty)) (nil))
   (((class color) (background light)) (:foreground "gray60" :bold t))
   (((class color) (background dark))  (:foreground "gray70" :bold t))
   (t (nil))))
(mew-face-spec-set
 'mew-face-body-cite5
 '((((class color) (type tty)) (nil))
   (((class color) (background light)) (:foreground "gray60" :bold t))
   (((class color) (background dark))  (:foreground "gray70" :bold t))
   (t (nil))))

;; Highlight mark
(mew-face-spec-set
 'mew-face-mark-review
 '((((class color) (type tty)) (nil))
   (((class color) (background light)) (nil))
   (((class color) (background dark))  (nil))
   (t (nil))))
(mew-face-spec-set
 (if (boundp 'mew-mark-escape)
     'mew-face-mark-escape
   'mew-face-mark-multi)
 '((((class color) (type tty)) (nil))
   (((class color) (background light)) (nil))
   (((class color) (background dark))  (nil))
   (t (nil))))
(mew-face-spec-set
 'mew-face-mark-delete
 '((((class color) (type tty)) (nil))
   (((class color) (background light)) (nil))
   (((class color) (background dark))  (nil))
   (t (nil))))
(mew-face-spec-set
 'mew-face-mark-unlink
 '((((class color) (type tty)) (nil))
   (((class color) (background light)) (nil))
   (((class color) (background dark))  (nil))
   (t (nil))))
(mew-face-spec-set
 'mew-face-mark-refile
 '((((class color) (type tty)) (nil))
   (((class color) (background light)) (nil))
   (((class color) (background dark))  (nil))
   (t (nil))))
(mew-face-spec-set
 'mew-face-mark-unread
 '((t nil)))

;; Highlight eof
(mew-face-spec-set
 'mew-face-eof-message
 '((((class color) (type tty)) (nil))
   (((class color) (background light)) (:foreground "gray60" :bold t))
   (((class color) (background dark))  (:foreground "gray70" :bold t))
   (t (nil))))
(mew-face-spec-set
 'mew-face-eof-part
 '((((class color) (type tty)) (nil))
   (((class color) (background light)) (:foreground "gray60" :bold t))
   (((class color) (background dark))  (:foreground "gray70" :bold t))
   (t (nil))))

;;; .mew-theme.el ends here