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 |
|
|
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 |
|
|
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 |
|
|
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 |
|
|
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 |
|
|
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 |
|
|
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 |
|
|
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) |
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 |
|
|
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) |
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) |
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 |
|
|