/[emacs]/emacs/lisp/mh-e/mh-customize.el
ViewVC logotype

Diff of /emacs/lisp/mh-e/mh-customize.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by wohler, Sat May 28 22:04:54 2005 UTC revision 1.14 by miles, Fri Jun 17 01:29:30 2005 UTC
# Line 2144  will be removed from the unseen sequence Line 2144  will be removed from the unseen sequence
2144    
2145  ;;; Faces Used in Scan Listing (:group 'mh-folder-faces)  ;;; Faces Used in Scan Listing (:group 'mh-folder-faces)
2146    
2147  (defvar mh-folder-body-face 'mh-folder-body-face  (defvar mh-folder-body-face 'mh-folder-body
2148    "Face used to highlight body text in MH-Folder buffers.")    "Face used to highlight body text in MH-Folder buffers.")
2149  (defface mh-folder-body-face  (defface mh-folder-body
2150    '((((type tty) (class color)) (:foreground "green"))    '((((type tty) (class color)) (:foreground "green"))
2151      (((class grayscale) (background light)) (:foreground "DimGray" :italic t))      (((class grayscale) (background light)) (:foreground "DimGray" :italic t))
2152      (((class grayscale) (background dark)) (:foreground "LightGray" :italic t))      (((class grayscale) (background dark)) (:foreground "LightGray" :italic t))
# Line 2155  will be removed from the unseen sequence Line 2155  will be removed from the unseen sequence
2155      (t (:italic t)))      (t (:italic t)))
2156    "Face used to highlight body text in MH-Folder buffers."    "Face used to highlight body text in MH-Folder buffers."
2157    :group 'mh-folder-faces)    :group 'mh-folder-faces)
2158    ;; backward-compatibility alias
2159    (put 'mh-folder-body 'face-alias 'mh-folder-body)
2160    ;; backward-compatibility alias
2161    (put ''mh-folder-body-face 'face-alias ''mh-folder-body)
2162    
2163  (defvar mh-folder-cur-msg-face 'mh-folder-cur-msg-face  (defvar mh-folder-cur-msg-face 'mh-folder-cur-msg
2164    "Face used for the current message line in MH-Folder buffers.")    "Face used for the current message line in MH-Folder buffers.")
2165  (defface mh-folder-cur-msg-face  (defface mh-folder-cur-msg
2166    '((((type tty pc) (class color))    '((((type tty pc) (class color))
2167       (:background "LightGreen"))       (:background "LightGreen"))
2168      (((class color) (background light))      (((class color) (background light))
# Line 2170  will be removed from the unseen sequence Line 2174  will be removed from the unseen sequence
2174      (t (:underline t)))      (t (:underline t)))
2175    "Face used for the current message line in MH-Folder buffers."    "Face used for the current message line in MH-Folder buffers."
2176    :group 'mh-folder-faces)    :group 'mh-folder-faces)
2177    ;; backward-compatibility alias
2178    (put 'mh-folder-cur-msg 'face-alias 'mh-folder-cur-msg)
2179    ;; backward-compatibility alias
2180    (put ''mh-folder-cur-msg-face 'face-alias ''mh-folder-cur-msg)
2181    
2182  (defvar mh-folder-cur-msg-number-face 'mh-folder-cur-msg-number-face  (defvar mh-folder-cur-msg-number-face 'mh-folder-cur-msg-number
2183    "Face used to highlight the current message in MH-Folder buffers.")    "Face used to highlight the current message in MH-Folder buffers.")
2184  (defface mh-folder-cur-msg-number-face  (defface mh-folder-cur-msg-number
2185    '((((type tty) (class color)) (:foreground "cyan" :weight bold))    '((((type tty) (class color)) (:foreground "cyan" :weight bold))
2186      (((class grayscale) (background light)) (:foreground "LightGray" :bold t))      (((class grayscale) (background light)) (:foreground "LightGray" :bold t))
2187      (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))      (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
# Line 2182  will be removed from the unseen sequence Line 2190  will be removed from the unseen sequence
2190      (t (:bold t)))      (t (:bold t)))
2191    "Face used to highlight the current message in MH-Folder buffers."    "Face used to highlight the current message in MH-Folder buffers."
2192    :group 'mh-folder-faces)    :group 'mh-folder-faces)
2193    ;; backward-compatibility alias
2194    (put 'mh-folder-cur-msg-number 'face-alias 'mh-folder-cur-msg-number)
2195    ;; backward-compatibility alias
2196    (put ''mh-folder-cur-msg-number-face 'face-alias ''mh-folder-cur-msg-number)
2197    
2198  (defvar mh-folder-date-face 'mh-folder-date-face  (defvar mh-folder-date-face 'mh-folder-date
2199    "Face used to highlight the date in MH-Folder buffers.")    "Face used to highlight the date in MH-Folder buffers.")
2200  (defface mh-folder-date-face  (defface mh-folder-date
2201    '((((class color) (background light))    '((((class color) (background light))
2202       (:foreground "snow4"))       (:foreground "snow4"))
2203      (((class color) (background dark))      (((class color) (background dark))
# Line 2194  will be removed from the unseen sequence Line 2206  will be removed from the unseen sequence
2206       (:bold t)))       (:bold t)))
2207    "Face used to highlight the date in MH-Folder buffers."    "Face used to highlight the date in MH-Folder buffers."
2208    :group 'mh-folder-faces)    :group 'mh-folder-faces)
2209    ;; backward-compatibility alias
2210    (put 'mh-folder-date-face 'face-alias 'mh-folder-date)
2211    
2212  (defvar mh-folder-followup-face 'mh-folder-followup-face  (defvar mh-folder-followup-face 'mh-folder-followup
2213    "Face used to highlight Re: subject text in MH-Folder buffers.")    "Face used to highlight Re: subject text in MH-Folder buffers.")
2214  (defface mh-folder-followup-face  (defface mh-folder-followup
2215    '((((class color) (background light))    '((((class color) (background light))
2216       (:foreground "blue3"))       (:foreground "blue3"))
2217      (((class color) (background dark))      (((class color) (background dark))
# Line 2206  will be removed from the unseen sequence Line 2220  will be removed from the unseen sequence
2220       (:bold t)))       (:bold t)))
2221    "Face used to highlight Re: subject text in MH-Folder buffers."    "Face used to highlight Re: subject text in MH-Folder buffers."
2222    :group 'mh-folder-faces)    :group 'mh-folder-faces)
2223    ;; backward-compatibility alias
2224    (put 'mh-folder-followup-face 'face-alias 'mh-folder-followup)
2225    
2226  (defvar mh-folder-msg-number-face 'mh-folder-msg-number-face  (defvar mh-folder-msg-number-face 'mh-folder-msg-number
2227    "Face used to highlight the message number in MH-Folder buffers.")    "Face used to highlight the message number in MH-Folder buffers.")
2228  (defface mh-folder-msg-number-face  (defface mh-folder-msg-number
2229    '((((class color) (background light))    '((((class color) (background light))
2230       (:foreground "snow4"))       (:foreground "snow4"))
2231      (((class color) (background dark))      (((class color) (background dark))
# Line 2218  will be removed from the unseen sequence Line 2234  will be removed from the unseen sequence
2234       (:bold t)))       (:bold t)))
2235    "Face used to highlight the message number in MH-Folder buffers."    "Face used to highlight the message number in MH-Folder buffers."
2236    :group 'mh-folder-faces)    :group 'mh-folder-faces)
2237    ;; backward-compatibility alias
2238    (put 'mh-folder-msg-number-face 'face-alias 'mh-folder-msg-number)
2239    
2240  (defvar mh-folder-deleted-face 'mh-folder-deleted-face  (defvar mh-folder-deleted-face 'mh-folder-deleted
2241    "Face used to highlight deleted messages in MH-Folder buffers.")    "Face used to highlight deleted messages in MH-Folder buffers.")
2242  (copy-face 'mh-folder-msg-number-face 'mh-folder-deleted-face)  (copy-face 'mh-folder-msg-number 'mh-folder-deleted)
2243    
2244  (defvar mh-folder-refiled-face 'mh-folder-refiled-face  (defvar mh-folder-refiled-face 'mh-folder-refiled
2245    "Face used to highlight refiled messages in MH-Folder buffers.")    "Face used to highlight refiled messages in MH-Folder buffers.")
2246  (defface mh-folder-refiled-face  (defface mh-folder-refiled
2247    '((((type tty) (class color)) (:foreground "yellow" :weight light))    '((((type tty) (class color)) (:foreground "yellow" :weight light))
2248      (((class grayscale) (background light))      (((class grayscale) (background light))
2249       (:foreground "Gray90" :bold t :italic t))       (:foreground "Gray90" :bold t :italic t))
# Line 2236  will be removed from the unseen sequence Line 2254  will be removed from the unseen sequence
2254      (t (:bold t :italic t)))      (t (:bold t :italic t)))
2255    "Face used to highlight refiled messages in MH-Folder buffers."    "Face used to highlight refiled messages in MH-Folder buffers."
2256    :group 'mh-folder-faces)    :group 'mh-folder-faces)
2257    ;; backward-compatibility alias
2258    (put 'mh-folder-refiled-face 'face-alias 'mh-folder-refiled)
2259    
2260  (defvar mh-folder-subject-face 'mh-folder-subject-face  (defvar mh-folder-subject-face 'mh-folder-subject
2261    "Face used to highlight subject text in MH-Folder buffers.")    "Face used to highlight subject text in MH-Folder buffers.")
2262  (if (boundp 'facemenu-unlisted-faces)  (if (boundp 'facemenu-unlisted-faces)
2263      (add-to-list 'facemenu-unlisted-faces "^mh-folder"))      (add-to-list 'facemenu-unlisted-faces "^mh-folder"))
2264  (defface mh-folder-subject-face  (defface mh-folder-subject
2265    '((((class color) (background light))    '((((class color) (background light))
2266       (:foreground "blue4"))       (:foreground "blue4"))
2267      (((class color) (background dark))      (((class color) (background dark))
# Line 2250  will be removed from the unseen sequence Line 2270  will be removed from the unseen sequence
2270       (:bold t)))       (:bold t)))
2271    "Face used to highlight subject text in MH-Folder buffers."    "Face used to highlight subject text in MH-Folder buffers."
2272    :group 'mh-folder-faces)    :group 'mh-folder-faces)
2273    ;; backward-compatibility alias
2274    (put 'mh-folder-subject-face 'face-alias 'mh-folder-subject)
2275    
2276  (defface mh-folder-tick-face  (defface mh-folder-tick
2277    '((((class color) (background dark)) (:background "#dddf7e"))    '((((class color) (background dark)) (:background "#dddf7e"))
2278      (((class color) (background light)) (:background "#dddf7e"))      (((class color) (background light)) (:background "#dddf7e"))
2279      (t (:underline t)))      (t (:underline t)))
2280    "Face used to show ticked messages."    "Face used to show ticked messages."
2281    :group 'mh-folder-faces)    :group 'mh-folder-faces)
2282    ;; backward-compatibility alias
2283    (put 'mh-folder-tick-face 'face-alias 'mh-folder-tick)
2284    
2285  (defvar mh-folder-address-face 'mh-folder-address-face  (defvar mh-folder-address-face 'mh-folder-address
2286    "Face used to highlight the address in MH-Folder buffers.")    "Face used to highlight the address in MH-Folder buffers.")
2287  (copy-face 'mh-folder-subject-face 'mh-folder-address-face)  (copy-face 'mh-folder-subject 'mh-folder-address)
2288    
2289  (defvar mh-folder-scan-format-face 'mh-folder-scan-format-face  (defvar mh-folder-scan-format-face 'mh-folder-scan-format
2290    "Face used to highlight `mh-scan-format-regexp' matches in MH-Folder buffers.")    "Face used to highlight `mh-scan-format-regexp' matches in MH-Folder buffers.")
2291  (copy-face 'mh-folder-followup-face 'mh-folder-scan-format-face)  (copy-face 'mh-folder-followup 'mh-folder-scan-format)
2292    
2293  (defvar mh-folder-to-face 'mh-folder-to-face  (defvar mh-folder-to-face 'mh-folder-to
2294    "Face used to highlight the To: string in MH-Folder buffers.")    "Face used to highlight the To: string in MH-Folder buffers.")
2295  (defface mh-folder-to-face  (defface mh-folder-to
2296    '((((type tty) (class color)) (:foreground "green"))    '((((type tty) (class color)) (:foreground "green"))
2297      (((class grayscale) (background light)) (:foreground "DimGray" :italic t))      (((class grayscale) (background light)) (:foreground "DimGray" :italic t))
2298      (((class grayscale) (background dark)) (:foreground "LightGray" :italic t))      (((class grayscale) (background dark)) (:foreground "LightGray" :italic t))
# Line 2277  will be removed from the unseen sequence Line 2301  will be removed from the unseen sequence
2301      (t (:italic t)))      (t (:italic t)))
2302    "Face used to highlight the To: string in MH-Folder buffers."    "Face used to highlight the To: string in MH-Folder buffers."
2303    :group 'mh-folder-faces)    :group 'mh-folder-faces)
2304    ;; backward-compatibility alias
2305    (put 'mh-folder-to-face 'face-alias 'mh-folder-to)
2306    
2307    
2308    
2309  ;;; Faces Used in Searching (:group 'mh-index-faces)  ;;; Faces Used in Searching (:group 'mh-index-faces)
2310    
2311  (defvar mh-index-folder-face 'mh-index-folder-face  (defvar mh-index-folder-face 'mh-index-folder
2312    "Face used to highlight folders in MH-Index buffers.")    "Face used to highlight folders in MH-Index buffers.")
2313  (defface mh-index-folder-face  (defface mh-index-folder
2314    '((((class color) (background light))    '((((class color) (background light))
2315       (:foreground "dark green" :bold t))       (:foreground "dark green" :bold t))
2316      (((class color) (background dark))      (((class color) (background dark))
# Line 2293  will be removed from the unseen sequence Line 2319  will be removed from the unseen sequence
2319       (:bold t)))       (:bold t)))
2320    "Face used to highlight folders in MH-Index buffers."    "Face used to highlight folders in MH-Index buffers."
2321    :group 'mh-index-faces)    :group 'mh-index-faces)
2322    ;; backward-compatibility alias
2323    (put 'mh-index-folder-face 'face-alias 'mh-index-folder)
2324    
2325    
2326    
2327  ;;; Faces Used in Message Drafts (:group 'mh-letter-faces)  ;;; Faces Used in Message Drafts (:group 'mh-letter-faces)
2328    
2329  (defface mh-letter-header-field-face  (defface mh-letter-header-field
2330    '((((class color) (background light))    '((((class color) (background light))
2331       (:background "gray90"))       (:background "gray90"))
2332      (((class color) (background dark))      (((class color) (background dark))
# Line 2306  will be removed from the unseen sequence Line 2334  will be removed from the unseen sequence
2334      (t (:bold t)))      (t (:bold t)))
2335    "Face used to display header fields in draft buffers."    "Face used to display header fields in draft buffers."
2336    :group 'mh-letter-faces)    :group 'mh-letter-faces)
2337    ;; backward-compatibility alias
2338    (put 'mh-letter-header-field-face 'face-alias 'mh-letter-header-field)
2339    
2340    
2341    
2342  ;;; Faces Used in Message Display (:group 'mh-show-faces)  ;;; Faces Used in Message Display (:group 'mh-show-faces)
2343    
2344  (defvar mh-show-cc-face 'mh-show-cc-face  (defvar mh-show-cc-face 'mh-show-cc
2345    "Face used to highlight cc: header fields.")    "Face used to highlight cc: header fields.")
2346  (defface mh-show-cc-face  (defface mh-show-cc
2347    '((((type tty) (class color)) (:foreground "yellow" :weight light))    '((((type tty) (class color)) (:foreground "yellow" :weight light))
2348      (((class grayscale) (background light))      (((class grayscale) (background light))
2349       (:foreground "Gray90" :bold t :italic t))       (:foreground "Gray90" :bold t :italic t))
# Line 2324  will be removed from the unseen sequence Line 2354  will be removed from the unseen sequence
2354      (t (:bold t :italic t)))      (t (:bold t :italic t)))
2355    "Face used to highlight cc: header fields."    "Face used to highlight cc: header fields."
2356    :group 'mh-show-faces)    :group 'mh-show-faces)
2357    ;; backward-compatibility alias
2358    (put 'mh-show-cc-face 'face-alias 'mh-show-cc)
2359    
2360  (defvar mh-show-date-face 'mh-show-date-face  (defvar mh-show-date-face 'mh-show-date
2361    "Face used to highlight the Date: header field.")    "Face used to highlight the Date: header field.")
2362  (defface mh-show-date-face  (defface mh-show-date
2363    '((((type tty) (class color)) (:foreground "green"))    '((((type tty) (class color)) (:foreground "green"))
2364      (((class grayscale) (background light)) (:foreground "Gray90" :bold t))      (((class grayscale) (background light)) (:foreground "Gray90" :bold t))
2365      (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))      (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
# Line 2336  will be removed from the unseen sequence Line 2368  will be removed from the unseen sequence
2368      (t (:bold t :underline t)))      (t (:bold t :underline t)))
2369    "Face used to highlight the Date: header field."    "Face used to highlight the Date: header field."
2370    :group 'mh-show-faces)    :group 'mh-show-faces)
2371    ;; backward-compatibility alias
2372    (put 'mh-show-date-face 'face-alias 'mh-show-date)
2373    
2374  (defvar mh-show-header-face 'mh-show-header-face  (defvar mh-show-header-face 'mh-show-header
2375    "Face used to deemphasize unspecified header fields.")    "Face used to deemphasize unspecified header fields.")
2376  (defface mh-show-header-face  (defface mh-show-header
2377    '((((type tty) (class color)) (:foreground "green"))    '((((type tty) (class color)) (:foreground "green"))
2378      (((class grayscale) (background light)) (:foreground "DimGray" :italic t))      (((class grayscale) (background light)) (:foreground "DimGray" :italic t))
2379      (((class grayscale) (background dark)) (:foreground "LightGray" :italic t))      (((class grayscale) (background dark)) (:foreground "LightGray" :italic t))
# Line 2348  will be removed from the unseen sequence Line 2382  will be removed from the unseen sequence
2382      (t (:italic t)))      (t (:italic t)))
2383    "Face used to deemphasize unspecified header fields."    "Face used to deemphasize unspecified header fields."
2384    :group 'mh-show-faces)    :group 'mh-show-faces)
2385    ;; backward-compatibility alias
2386    (put 'mh-show-header-face 'face-alias 'mh-show-header)
2387    
2388  (defvar mh-show-pgg-good-face 'mh-show-pgg-good-face  (defvar mh-show-pgg-good-face 'mh-show-pgg-good
2389    "Face used to highlight a good PGG signature.")    "Face used to highlight a good PGG signature.")
2390  (defface mh-show-pgg-good-face  (defface mh-show-pgg-good
2391    '((t (:bold t :foreground "LimeGreen")))    '((t (:bold t :foreground "LimeGreen")))
2392    "Face used to highlight a good PGG signature."    "Face used to highlight a good PGG signature."
2393    :group 'mh-show-faces)    :group 'mh-show-faces)
2394    ;; backward-compatibility alias
2395    (put 'mh-show-pgg-good-face 'face-alias 'mh-show-pgg-good)
2396    
2397  (defvar mh-show-pgg-unknown-face 'mh-show-pgg-unknown-face  (defvar mh-show-pgg-unknown-face 'mh-show-pgg-unknown
2398    "Face used to highlight a PGG signature whose status is unknown.    "Face used to highlight a PGG signature whose status is unknown.
2399  This face is also used for a signature when the signer is untrusted.")  This face is also used for a signature when the signer is untrusted.")
2400  (defface mh-show-pgg-unknown-face  (defface mh-show-pgg-unknown
2401    '((t (:bold t :foreground "DarkGoldenrod2")))    '((t (:bold t :foreground "DarkGoldenrod2")))
2402    "Face used to highlight a PGG signature whose status is unknown.    "Face used to highlight a PGG signature whose status is unknown.
2403  This face is also used for a signature when the signer is untrusted."  This face is also used for a signature when the signer is untrusted."
2404    :group 'mh-show-faces)    :group 'mh-show-faces)
2405    ;; backward-compatibility alias
2406    (put 'mh-show-pgg-unknown-face 'face-alias 'mh-show-pgg-unknown)
2407    
2408  (defvar mh-show-pgg-bad-face 'mh-show-pgg-bad-face  (defvar mh-show-pgg-bad-face 'mh-show-pgg-bad
2409    "Face used to highlight a bad PGG signature.")    "Face used to highlight a bad PGG signature.")
2410  (defface mh-show-pgg-bad-face  (defface mh-show-pgg-bad
2411    '((t (:bold t :foreground "DeepPink1")))    '((t (:bold t :foreground "DeepPink1")))
2412    "Face used to highlight a bad PGG signature."    "Face used to highlight a bad PGG signature."
2413    :group 'mh-show-faces)    :group 'mh-show-faces)
2414    ;; backward-compatibility alias
2415    (put 'mh-show-pgg-bad-face 'face-alias 'mh-show-pgg-bad)
2416    
2417  (defface mh-show-signature-face  (defface mh-show-signature
2418    '((t (:italic t)))    '((t (:italic t)))
2419    "Face used to highlight the message signature."    "Face used to highlight the message signature."
2420    :group 'mh-show-faces)    :group 'mh-show-faces)
2421    ;; backward-compatibility alias
2422    (put 'mh-show-signature-face 'face-alias 'mh-show-signature)
2423    
2424  (defvar mh-show-to-face 'mh-show-to-face  (defvar mh-show-to-face 'mh-show-to
2425    "Face used to highlight the To: header field.")    "Face used to highlight the To: header field.")
2426  (if (boundp 'facemenu-unlisted-faces)  (if (boundp 'facemenu-unlisted-faces)
2427      (add-to-list 'facemenu-unlisted-faces "^mh-show"))      (add-to-list 'facemenu-unlisted-faces "^mh-show"))
2428  (defface mh-show-to-face  (defface mh-show-to
2429    '((((class grayscale) (background light))    '((((class grayscale) (background light))
2430       (:foreground "DimGray" :underline t))       (:foreground "DimGray" :underline t))
2431      (((class grayscale) (background dark))      (((class grayscale) (background dark))
# Line 2391  This face is also used for a signature w Line 2435  This face is also used for a signature w
2435      (t (:underline t)))      (t (:underline t)))
2436    "Face used to highlight the To: header field."    "Face used to highlight the To: header field."
2437    :group 'mh-show-faces)    :group 'mh-show-faces)
2438    ;; backward-compatibility alias
2439    (put 'mh-show-to-face 'face-alias 'mh-show-to)
2440    
2441  (defvar mh-show-from-face 'mh-show-from-face  (defvar mh-show-from-face 'mh-show-from
2442    "Face used to highlight the From: header field.")    "Face used to highlight the From: header field.")
2443  (defface mh-show-from-face  (defface mh-show-from
2444    '((((class color) (background light))    '((((class color) (background light))
2445       (:foreground "red3"))       (:foreground "red3"))
2446      (((class color) (background dark))      (((class color) (background dark))
# Line 2403  This face is also used for a signature w Line 2449  This face is also used for a signature w
2449       (:bold t)))       (:bold t)))
2450    "Face used to highlight the From: header field."    "Face used to highlight the From: header field."
2451    :group 'mh-show-faces)    :group 'mh-show-faces)
2452    ;; backward-compatibility alias
2453    (put 'mh-show-from-face 'face-alias 'mh-show-from)
2454    
2455  (defface mh-show-xface-face  (defface mh-show-xface
2456    '((t (:foreground "black" :background "white")))    '((t (:foreground "black" :background "white")))
2457    "Face used to display the X-Face image.    "Face used to display the X-Face image.
2458  The background and foreground is used in the image."  The background and foreground is used in the image."
2459    :group 'mh-show-faces)    :group 'mh-show-faces)
2460    ;; backward-compatibility alias
2461    (put 'mh-show-xface-face 'face-alias 'mh-show-xface)
2462    
2463  (defvar mh-show-subject-face 'mh-show-subject-face  (defvar mh-show-subject-face 'mh-show-subject
2464    "Face used to highlight the Subject: header field.")    "Face used to highlight the Subject: header field.")
2465  (copy-face 'mh-folder-subject-face 'mh-show-subject-face)  (copy-face 'mh-folder-subject 'mh-show-subject)
2466    
2467    
2468    
2469  ;;; Faces Used in Speedbar (:group 'mh-speed-faces)  ;;; Faces Used in Speedbar (:group 'mh-speed-faces)
2470    
2471  (defface mh-speedbar-folder-face  (defface mh-speedbar-folder
2472    '((((class color) (background light))    '((((class color) (background light))
2473       (:foreground "blue4"))       (:foreground "blue4"))
2474      (((class color) (background dark))      (((class color) (background dark))
2475       (:foreground "light blue")))       (:foreground "light blue")))
2476    "Face used for folders in the speedbar buffer."    "Face used for folders in the speedbar buffer."
2477    :group 'mh-speed-faces)    :group 'mh-speed-faces)
2478    ;; backward-compatibility alias
2479    (put 'mh-speedbar-folder-face 'face-alias 'mh-speedbar-folder)
2480    
2481  (defface mh-speedbar-selected-folder-face  (defface mh-speedbar-selected-folder
2482    '((((class color) (background light))    '((((class color) (background light))
2483       (:foreground "red1" :underline t))       (:foreground "red1" :underline t))
2484      (((class color) (background dark))      (((class color) (background dark))
# Line 2434  The background and foreground is used in Line 2486  The background and foreground is used in
2486      (t (:underline t)))      (t (:underline t)))
2487    "Face used for the current folder."    "Face used for the current folder."
2488    :group 'mh-speed-faces)    :group 'mh-speed-faces)
2489    ;; backward-compatibility alias
2490    (put 'mh-speedbar-selected-folder-face 'face-alias 'mh-speedbar-selected-folder)
2491    
2492  (defface mh-speedbar-folder-with-unseen-messages-face  (defface mh-speedbar-folder-with-unseen-messages
2493    '((t (:inherit mh-speedbar-folder-face :bold t)))    '((t (:inherit mh-speedbar-folder :bold t)))
2494    "Face used for folders in the speedbar buffer which have unread messages."    "Face used for folders in the speedbar buffer which have unread messages."
2495    :group 'mh-speed-faces)    :group 'mh-speed-faces)
2496    ;; backward-compatibility alias
2497    (put 'mh-speedbar-folder-with-unseen-messages-face 'face-alias 'mh-speedbar-folder-with-unseen-messages)
2498    
2499  (defface mh-speedbar-selected-folder-with-unseen-messages-face  (defface mh-speedbar-selected-folder-with-unseen-messages
2500    '((t (:inherit mh-speedbar-selected-folder-face :bold t)))    '((t (:inherit mh-speedbar-selected-folder :bold t)))
2501    "Face used for the current folder when it has unread messages."    "Face used for the current folder when it has unread messages."
2502    :group 'mh-speed-faces)    :group 'mh-speed-faces)
2503    ;; backward-compatibility alias
2504    (put 'mh-speedbar-selected-folder-with-unseen-messages-face 'face-alias 'mh-speedbar-selected-folder-with-unseen-messages)
2505    
2506  ;;; Local Variables:  ;;; Local Variables:
2507  ;;; indent-tabs-mode: nil  ;;; indent-tabs-mode: nil

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26