[mew-dist 21478] mew-theme.el

[Tatsuya Kinoshita]

mew-theme.elで、custom-set-facesでなくface-spec-setを使うよう変更
しました。(customizeの結果を保存する際にmew-theme.elの内容が
~/.emacsに書き込まれる無駄を避けるため)

-- 
木下達也
-------------- next part --------------
 This patch is written by Tatsuya Kinoshita.  Copyright is disclaimed.

--- mew.orig/mew-theme.el	2002-08-16 15:50:02.000000000 +0900
+++ mew/mew-theme.el	2002-08-19 22:13:35.000000000 +0900
@@ -21,148 +21,168 @@
 ;;; Highlight header
 ;;;
 
-(custom-set-faces
- '(mew-face-header-subject
-   ((((class color) (type tty)) (:foreground "red" :bold t))
-    (((class color) (background light)) (:foreground "Firebrick" :bold t))
-    (((class color) (background dark))  (:foreground "OrangeRed" :bold t))
-    (t (:bold t))))
- '(mew-face-header-from
-   ((((class color) (type tty)) (:foreground "yellow" :bold t))
-    (((class color) (background light)) (:foreground "DarkOrange4" :bold t))
-    (((class color) (background dark))  (:foreground "Gold" :bold t))
-    (t (:bold t))))
- '(mew-face-header-date
-   ((((class color) (type tty)) (:foreground "green" :bold t))
-    (((class color) (background light)) (:foreground "ForestGreen" :bold t))
-    (((class color) (background dark))  (:foreground "LimeGreen" :bold t))
-    (t (:bold t))))
- '(mew-face-header-to
-   ((((class color) (type tty)) (:foreground "magenta" :bold t))
-    (((class color) (background light)) (:foreground "DarkViolet" :bold t))
-    (((class color) (background dark))  (:foreground "violet" :bold t))
-    (t (:bold t))))
- '(mew-face-header-key
-   ((((class color) (type tty)) (:foreground "green" :bold t))
-    (((class color) (background light)) (:foreground "ForestGreen" :bold t))
-    (((class color) (background dark))  (:foreground "LimeGreen" :bold t))
-    (t (:bold t))))
- '(mew-face-header-private
-   ((((class color) (type tty)) (:bold t))
-    (((class color) (background light)) (:bold t))
-    (((class color) (background dark))  (:bold t))
-    (t (:bold t))))
- '(mew-face-header-important
-   ((((class color) (type tty)) (:foreground "cyan" :bold t))
-    (((class color) (background light)) (:foreground "MediumBlue" :bold t))
-    (((class color) (background dark))  (:foreground "SkyBlue" :bold t))
-    (t (:bold t))))
- '(mew-face-header-marginal
-   ((((class color) (type tty)) (:bold t))
-    (((class color) (background light)) (:foreground "gray50" :bold t))
-    (((class color) (background dark))  (:foreground "gray50" :bold t))
-    (t (:bold t))))
- '(mew-face-header-xmew
-   ((((class color) (type tty)) (:foreground "yellow" :bold t))
-    (((class color) (background light)) (:foreground "chocolate" :bold t))
-    (((class color) (background dark))  (:foreground "chocolate" :bold t))
-    (t (:bold t))))
- '(mew-face-header-xmew-bad
-   ((((class color) (type tty)) (:foreground "red" :bold t))
-    (((class color) (background light)) (:foreground "red" :bold t))
-    (((class color) (background dark))  (:foreground "red" :bold t))
-    (t (:bold t)))))
+(face-spec-set
+ 'mew-face-header-subject
+ '((((class color) (type tty)) (:foreground "red" :bold t))
+   (((class color) (background light)) (:foreground "Firebrick" :bold t))
+   (((class color) (background dark))  (:foreground "OrangeRed" :bold t))
+   (t (:bold t))))
+(face-spec-set
+ 'mew-face-header-from
+ '((((class color) (type tty)) (:foreground "yellow" :bold t))
+   (((class color) (background light)) (:foreground "DarkOrange4" :bold t))
+   (((class color) (background dark))  (:foreground "Gold" :bold t))
+   (t (:bold t))))
+(face-spec-set
+ 'mew-face-header-date
+ '((((class color) (type tty)) (:foreground "green" :bold t))
+   (((class color) (background light)) (:foreground "ForestGreen" :bold t))
+   (((class color) (background dark))  (:foreground "LimeGreen" :bold t))
+   (t (:bold t))))
+(face-spec-set
+ 'mew-face-header-to
+ '((((class color) (type tty)) (:foreground "magenta" :bold t))
+   (((class color) (background light)) (:foreground "DarkViolet" :bold t))
+   (((class color) (background dark))  (:foreground "violet" :bold t))
+   (t (:bold t))))
+(face-spec-set
+ 'mew-face-header-key
+ '((((class color) (type tty)) (:foreground "green" :bold t))
+   (((class color) (background light)) (:foreground "ForestGreen" :bold t))
+   (((class color) (background dark))  (:foreground "LimeGreen" :bold t))
+   (t (:bold t))))
+(face-spec-set
+ 'mew-face-header-private
+ '((((class color) (type tty)) (:bold t))
+   (((class color) (background light)) (:bold t))
+   (((class color) (background dark))  (:bold t))
+   (t (:bold t))))
+(face-spec-set
+ 'mew-face-header-important
+ '((((class color) (type tty)) (:foreground "cyan" :bold t))
+   (((class color) (background light)) (:foreground "MediumBlue" :bold t))
+   (((class color) (background dark))  (:foreground "SkyBlue" :bold t))
+   (t (:bold t))))
+(face-spec-set
+ 'mew-face-header-marginal
+ '((((class color) (type tty)) (:bold t))
+   (((class color) (background light)) (:foreground "gray50" :bold t))
+   (((class color) (background dark))  (:foreground "gray50" :bold t))
+   (t (:bold t))))
+(face-spec-set
+ 'mew-face-header-xmew
+ '((((class color) (type tty)) (:foreground "yellow" :bold t))
+   (((class color) (background light)) (:foreground "chocolate" :bold t))
+   (((class color) (background dark))  (:foreground "chocolate" :bold t))
+   (t (:bold t))))
+(face-spec-set
+ 'mew-face-header-xmew-bad
+ '((((class color) (type tty)) (:foreground "red" :bold t))
+   (((class color) (background light)) (:foreground "red" :bold t))
+   (((class color) (background dark))  (:foreground "red" :bold t))
+   (t (:bold t))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
 ;;; Highlight body
 ;;;
 
-(custom-set-faces
- '(mew-face-body-url
-   ((((class color) (type tty)) (:foreground "red" :bold t))
-    (((class color) (background light)) (:foreground "Firebrick" :bold t))
-    (((class color) (background dark))  (:foreground "OrangeRed" :bold t))
-    (t (:bold t))))
- '(mew-face-body-comment
-   ((((class color) (type tty)) (:foreground "blue"))
-    (((class color) (background light)) (:foreground "gray50"))
-    (((class color) (background dark))  (:foreground "gray50"))
-    (t nil)))
- '(mew-face-body-cite1
-   ((((class color) (type tty)) (:foreground "green"))
-    (((class color) (background light)) (:foreground "ForestGreen"))
-    (((class color) (background dark))  (:foreground "LimeGreen"))
-    (t nil)))
- '(mew-face-body-cite2
-   ((((class color) (type tty)) (:foreground "cyan"))
-    (((class color) (background light)) (:foreground "MediumBlue"))
-    (((class color) (background dark))  (:foreground "SkyBlue"))
-    (t nil)))
- '(mew-face-body-cite3
-   ((((class color) (type tty)) (:foreground "magenta"))
-    (((class color) (background light)) (:foreground "DarkViolet"))
-    (((class color) (background dark))  (:foreground "violet"))
-    (t nil)))
- '(mew-face-body-cite4
-   ((((class color) (type tty)) (:foreground "yellow"))
-    (((class color) (background light)) (:foreground "DarkOrange4"))
-    (((class color) (background dark))  (:foreground "Gold"))
-    (t nil)))
- '(mew-face-body-cite5
-   ((((class color) (type tty)) (:foreground "red"))
-    (((class color) (background light)) (:foreground "Firebrick"))
-    (((class color) (background dark))  (:foreground "OrangeRed"))
-    (t nil))))
+(face-spec-set
+ 'mew-face-body-url
+ '((((class color) (type tty)) (:foreground "red" :bold t))
+   (((class color) (background light)) (:foreground "Firebrick" :bold t))
+   (((class color) (background dark))  (:foreground "OrangeRed" :bold t))
+   (t (:bold t))))
+(face-spec-set
+ 'mew-face-body-comment
+ '((((class color) (type tty)) (:foreground "blue"))
+   (((class color) (background light)) (:foreground "gray50"))
+   (((class color) (background dark))  (:foreground "gray50"))
+   (t nil)))
+(face-spec-set
+ 'mew-face-body-cite1
+ '((((class color) (type tty)) (:foreground "green"))
+   (((class color) (background light)) (:foreground "ForestGreen"))
+   (((class color) (background dark))  (:foreground "LimeGreen"))
+   (t nil)))
+(face-spec-set
+ 'mew-face-body-cite2
+ '((((class color) (type tty)) (:foreground "cyan"))
+   (((class color) (background light)) (:foreground "MediumBlue"))
+   (((class color) (background dark))  (:foreground "SkyBlue"))
+   (t nil)))
+(face-spec-set
+ 'mew-face-body-cite3
+ '((((class color) (type tty)) (:foreground "magenta"))
+   (((class color) (background light)) (:foreground "DarkViolet"))
+   (((class color) (background dark))  (:foreground "violet"))
+   (t nil)))
+(face-spec-set
+ 'mew-face-body-cite4
+ '((((class color) (type tty)) (:foreground "yellow"))
+   (((class color) (background light)) (:foreground "DarkOrange4"))
+   (((class color) (background dark))  (:foreground "Gold"))
+   (t nil)))
+(face-spec-set
+ 'mew-face-body-cite5
+ '((((class color) (type tty)) (:foreground "red"))
+   (((class color) (background light)) (:foreground "Firebrick"))
+   (((class color) (background dark))  (:foreground "OrangeRed"))
+   (t nil)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
 ;;; Highlight mark
 ;;;
 
-(custom-set-faces
- '(mew-face-mark-review
-   ((((class color) (type tty)) (:foreground "cyan"))
-    (((class color) (background light)) (:foreground "MediumBlue"))
-    (((class color) (background dark))  (:foreground "SkyBlue"))
-    (t (:bold t))))
- '(mew-face-mark-multi
-   ((((class color) (type tty)) (:foreground "magenta"))
-    (((class color) (background light)) (:foreground "DarkViolet"))
-    (((class color) (background dark))  (:foreground "violet"))
-    (t (:bold t))))
- '(mew-face-mark-delete
-   ((((class color) (type tty)) (:foreground "red"))
-    (((class color) (background light)) (:foreground "Firebrick"))
-    (((class color) (background dark))  (:foreground "OrangeRed"))
-    (t (:bold t))))
- '(mew-face-mark-unlink
-   ((((class color) (type tty)) (:foreground "yellow"))
-    (((class color) (background light)) (:foreground "DarkOrange4"))
-    (((class color) (background dark))  (:foreground "Gold"))
-    (t (:bold t))))
- '(mew-face-mark-refile
-   ((((class color) (type tty)) (:foreground "green"))
-    (((class color) (background light)) (:foreground "ForestGreen"))
-    (((class color) (background dark))  (:foreground "LimeGreen"))
-    (t (:bold t)))))
+(face-spec-set
+ 'mew-face-mark-review
+ '((((class color) (type tty)) (:foreground "cyan"))
+   (((class color) (background light)) (:foreground "MediumBlue"))
+   (((class color) (background dark))  (:foreground "SkyBlue"))
+   (t (:bold t))))
+(face-spec-set
+ 'mew-face-mark-multi
+ '((((class color) (type tty)) (:foreground "magenta"))
+   (((class color) (background light)) (:foreground "DarkViolet"))
+   (((class color) (background dark))  (:foreground "violet"))
+   (t (:bold t))))
+(face-spec-set
+ 'mew-face-mark-delete
+ '((((class color) (type tty)) (:foreground "red"))
+   (((class color) (background light)) (:foreground "Firebrick"))
+   (((class color) (background dark))  (:foreground "OrangeRed"))
+   (t (:bold t))))
+(face-spec-set
+ 'mew-face-mark-unlink
+ '((((class color) (type tty)) (:foreground "yellow"))
+   (((class color) (background light)) (:foreground "DarkOrange4"))
+   (((class color) (background dark))  (:foreground "Gold"))
+   (t (:bold t))))
+(face-spec-set
+ 'mew-face-mark-refile
+ '((((class color) (type tty)) (:foreground "green"))
+   (((class color) (background light)) (:foreground "ForestGreen"))
+   (((class color) (background dark))  (:foreground "LimeGreen"))
+   (t (:bold t))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
 ;;; Highlight eof
 ;;;
 
-(custom-set-faces
- '(mew-face-eof-message
-   ((((class color) (type tty)) (:foreground "green" :bold t))
-    (((class color) (background light)) (:foreground "ForestGreen" :bold t))
-    (((class color) (background dark))  (:foreground "LimeGreen" :bold t))
-    (t (:bold t))))
- '(mew-face-eof-part
-   ((((class color) (type tty)) (:foreground "yellow" :bold t))
-    (((class color) (background light)) (:foreground "DarkOrange4" :bold t))
-    (((class color) (background dark))  (:foreground "Gold" :bold t))
-    (t (:bold t)))))
+(face-spec-set
+ 'mew-face-eof-message
+ '((((class color) (type tty)) (:foreground "green" :bold t))
+   (((class color) (background light)) (:foreground "ForestGreen" :bold t))
+   (((class color) (background dark))  (:foreground "LimeGreen" :bold t))
+   (t (:bold t))))
+(face-spec-set
+ 'mew-face-eof-part
+ '((((class color) (type tty)) (:foreground "yellow" :bold t))
+   (((class color) (background light)) (:foreground "DarkOrange4" :bold t))
+   (((class color) (background dark))  (:foreground "Gold" :bold t))
+   (t (:bold t))))
 
 ;;;; COPY TO HERE