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