/[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.32 by dann, Thu Nov 3 22:08:39 2005 UTC revision 1.33 by wohler, Fri Nov 4 23:42:28 2005 UTC
# Line 2253  will be removed from the unseen sequence Line 2253  will be removed from the unseen sequence
2253  (defvar mh-folder-body-face 'mh-folder-body  (defvar mh-folder-body-face 'mh-folder-body
2254    "Face used to highlight body text in MH-Folder buffers.")    "Face used to highlight body text in MH-Folder buffers.")
2255  (defface mh-folder-body  (defface mh-folder-body
2256    '((((class grayscale) (background light)) (:foreground "DimGray" :italic t))    '((((class color) (min-colors 88) (background light))
2257      (((class grayscale) (background dark)) (:foreground "LightGray" :italic t))       (:foreground "RosyBrown"))
2258      (((class color) (min-colors 88) (background light)) (:foreground "RosyBrown"))      (((class color) (min-colors 88) (background dark))
2259      (((class color) (min-colors 88) (background dark)) (:foreground "LightSalmon"))       (:foreground "LightSalmon"))
2260      (((class color)) (:foreground "green"))      (((class color))
2261      (t (:italic t)))       (:foreground "green"))
2262        (((class grayscale) (background light))
2263         (:foreground "DimGray" :italic t))
2264        (((class grayscale) (background dark))
2265         (:foreground "LightGray" :italic t))
2266        (t
2267         (:italic t)))
2268    "Face used to highlight body text in MH-Folder buffers."    "Face used to highlight body text in MH-Folder buffers."
2269    :group 'mh-folder-faces)    :group 'mh-folder-faces)
2270    
# Line 2273  will be removed from the unseen sequence Line 2279  will be removed from the unseen sequence
2279       (:background "DarkOliveGreen4"))       (:background "DarkOliveGreen4"))
2280      (((class color))      (((class color))
2281       (:background "LightGreen"))       (:background "LightGreen"))
2282      (t (:underline t)))      (t
2283         (:underline t)))
2284    "Face used for the current message line in MH-Folder buffers."    "Face used for the current message line in MH-Folder buffers."
2285    :group 'mh-folder-faces)    :group 'mh-folder-faces)
2286    
2287  (defvar mh-folder-cur-msg-number-face 'mh-folder-cur-msg-number  (defvar mh-folder-cur-msg-number-face 'mh-folder-cur-msg-number
2288    "Face used to highlight the current message in MH-Folder buffers.")    "Face used to highlight the current message in MH-Folder buffers.")
2289  (defface mh-folder-cur-msg-number  (defface mh-folder-cur-msg-number
2290    '((((class grayscale) (background light)) (:foreground "LightGray" :bold t))    '((((class color) (min-colors 88) (background light))
2291      (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))       (:foreground "Purple"))
2292      (((class color) (min-colors 88) (background light)) (:foreground "Purple"))      (((class color) (min-colors 88) (background dark))
2293      (((class color) (min-colors 88) (background dark)) (:foreground "Cyan"))       (:foreground "Cyan"))
2294      (((class color)) (:foreground "cyan" :weight bold))      (((class color))
2295      (t (:bold t)))       (:foreground "cyan" :weight bold))
2296        (((class grayscale) (background light))
2297         (:foreground "LightGray" :bold t))
2298        (((class grayscale) (background dark))
2299         (:foreground "DimGray" :bold t))
2300        (t
2301         (:bold t)))
2302    "Face used to highlight the current message in MH-Folder buffers."    "Face used to highlight the current message in MH-Folder buffers."
2303    :group 'mh-folder-faces)    :group 'mh-folder-faces)
2304    
# Line 2332  will be removed from the unseen sequence Line 2345  will be removed from the unseen sequence
2345  (defvar mh-folder-refiled-face 'mh-folder-refiled  (defvar mh-folder-refiled-face 'mh-folder-refiled
2346    "Face used to highlight refiled messages in MH-Folder buffers.")    "Face used to highlight refiled messages in MH-Folder buffers.")
2347  (defface mh-folder-refiled  (defface mh-folder-refiled
2348    '((((class grayscale) (background light))    '((((class color) (min-colors 88) (background light))
2349         (:foreground "DarkGoldenrod"))
2350        (((class color) (min-colors 88) (background dark))
2351         (:foreground "LightGoldenrod"))
2352        (((class color))
2353         (:foreground "yellow" :weight light))
2354        (((class grayscale) (background light))
2355       (:foreground "Gray90" :bold t :italic t))       (:foreground "Gray90" :bold t :italic t))
2356      (((class grayscale) (background dark))      (((class grayscale) (background dark))
2357       (:foreground "DimGray" :bold t :italic t))       (:foreground "DimGray" :bold t :italic t))
2358      (((class color) (min-colors 88) (background light)) (:foreground "DarkGoldenrod"))      (t
2359      (((class color) (min-colors 88) (background dark)) (:foreground "LightGoldenrod"))       (:bold t :italic t)))
     (((class color)) (:foreground "yellow" :weight light))  
     (t (:bold t :italic t)))  
