cgit.sxemacs.org Git - gnus/blob - lisp/gnus.el

   1 ;;; gnus.el --- a newsreader for GNU Emacs
   2
   3 ;; Copyright (C) 1987-1990, 1993-1998, 2000-2012
   4 ;;   Free Software Foundation, Inc.
   5
   6 ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
   7 ;;      Lars Magne Ingebrigtsen <larsi@gnus.org>
   8 ;; Keywords: news, mail
   9
  10 ;; This file is part of GNU Emacs.
  11
  12 ;; GNU Emacs is free software: you can redistribute it and/or modify
  13 ;; it under the terms of the GNU General Public License as published by
  14 ;; the Free Software Foundation, either version 3 of the License, or
  15 ;; (at your option) any later version.
  16
  17 ;; GNU Emacs is distributed in the hope that it will be useful,
  18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 ;; GNU General Public License for more details.
  21
  22 ;; You should have received a copy of the GNU General Public License
  23 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  24
  25 ;;; Commentary:
  26
  27 ;;; Code:
  28
  29 (eval '(run-hooks 'gnus-load-hook))
  30
  31 ;; For Emacs <22.2 and XEmacs.
  32 (eval-and-compile
  33   (unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
  34
  35 (eval-when-compile (require 'cl))
  36 (require 'wid-edit)
  37 (require 'mm-util)
  38 (require 'nnheader)
  39
  40 ;; These are defined afterwards with gnus-define-group-parameter
  41 (defvar gnus-ham-process-destinations)
  42 (defvar gnus-parameter-ham-marks-alist)
  43 (defvar gnus-parameter-spam-marks-alist)
  44 (defvar gnus-spam-autodetect)
  45 (defvar gnus-spam-autodetect-methods)
  46 (defvar gnus-spam-newsgroup-contents)
  47 (defvar gnus-spam-process-destinations)
  48 (defvar gnus-spam-resend-to)
  49 (defvar gnus-ham-resend-to)
  50 (defvar gnus-spam-process-newsgroups)
  51
  52
  53 (defgroup gnus nil
  54   "The coffee-brewing, all singing, all dancing, kitchen sink newsreader."
  55   :group 'news
  56   :group 'mail)
  57
  58 (defgroup gnus-start nil
  59   "Starting your favorite newsreader."
  60   :group 'gnus)
  61
  62 (defgroup gnus-format nil
  63   "Dealing with formatting issues."
  64   :group 'gnus)
  65
  66 (defgroup gnus-charset nil
  67   "Group character set issues."
  68   :link '(custom-manual "(gnus)Charsets")
  69   :version "21.1"
  70   :group 'gnus)
  71
  72 (defgroup gnus-cache nil
  73   "Cache interface."
  74   :link '(custom-manual "(gnus)Article Caching")
  75   :group 'gnus)
  76
  77 (defgroup gnus-registry nil
  78   "Article Registry."
  79   :group 'gnus)
  80
  81 (defgroup gnus-start-server nil
  82   "Server options at startup."
  83   :group 'gnus-start)
  84
  85 ;; These belong to gnus-group.el.
  86 (defgroup gnus-group nil
  87   "Group buffers."
  88   :link '(custom-manual "(gnus)Group Buffer")
  89   :group 'gnus)
  90
  91 (defgroup gnus-group-foreign nil
  92   "Foreign groups."
  93   :link '(custom-manual "(gnus)Foreign Groups")
  94   :group 'gnus-group)
  95
  96 (defgroup gnus-group-new nil
  97   "Automatic subscription of new groups."
  98   :group 'gnus-group)
  99
 100 (defgroup gnus-group-levels nil
 101   "Group levels."
 102   :link '(custom-manual "(gnus)Group Levels")
 103   :group 'gnus-group)
 104
 105 (defgroup gnus-group-select nil
 106   "Selecting a Group."
 107   :link '(custom-manual "(gnus)Selecting a Group")
 108   :group 'gnus-group)
 109
 110 (defgroup gnus-group-listing nil
 111   "Showing slices of the group list."
 112   :link '(custom-manual "(gnus)Listing Groups")
 113   :group 'gnus-group)
 114
 115 (defgroup gnus-group-visual nil
 116   "Sorting the group buffer."
 117   :link '(custom-manual "(gnus)Group Buffer Format")
 118   :group 'gnus-group
 119   :group 'gnus-visual)
 120
 121 (defgroup gnus-group-various nil
 122   "Various group options."
 123   :link '(custom-manual "(gnus)Scanning New Messages")
 124   :group 'gnus-group)
 125
 126 ;; These belong to gnus-sum.el.
 127 (defgroup gnus-summary nil
 128   "Summary buffers."
 129   :link '(custom-manual "(gnus)Summary Buffer")
 130   :group 'gnus)
 131
 132 (defgroup gnus-summary-exit nil
 133   "Leaving summary buffers."
 134   :link '(custom-manual "(gnus)Exiting the Summary Buffer")
 135   :group 'gnus-summary)
 136
 137 (defgroup gnus-summary-marks nil
 138   "Marks used in summary buffers."
 139   :link '(custom-manual "(gnus)Marking Articles")
 140   :group 'gnus-summary)
 141
 142 (defgroup gnus-thread nil
 143   "Ordering articles according to replies."
 144   :link '(custom-manual "(gnus)Threading")
 145   :group 'gnus-summary)
 146
 147 (defgroup gnus-summary-format nil
 148   "Formatting of the summary buffer."
 149   :link '(custom-manual "(gnus)Summary Buffer Format")
 150   :group 'gnus-summary)
 151
 152 (defgroup gnus-summary-choose nil
 153   "Choosing Articles."
 154   :link '(custom-manual "(gnus)Choosing Articles")
 155   :group 'gnus-summary)
 156
 157 (defgroup gnus-summary-maneuvering nil
 158   "Summary movement commands."
 159   :link '(custom-manual "(gnus)Summary Maneuvering")
 160   :group 'gnus-summary)
 161
 162 (defgroup gnus-picon nil
 163   "Show pictures of people, domains, and newsgroups."
 164   :group 'gnus-visual)
 165
 166 (defgroup gnus-summary-mail nil
 167   "Mail group commands."
 168   :link '(custom-manual "(gnus)Mail Group Commands")
 169   :group 'gnus-summary)
 170
 171 (defgroup gnus-summary-sort nil
 172   "Sorting the summary buffer."
 173   :link '(custom-manual "(gnus)Sorting the Summary Buffer")
 174   :group 'gnus-summary)
 175
 176 (defgroup gnus-summary-visual nil
 177   "Highlighting and menus in the summary buffer."
 178   :link '(custom-manual "(gnus)Summary Highlighting")
 179   :group 'gnus-visual
 180   :group 'gnus-summary)
 181
 182 (defgroup gnus-summary-various nil
 183   "Various summary buffer options."
 184   :link '(custom-manual "(gnus)Various Summary Stuff")
 185   :group 'gnus-summary)
 186
 187 (defgroup gnus-summary-pick nil
 188   "Pick mode in the summary buffer."
 189   :link '(custom-manual "(gnus)Pick and Read")
 190   :prefix "gnus-pick-"
 191   :group 'gnus-summary)
 192
 193 (defgroup gnus-summary-tree nil
 194   "Tree display of threads in the summary buffer."
 195   :link '(custom-manual "(gnus)Tree Display")
 196   :prefix "gnus-tree-"
 197   :group 'gnus-summary)
 198
 199 ;; Belongs to gnus-uu.el
 200 (defgroup gnus-extract-view nil
 201   "Viewing extracted files."
 202   :link '(custom-manual "(gnus)Viewing Files")
 203   :group 'gnus-extract)
 204
 205 ;; Belongs to gnus-score.el
 206 (defgroup gnus-score nil
 207   "Score and kill file handling."
 208   :group 'gnus)
 209
 210 (defgroup gnus-score-kill nil
 211   "Kill files."
 212   :group 'gnus-score)
 213
 214 (defgroup gnus-score-adapt nil
 215   "Adaptive score files."
 216   :group 'gnus-score)
 217
 218 (defgroup gnus-score-default nil
 219   "Default values for score files."
 220   :group 'gnus-score)
 221
 222 (defgroup gnus-score-expire nil
 223   "Expiring score rules."
 224   :group 'gnus-score)
 225
 226 (defgroup gnus-score-decay nil
 227   "Decaying score rules."
 228   :group 'gnus-score)
 229
 230 (defgroup gnus-score-files nil
 231   "Score and kill file names."
 232   :group 'gnus-score
 233   :group 'gnus-files)
 234
 235 (defgroup gnus-score-various nil
 236   "Various scoring and killing options."
 237   :group 'gnus-score)
 238
 239 ;; Other
 240 (defgroup gnus-visual nil
 241   "Options controlling the visual fluff."
 242   :group 'gnus
 243   :group 'faces)
 244
 245 (defgroup gnus-agent nil
 246   "Offline support for Gnus."
 247   :group 'gnus)
 248
 249 (defgroup gnus-files nil
 250   "Files used by Gnus."
 251   :group 'gnus)
 252
 253 (defgroup gnus-dribble-file nil
 254   "Auto save file."
 255   :link '(custom-manual "(gnus)Auto Save")
 256   :group 'gnus-files)
 257
 258 (defgroup gnus-newsrc nil
 259   "Storing Gnus state."
 260   :group 'gnus-files)
 261
 262 (defgroup gnus-server nil
 263   "Options related to newsservers and other servers used by Gnus."
 264   :group 'gnus)
 265
 266 (defgroup gnus-server-visual nil
 267   "Highlighting and menus in the server buffer."
 268   :group 'gnus-visual
 269   :group 'gnus-server)
 270
 271 (defgroup gnus-message '((message custom-group))
 272   "Composing replies and followups in Gnus."
 273   :group 'gnus)
 274
 275 (defgroup gnus-meta nil
 276   "Meta variables controlling major portions of Gnus.
 277 In general, modifying these variables does not take effect until Gnus
 278 is restarted, and sometimes reloaded."
 279   :group 'gnus)
 280
 281 (defgroup gnus-various nil
 282   "Other Gnus options."
 283   :link '(custom-manual "(gnus)Various Various")
 284   :group 'gnus)
 285
 286 (defgroup gnus-exit nil
 287   "Exiting Gnus."
 288   :link '(custom-manual "(gnus)Exiting Gnus")
 289   :group 'gnus)
 290
 291 (defgroup gnus-fun nil
 292   "Frivolous Gnus extensions."
 293   :link '(custom-manual "(gnus)Exiting Gnus")
 294   :group 'gnus)
 295
 296 (defconst gnus-version-number "0.2"
 297   "Version number for this version of Gnus.")
 298
 299 (defconst gnus-version (format "Ma Gnus v%s" gnus-version-number)
 300   "Version string for this version of Gnus.")
 301
 302 (defcustom gnus-inhibit-startup-message nil
 303   "If non-nil, the startup message will not be displayed.
 304 This variable is used before `.gnus.el' is loaded, so it should
 305 be set in `.emacs' instead."
 306   :group 'gnus-start
 307   :type 'boolean)
 308
 309 (unless (featurep 'gnus-xmas)
 310   (defalias 'gnus-make-overlay 'make-overlay)
 311   (defalias 'gnus-delete-overlay 'delete-overlay)
 312   (defalias 'gnus-overlay-get 'overlay-get)
 313   (defalias 'gnus-overlay-put 'overlay-put)
 314   (defalias 'gnus-move-overlay 'move-overlay)
 315   (defalias 'gnus-overlay-buffer 'overlay-buffer)
 316   (defalias 'gnus-overlay-start 'overlay-start)
 317   (defalias 'gnus-overlay-end 'overlay-end)
 318   (defalias 'gnus-overlays-in 'overlays-in)
 319   (defalias 'gnus-extent-detached-p 'ignore)
 320   (defalias 'gnus-extent-start-open 'ignore)
 321   (defalias 'gnus-mail-strip-quoted-names 'mail-strip-quoted-names)
 322   (defalias 'gnus-character-to-event 'identity)
 323   (defalias 'gnus-assq-delete-all 'assq-delete-all)
 324   (defalias 'gnus-add-text-properties 'add-text-properties)
 325   (defalias 'gnus-put-text-property 'put-text-property)
 326   (defvar gnus-mode-line-image-cache t)
 327   (if (fboundp 'find-image)
 328       (defun gnus-mode-line-buffer-identification (line)
 329         (let ((str (car-safe line))
 330               (load-path (mm-image-load-path)))
 331           (if (and (stringp str)
 332                    (string-match "^Gnus:" str))
 333               (progn (add-text-properties
 334                       0 5
 335                       (list 'display
 336                             (if (eq t gnus-mode-line-image-cache)
 337                                 (setq gnus-mode-line-image-cache
 338                                       (find-image
 339                                        '((:type xpm :file "gnus-pointer.xpm"
 340                                                 :ascent center)
 341                                          (:type xbm :file "gnus-pointer.xbm"
 342                                                 :ascent center))))
 343                               gnus-mode-line-image-cache)
 344                             'help-echo (format
 345                                         "This is %s, %s."
 346                                         gnus-version (gnus-emacs-version)))
 347                       str)
 348                      (list str))
 349             line)))
 350     (defalias 'gnus-mode-line-buffer-identification 'identity))
 351   (defalias 'gnus-deactivate-mark 'deactivate-mark)
 352   (defalias 'gnus-window-edges 'window-edges)
 353   (defalias 'gnus-key-press-event-p 'numberp)
 354   ;;(defalias 'gnus-decode-rfc1522 'ignore)
 355   )
 356
 357 ;; We define these group faces here to avoid the display
 358 ;; update forced when creating new faces.
 359
 360 (defface gnus-group-news-1
 361   '((((class color)
 362       (background dark))
 363      (:foreground "PaleTurquoise" :bold t))
 364     (((class color)
 365       (background light))
 366      (:foreground "ForestGreen" :bold t))
 367     (t
 368      ()))
 369   "Level 1 newsgroup face."
 370   :group 'gnus-group)
 371 ;; backward-compatibility alias
 372 (put 'gnus-group-news-1-face 'face-alias 'gnus-group-news-1)
 373 (put 'gnus-group-news-1-face 'obsolete-face "22.1")
 374
 375 (defface gnus-group-news-1-empty
 376   '((((class color)
 377       (background dark))
 378      (:foreground "PaleTurquoise"))
 379     (((class color)
 380       (background light))
 381      (:foreground "ForestGreen"))
 382     (t
 383      ()))
 384   "Level 1 empty newsgroup face."
 385   :group 'gnus-group)
 386 ;; backward-compatibility alias
 387 (put 'gnus-group-news-1-empty-face 'face-alias 'gnus-group-news-1-empty)
 388 (put 'gnus-group-news-1-empty-face 'obsolete-face "22.1")
 389
 390 (defface gnus-group-news-2
 391   '((((class color)
 392       (background dark))
 393      (:foreground "turquoise" :bold t))
 394     (((class color)
 395       (background light))
 396      (:foreground "CadetBlue4" :bold t))
 397     (t
 398      ()))
 399   "Level 2 newsgroup face."
 400   :group 'gnus-group)
 401 ;; backward-compatibility alias
 402 (put 'gnus-group-news-2-face 'face-alias 'gnus-group-news-2)
 403 (put 'gnus-group-news-2-face 'obsolete-face "22.1")
 404
 405 (defface gnus-group-news-2-empty
 406   '((((class color)
 407       (background dark))
 408      (:foreground "turquoise"))
 409     (((class color)
 410       (background light))
 411      (:foreground "CadetBlue4"))
 412     (t
 413      ()))
 414   "Level 2 empty newsgroup face."
 415   :group 'gnus-group)
 416 ;; backward-compatibility alias
 417 (put 'gnus-group-news-2-empty-face 'face-alias 'gnus-group-news-2-empty)
 418 (put 'gnus-group-news-2-empty-face 'obsolete-face "22.1")
 419
 420 (defface gnus-group-news-3
 421   '((((class color)
 422       (background dark))
 423      (:bold t))
 424     (((class color)
 425       (background light))
 426      (:bold t))
 427     (t
 428      ()))
 429   "Level 3 newsgroup face."
 430   :group 'gnus-group)
 431 ;; backward-compatibility alias
 432 (put 'gnus-group-news-3-face 'face-alias 'gnus-group-news-3)
 433 (put 'gnus-group-news-3-face 'obsolete-face "22.1")
 434
 435 (defface gnus-group-news-3-empty
 436   '((((class color)
 437       (background dark))
 438      ())
 439     (((class color)
 440       (background light))
 441      ())
 442     (t
 443      ()))
 444   "Level 3 empty newsgroup face."
 445   :group 'gnus-group)
 446 ;; backward-compatibility alias
 447 (put 'gnus-group-news-3-empty-face 'face-alias 'gnus-group-news-3-empty)
 448 (put 'gnus-group-news-3-empty-face 'obsolete-face "22.1")
 449
 450 (defface gnus-group-news-4
 451   '((((class color)
 452       (background dark))
 453      (:bold t))
 454     (((class color)
 455       (background light))
 456      (:bold t))
 457     (t
 458      ()))
 459   "Level 4 newsgroup face."
 460   :group 'gnus-group)
 461 ;; backward-compatibility alias
 462 (put 'gnus-group-news-4-face 'face-alias 'gnus-group-news-4)
 463 (put 'gnus-group-news-4-face 'obsolete-face "22.1")
 464
 465 (defface gnus-group-news-4-empty
 466   '((((class color)
 467       (background dark))
 468      ())
 469     (((class color)
 470       (background light))
 471      ())
 472     (t
 473      ()))
 474   "Level 4 empty newsgroup face."
 475   :group 'gnus-group)
 476 ;; backward-compatibility alias
 477 (put 'gnus-group-news-4-empty-face 'face-alias 'gnus-group-news-4-empty)
 478 (put 'gnus-group-news-4-empty-face 'obsolete-face "22.1")
 479
 480 (defface gnus-group-news-5
 481   '((((class color)
 482       (background dark))
 483      (:bold t))
 484     (((class color)
 485       (background light))
 486      (:bold t))
 487     (t
 488      ()))
 489   "Level 5 newsgroup face."
 490   :group 'gnus-group)
 491 ;; backward-compatibility alias
 492 (put 'gnus-group-news-5-face 'face-alias 'gnus-group-news-5)
 493 (put 'gnus-group-news-5-face 'obsolete-face "22.1")
 494
 495 (defface gnus-group-news-5-empty
 496   '((((class color)
 497       (background dark))
 498      ())
 499     (((class color)
 500       (background light))
 501      ())
 502     (t
 503      ()))
 504   "Level 5 empty newsgroup face."
 505   :group 'gnus-group)
 506 ;; backward-compatibility alias
 507 (put 'gnus-group-news-5-empty-face 'face-alias 'gnus-group-news-5-empty)
 508 (put 'gnus-group-news-5-empty-face 'obsolete-face "22.1")
 509
 510 (defface gnus-group-news-6
 511   '((((class color)
 512       (background dark))
 513      (:bold t))
 514     (((class color)
 515       (background light))
 516      (:bold t))
 517     (t
 518      ()))
 519   "Level 6 newsgroup face."
 520   :group 'gnus-group)
 521 ;; backward-compatibility alias
 522 (put 'gnus-group-news-6-face 'face-alias 'gnus-group-news-6)
 523 (put 'gnus-group-news-6-face 'obsolete-face "22.1")
 524
 525 (defface gnus-group-news-6-empty
 526   '((((class color)
 527       (background dark))
 528      ())
 529     (((class color)
 530       (background light))
 531      ())
 532     (t
 533      ()))
 534   "Level 6 empty newsgroup face."
 535   :group 'gnus-group)
 536 ;; backward-compatibility alias
 537 (put 'gnus-group-news-6-empty-face 'face-alias 'gnus-group-news-6-empty)
 538 (put 'gnus-group-news-6-empty-face 'obsolete-face "22.1")
 539
 540 (defface gnus-group-news-low
 541   '((((class color)
 542       (background dark))
 543      (:foreground "DarkTurquoise" :bold t))
 544     (((class color)
 545       (background light))
 546      (:foreground "DarkGreen" :bold t))
 547     (t
 548      ()))
 549   "Low level newsgroup face."
 550   :group 'gnus-group)
 551 ;; backward-compatibility alias
 552 (put 'gnus-group-news-low-face 'face-alias 'gnus-group-news-low)
 553 (put 'gnus-group-news-low-face 'obsolete-face "22.1")
 554
 555 (defface gnus-group-news-low-empty
 556   '((((class color)
 557       (background dark))
 558      (:foreground "DarkTurquoise"))
 559     (((class color)
 560       (background light))
 561      (:foreground "DarkGreen"))
 562     (t
 563      ()))
 564   "Low level empty newsgroup face."
 565   :group 'gnus-group)
 566 ;; backward-compatibility alias
 567 (put 'gnus-group-news-low-empty-face 'face-alias 'gnus-group-news-low-empty)
 568 (put 'gnus-group-news-low-empty-face 'obsolete-face "22.1")
 569
 570 (defface gnus-group-mail-1
 571   '((((class color)
 572       (background dark))
 573      (:foreground "#e1ffe1" :bold t))
 574     (((class color)
 575       (background light))
 576      (:foreground "DeepPink3" :bold t))
 577     (t
 578      (:bold t)))
 579   "Level 1 mailgroup face."
 580   :group 'gnus-group)
 581 ;; backward-compatibility alias
 582 (put 'gnus-group-mail-1-face 'face-alias 'gnus-group-mail-1)
 583 (put 'gnus-group-mail-1-face 'obsolete-face "22.1")
 584
 585 (defface gnus-group-mail-1-empty
 586   '((((class color)
 587       (background dark))
 588      (:foreground "#e1ffe1"))
 589     (((class color)
 590       (background light))
 591      (:foreground "DeepPink3"))
 592     (t
 593      (:italic t :bold t)))
 594   "Level 1 empty mailgroup face."
 595   :group 'gnus-group)
 596 ;; backward-compatibility alias
 597 (put 'gnus-group-mail-1-empty-face 'face-alias 'gnus-group-mail-1-empty)
 598 (put 'gnus-group-mail-1-empty-face 'obsolete-face "22.1")
 599
 600 (defface gnus-group-mail-2
 601   '((((class color)
 602       (background dark))
 603      (:foreground "DarkSeaGreen1" :bold t))
 604     (((class color)
 605       (background light))
 606      (:foreground "HotPink3" :bold t))
 607     (t
 608      (:bold t)))
 609   "Level 2 mailgroup face."
 610   :group 'gnus-group)
 611 ;; backward-compatibility alias
 612 (put 'gnus-group-mail-2-face 'face-alias 'gnus-group-mail-2)
 613 (put 'gnus-group-mail-2-face 'obsolete-face "22.1")
 614
 615 (defface gnus-group-mail-2-empty
 616   '((((class color)
 617       (background dark))
 618      (:foreground "DarkSeaGreen1"))
 619     (((class color)
 620       (background light))
 621      (:foreground "HotPink3"))
 622     (t
 623      (:bold t)))
 624   "Level 2 empty mailgroup face."
 625   :group 'gnus-group)
 626 ;; backward-compatibility alias
 627 (put 'gnus-group-mail-2-empty-face 'face-alias 'gnus-group-mail-2-empty)
 628 (put 'gnus-group-mail-2-empty-face 'obsolete-face "22.1")
 629
 630 (defface gnus-group-mail-3
 631   '((((class color)
 632       (background dark))
 633      (:foreground "aquamarine1" :bold t))
 634     (((class color)
 635       (background light))
 636      (:foreground "magenta4" :bold t))
 637     (t
 638      (:bold t)))
 639   "Level 3 mailgroup face."
 640   :group 'gnus-group)
 641 ;; backward-compatibility alias
 642 (put 'gnus-group-mail-3-face 'face-alias 'gnus-group-mail-3)
 643 (put 'gnus-group-mail-3-face 'obsolete-face "22.1")
 644
 645 (defface gnus-group-mail-3-empty
 646   '((((class color)
 647       (background dark))
 648      (:foreground "aquamarine1"))
 649     (((class color)
 650       (background light))
 651      (:foreground "magenta4"))
 652     (t
 653      ()))
 654   "Level 3 empty mailgroup face."
 655   :group 'gnus-group)
 656 ;; backward-compatibility alias
 657 (put 'gnus-group-mail-3-empty-face 'face-alias 'gnus-group-mail-3-empty)
 658 (put 'gnus-group-mail-3-empty-face 'obsolete-face "22.1")
 659
 660 (defface gnus-group-mail-low
 661   '((((class color)
 662       (background dark))
 663      (:foreground "aquamarine2" :bold t))
 664     (((class color)
 665       (background light))
 666      (:foreground "DeepPink4" :bold t))
 667     (t
 668      (:bold t)))
 669   "Low level mailgroup face."
 670   :group 'gnus-group)
 671 ;; backward-compatibility alias
 672 (put 'gnus-group-mail-low-face 'face-alias 'gnus-group-mail-low)
 673 (put 'gnus-group-mail-low-face 'obsolete-face "22.1")
 674
 675 (defface gnus-group-mail-low-empty
 676   '((((class color)
 677       (background dark))
 678      (:foreground "aquamarine2"))
 679     (((class color)
 680       (background light))
 681      (:foreground "DeepPink4"))
 682     (t
 683      (:bold t)))
 684   "Low level empty mailgroup face."
 685   :group 'gnus-group)
 686 ;; backward-compatibility alias
 687 (put 'gnus-group-mail-low-empty-face 'face-alias 'gnus-group-mail-low-empty)
 688 (put 'gnus-group-mail-low-empty-face 'obsolete-face "22.1")
 689
 690 ;; Summary mode faces.
 691
 692 (defface gnus-summary-selected '((t (:underline t)))
 693   "Face used for selected articles."
 694   :group 'gnus-summary)
 695 ;; backward-compatibility alias
 696 (put 'gnus-summary-selected-face 'face-alias 'gnus-summary-selected)
 697 (put 'gnus-summary-selected-face 'obsolete-face "22.1")
 698
 699 (defface gnus-summary-cancelled
 700   '((((class color))
 701      (:foreground "yellow" :background "black")))
 702   "Face used for canceled articles."
 703   :group 'gnus-summary)
 704 ;; backward-compatibility alias
 705 (put 'gnus-summary-cancelled-face 'face-alias 'gnus-summary-cancelled)
 706 (put 'gnus-summary-cancelled-face 'obsolete-face "22.1")
 707
 708 (defface gnus-summary-high-ticked
 709   '((((class color)
 710       (background dark))
 711      (:foreground "pink" :bold t))
 712     (((class color)
 713       (background light))
 714      (:foreground "firebrick" :bold t))
 715     (t
 716      (:bold t)))
 717   "Face used for high interest ticked articles."
 718   :group 'gnus-summary)
 719 ;; backward-compatibility alias
 720 (put 'gnus-summary-high-ticked-face 'face-alias 'gnus-summary-high-ticked)
 721 (put 'gnus-summary-high-ticked-face 'obsolete-face "22.1")
 722
 723 (defface gnus-summary-low-ticked
 724   '((((class color)
 725       (background dark))
 726      (:foreground "pink" :italic t))
 727     (((class color)
 728       (background light))
 729      (:foreground "firebrick" :italic t))
 730     (t
 731      (:italic t)))
 732   "Face used for low interest ticked articles."
 733   :group 'gnus-summary)
 734 ;; backward-compatibility alias
 735 (put 'gnus-summary-low-ticked-face 'face-alias 'gnus-summary-low-ticked)
 736 (put 'gnus-summary-low-ticked-face 'obsolete-face "22.1")
 737
 738 (defface gnus-summary-normal-ticked
 739   '((((class color)
 740       (background dark))
 741      (:foreground "pink"))
 742     (((class color)
 743       (background light))
 744      (:foreground "firebrick"))
 745     (t
 746      ()))
 747   "Face used for normal interest ticked articles."
 748   :group 'gnus-summary)
 749 ;; backward-compatibility alias
 750 (put 'gnus-summary-normal-ticked-face 'face-alias 'gnus-summary-normal-ticked)
 751 (put 'gnus-summary-normal-ticked-face 'obsolete-face "22.1")
 752
 753 (defface gnus-summary-high-ancient
 754   '((((class color)
 755       (background dark))
 756      (:foreground "SkyBlue" :bold t))
 757     (((class color)
 758       (background light))
 759      (:foreground "RoyalBlue" :bold t))
 760     (t
 761      (:bold t)))
 762   "Face used for high interest ancient articles."
 763   :group 'gnus-summary)
 764 ;; backward-compatibility alias
 765 (put 'gnus-summary-high-ancient-face 'face-alias 'gnus-summary-high-ancient)
 766 (put 'gnus-summary-high-ancient-face 'obsolete-face "22.1")
 767
 768 (defface gnus-summary-low-ancient
 769   '((((class color)
 770       (background dark))
 771      (:foreground "SkyBlue" :italic t))
 772     (((class color)
 773       (background light))
 774      (:foreground "RoyalBlue" :italic t))
 775     (t
 776      (:italic t)))
 777   "Face used for low interest ancient articles."
 778   :group 'gnus-summary)
 779 ;; backward-compatibility alias
 780 (put 'gnus-summary-low-ancient-face 'face-alias 'gnus-summary-low-ancient)
 781 (put 'gnus-summary-low-ancient-face 'obsolete-face "22.1")
 782
 783 (defface gnus-summary-normal-ancient
 784   '((((class color)
 785       (background dark))
 786      (:foreground "SkyBlue"))
 787     (((class color)
 788       (background light))
 789      (:foreground "RoyalBlue"))
 790     (t
 791      ()))
 792   "Face used for normal interest ancient articles."
 793   :group 'gnus-summary)
 794 ;; backward-compatibility alias
 795 (put 'gnus-summary-normal-ancient-face 'face-alias 'gnus-summary-normal-ancient)
 796 (put 'gnus-summary-normal-ancient-face 'obsolete-face "22.1")
 797
 798 (defface gnus-summary-high-undownloaded
 799    '((((class color)
 800        (background light))
 801       (:bold t :foreground "cyan4"))
 802      (((class color) (background dark))
 803       (:bold t :foreground "LightGray"))
 804      (t (:inverse-video t :bold t)))
 805   "Face used for high interest uncached articles."
 806   :group 'gnus-summary)
 807 ;; backward-compatibility alias
 808 (put 'gnus-summary-high-undownloaded-face 'face-alias 'gnus-summary-high-undownloaded)
 809 (put 'gnus-summary-high-undownloaded-face 'obsolete-face "22.1")
 810
 811 (defface gnus-summary-low-undownloaded
 812    '((((class color)
 813        (background light))
 814       (:italic t :foreground "cyan4" :bold nil))
 815      (((class color) (background dark))
 816       (:italic t :foreground "LightGray" :bold nil))
 817      (t (:inverse-video t :italic t)))
 818   "Face used for low interest uncached articles."
 819   :group 'gnus-summary)
 820 ;; backward-compatibility alias
 821 (put 'gnus-summary-low-undownloaded-face 'face-alias 'gnus-summary-low-undownloaded)
 822 (put 'gnus-summary-low-undownloaded-face 'obsolete-face "22.1")
 823
 824 (defface gnus-summary-normal-undownloaded
 825    '((((class color)
 826        (background light))
 827       (:foreground "cyan4" :bold nil))
 828      (((class color) (background dark))
 829       (:foreground "LightGray" :bold nil))
 830      (t (:inverse-video t)))
 831   "Face used for normal interest uncached articles."
 832   :group 'gnus-summary)
 833 ;; backward-compatibility alias
 834 (put 'gnus-summary-normal-undownloaded-face 'face-alias 'gnus-summary-normal-undownloaded)
 835 (put 'gnus-summary-normal-undownloaded-face 'obsolete-face "22.1")
 836
 837 (defface gnus-summary-high-unread
 838   '((t
 839      (:bold t)))
 840   "Face used for high interest unread articles."
 841   :group 'gnus-summary)
 842 ;; backward-compatibility alias
 843 (put 'gnus-summary-high-unread-face 'face-alias 'gnus-summary-high-unread)
 844 (put 'gnus-summary-high-unread-face 'obsolete-face "22.1")
 845
 846 (defface gnus-summary-low-unread
 847   '((t
 848      (:italic t)))
 849   "Face used for low interest unread articles."
 850   :group 'gnus-summary)
 851 ;; backward-compatibility alias
 852 (put 'gnus-summary-low-unread-face 'face-alias 'gnus-summary-low-unread)
 853 (put 'gnus-summary-low-unread-face 'obsolete-face "22.1")
 854
 855 (defface gnus-summary-normal-unread
 856   '((t
 857      ()))
 858   "Face used for normal interest unread articles."
 859   :group 'gnus-summary)
 860 ;; backward-compatibility alias
 861 (put 'gnus-summary-normal-unread-face 'face-alias 'gnus-summary-normal-unread)
 862 (put 'gnus-summary-normal-unread-face 'obsolete-face "22.1")
 863