2360    "Face used to highlight refiled messages in MH-Folder buffers."    "Face used to highlight refiled messages in MH-Folder buffers."
2361    :group 'mh-folder-faces)    :group 'mh-folder-faces)
2362    
# Line 2358  will be removed from the unseen sequence Line 2375  will be removed from the unseen sequence
2375    :group 'mh-folder-faces)    :group 'mh-folder-faces)
2376    
2377  (defface mh-folder-tick  (defface mh-folder-tick
2378    '((((class color) (background dark)) (:background "#dddf7e"))    '((((class color) (background dark))
2379      (((class color) (background light)) (:background "#dddf7e"))       (:background "#dddf7e"))
2380      (t (:underline t)))      (((class color) (background light))
2381         (:background "#dddf7e"))
2382        (t
2383         (:underline t)))
2384    "Face used to show ticked messages."    "Face used to show ticked messages."
2385    :group 'mh-folder-faces)    :group 'mh-folder-faces)
2386    
# Line 2375  will be removed from the unseen sequence Line 2395  will be removed from the unseen sequence
2395  (defvar mh-folder-to-face 'mh-folder-to  (defvar mh-folder-to-face 'mh-folder-to
2396    "Face used to highlight the To: string in MH-Folder buffers.")    "Face used to highlight the To: string in MH-Folder buffers.")
2397  (defface mh-folder-to  (defface mh-folder-to
2398    '((((class grayscale) (background light)) (:foreground "DimGray" :italic t))    '((((class color) (min-colors 88) (background light))
2399      (((class grayscale) (background dark)) (:foreground "LightGray" :italic t))       (:foreground "RosyBrown"))
2400      (((class color) (min-colors 88) (background light)) (:foreground "RosyBrown"))      (((class color) (min-colors 88) (background dark))
2401      (((class color) (min-colors 88) (background dark)) (:foreground "LightSalmon"))       (:foreground "LightSalmon"))
2402      (((class color)) (:foreground "green"))      (((class color))
2403      (t (:italic t)))       (:foreground "green"))
2404        (((class grayscale) (background light))
2405         (:foreground "DimGray" :italic t))
2406        (((class grayscale) (background dark))
2407         (:foreground "LightGray" :italic t))
2408        (t
2409         (:italic t)))
2410    "Face used to highlight the To: string in MH-Folder buffers."    "Face used to highlight the To: string in MH-Folder buffers."
2411    :group 'mh-folder-faces)    :group 'mh-folder-faces)
2412    
# Line 2409  will be removed from the unseen sequence Line 2435  will be removed from the unseen sequence
2435       (:background "gray90"))       (:background "gray90"))
2436      (((class color) (background dark))      (((class color) (background dark))
2437       (:background "gray10"))       (:background "gray10"))
2438      (t (:bold t)))      (t
2439         (:bold t)))
2440    "Face used to display header fields in draft buffers."    "Face used to display header fields in draft buffers."
2441    :group 'mh-letter-faces)    :group 'mh-letter-faces)
2442    
# Line 2420  will be removed from the unseen sequence Line 2447  will be removed from the unseen sequence
2447  (defvar mh-show-cc-face 'mh-show-cc  (defvar mh-show-cc-face 'mh-show-cc
2448    "Face used to highlight cc: header fields.")    "Face used to highlight cc: header fields.")
2449  (defface mh-show-cc  (defface mh-show-cc
2450    '((((class grayscale) (background light))    '((((class color) (min-colors 88) (background light))
2451         (:foreground "DarkGoldenrod"))
2452        (((class color) (min-colors 88) (background dark))
2453         (:foreground "LightGoldenrod"))
2454        (((class color))
2455         (:foreground "yellow" :weight light))
2456        (((class grayscale) (background light))
2457       (:foreground "Gray90" :bold t :italic t))       (:foreground "Gray90" :bold t :italic t))
2458      (((class grayscale) (background dark))      (((class grayscale) (background dark))
2459       (:foreground "DimGray" :bold t :italic t))       (:foreground "DimGray" :bold t :italic t))
2460      (((class color) (min-colors 88) (background light)) (:foreground "DarkGoldenrod"))      (t
2461      (((class color) (min-colors 88) (background dark)) (:foreground "LightGoldenrod"))       (:bold t :italic t)))
     (((class color)) (:foreground "yellow" :weight light))  
     (t (:bold t :italic t)))  
2462    "Face used to highlight cc: header fields."    "Face used to highlight cc: header fields."
2463    :group 'mh-show-faces)    :group 'mh-show-faces)
2464    
2465  (defvar mh-show-date-face 'mh-show-date  (defvar mh-show-date-face 'mh-show-date
2466    "Face used to highlight the Date: header field.")    "Face used to highlight the Date: header field.")
2467  (defface mh-show-date  (defface mh-show-date
2468    '((((class color) (min-colors 88) (background light)) (:foreground "ForestGreen"))    '((((class color) (min-colors 88) (background light))
2469      (((class color) (min-colors 88) (background dark)) (:foreground "PaleGreen"))       (:foreground "ForestGreen"))
2470      (((class color)) (:foreground "green"))      (((class color) (min-colors 88) (background dark))
2471      (((class grayscale) (background light)) (:foreground "Gray90" :bold t))       (:foreground "PaleGreen"))
2472      (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))      (((class color))
2473      (t (:bold t :underline t)))       (:foreground "green"))
2474        (((class grayscale) (background light))
2475         (:foreground "Gray90" :bold t))
2476        (((class grayscale) (background dark))
2477         (:foreground "DimGray" :bold t))
2478        (t
2479         (:bold t :underline t)))
2480    "Face used to highlight the Date: header field."    "Face used to highlight the Date: header field."
2481    :group 'mh-show-faces)    :group 'mh-show-faces)
2482    
2483  (defvar mh-show-header-face 'mh-show-header  (defvar mh-show-header-face 'mh-show-header
2484    "Face used to deemphasize unspecified header fields.")    "Face used to deemphasize unspecified header fields.")
2485  (defface mh-show-header  (defface mh-show-header
2486    '((((class color) (min-colors 88) (background light)) (:foreground "RosyBrown"))    '((((class color) (min-colors 88) (background light))
2487      (((class color) (min-colors 88) (background dark)) (:foreground "LightSalmon"))       (:foreground "RosyBrown"))
2488      (((class color)) (:foreground "green"))      (((class color) (min-colors 88) (background dark))
2489      (((class grayscale) (background light)) (:foreground "DimGray" :italic t))       (:foreground "LightSalmon"))
2490      (((class grayscale) (background dark)) (:foreground "LightGray" :italic t))      (((class color))
2491      (t (:italic t)))       (:foreground "green"))
2492        (((class grayscale) (background light))
2493         (:foreground "DimGray" :italic t))
2494        (((class grayscale) (background dark))
2495         (:foreground "LightGray" :italic t))
2496        (t
2497         (:italic t)))
2498    "Face used to deemphasize unspecified header fields."    "Face used to deemphasize unspecified header fields."
2499    :group 'mh-show-faces)    :group 'mh-show-faces)
2500    
2501  (defvar mh-show-pgg-good-face 'mh-show-pgg-good  (defvar mh-show-pgg-good-face 'mh-show-pgg-good
2502    "Face used to highlight a good PGG signature.")    "Face used to highlight a good PGG signature.")
2503  (defface mh-show-pgg-good  (defface mh-show-pgg-good
2504    '((t (:bold t :foreground "LimeGreen")))    '((t
2505         (:bold t :foreground "LimeGreen")))
2506    "Face used to highlight a good PGG signature."    "Face used to highlight a good PGG signature."
2507    :group 'mh-show-faces)    :group 'mh-show-faces)
2508    
# Line 2466  will be removed from the unseen sequence Line 2510  will be removed from the unseen sequence
2510    "Face used to highlight a PGG signature whose status is unknown.    "Face used to highlight a PGG signature whose status is unknown.
2511  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.")
2512  (defface mh-show-pgg-unknown  (defface mh-show-pgg-unknown
2513    '((t (:bold t :foreground "DarkGoldenrod2")))    '((t
2514         (:bold t :foreground "DarkGoldenrod2")))
2515    "Face used to highlight a PGG signature whose status is unknown.    "Face used to highlight a PGG signature whose status is unknown.
2516  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."
2517    :group 'mh-show-faces)    :group 'mh-show-faces)
# Line 2474  This face is also used for a signature w Line 2519  This face is also used for a signature w
2519  (defvar mh-show-pgg-bad-face 'mh-show-pgg-bad  (defvar mh-show-pgg-bad-face 'mh-show-pgg-bad
2520    "Face used to highlight a bad PGG signature.")    "Face used to highlight a bad PGG signature.")
2521  (defface mh-show-pgg-bad  (defface mh-show-pgg-bad
2522    '((t (:bold t :foreground "DeepPink1")))    '((t
2523         (:bold t :foreground "DeepPink1")))
2524    "Face used to highlight a bad PGG signature."    "Face used to highlight a bad PGG signature."
2525    :group 'mh-show-faces)    :group 'mh-show-faces)
2526    
2527  (defface mh-show-signature  (defface mh-show-signature
2528    '((t (:italic t)))    '((t
2529         (:italic t)))
2530    "Face used to highlight the message signature."    "Face used to highlight the message signature."
2531    :group 'mh-show-faces)    :group 'mh-show-faces)
2532    
# Line 2488  This face is also used for a signature w Line 2535  This face is also used for a signature w
2535  (if (boundp 'facemenu-unlisted-faces)  (if (boundp 'facemenu-unlisted-faces)
2536      (add-to-list 'facemenu-unlisted-faces "^mh-show"))      (add-to-list 'facemenu-unlisted-faces "^mh-show"))
2537  (defface mh-show-to  (defface mh-show-to
2538    '((((class grayscale) (background light))    '((((class color) (background light))
2539         (:foreground "SaddleBrown"))
2540        (((class color) (background dark))
2541         (:foreground "burlywood"))
2542        (((class grayscale) (background light))
2543       (:foreground "DimGray" :underline t))       (:foreground "DimGray" :underline t))
2544      (((class grayscale) (background dark))      (((class grayscale) (background dark))
2545       (:foreground "LightGray" :underline t))       (:foreground "LightGray" :underline t))
     (((class color) (background light)) (:foreground "SaddleBrown"))  
     (((class color) (background dark))  (:foreground "burlywood"))  
2546      (t (:underline t)))      (t (:underline t)))
2547    "Face used to highlight the To: header field."    "Face used to highlight the To: header field."
2548    :group 'mh-show-faces)    :group 'mh-show-faces)
# Line 2511  This face is also used for a signature w Line 2560  This face is also used for a signature w
2560    :group 'mh-show-faces)    :group 'mh-show-faces)
2561    
2562  (defface mh-show-xface  (defface mh-show-xface
2563    '((t (:foreground "black" :background "white")))    '((t
2564         (:foreground "black" :background "white")))
2565    "Face used to display the X-Face image.    "Face used to display the X-Face image.
2566  The background and foreground is used in the image."  The background and foreground is used in the image."
2567    :group 'mh-show-faces)    :group 'mh-show-faces)
# Line 2537  The background and foreground is used in Line 2587  The background and foreground is used in
2587       (:foreground "red1" :underline t))       (:foreground "red1" :underline t))
2588      (((class color) (background dark))      (((class color) (background dark))
2589       (:foreground "red1" :underline t))       (:foreground "red1" :underline t))
2590      (t (:underline t)))      (t
2591         (:underline t)))
2592    "Face used for the current folder."    "Face used for the current folder."
2593    :group 'mh-speed-faces)    :group 'mh-speed-faces)
2594    
2595  (defface mh-speedbar-folder-with-unseen-messages  (defface mh-speedbar-folder-with-unseen-messages
2596    '((t (:inherit mh-speedbar-folder :bold t)))    '((t
2597         (:inherit mh-speedbar-folder :bold t)))
2598    "Face used for folders in the speedbar buffer which have unread messages."    "Face used for folders in the speedbar buffer which have unread messages."
2599    :group 'mh-speed-faces)    :group 'mh-speed-faces)
2600    
2601  (defface mh-speedbar-selected-folder-with-unseen-messages  (defface mh-speedbar-selected-folder-with-unseen-messages
2602    '((t (:inherit mh-speedbar-selected-folder :bold t)))    '((t
2603         (:inherit mh-speedbar-selected-folder :bold t)))
2604    "Face used for the current folder when it has unread messages."    "Face used for the current folder when it has unread messages."
2605    :group 'mh-speed-faces)    :group 'mh-speed-faces)
2606    

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

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