Index: emacs/lisp/gnus/gnus.el
diff -c emacs/lisp/gnus/gnus.el:1.42 emacs/lisp/gnus/gnus.el:1.43
*** emacs/lisp/gnus/gnus.el:1.42 Thu May 26 15:03:29 2005
--- emacs/lisp/gnus/gnus.el Thu Jun 16 03:48:19 2005
***************
*** 357,363 ****
;; We define these group faces here to avoid the display
;; update forced when creating new faces.
! (defface gnus-group-news-1-face
'((((class color)
(background dark))
(:foreground "PaleTurquoise" :bold t))
--- 357,363 ----
;; We define these group faces here to avoid the display
;; update forced when creating new faces.
! (defface gnus-group-news-1
'((((class color)
(background dark))
(:foreground "PaleTurquoise" :bold t))
***************
*** 368,375 ****
()))
"Level 1 newsgroup face."
:group 'gnus-group)
! (defface gnus-group-news-1-empty-face
'((((class color)
(background dark))
(:foreground "PaleTurquoise"))
--- 368,377 ----
()))
"Level 1 newsgroup face."
:group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-news-1-face 'face-alias 'gnus-group-news-1)
! (defface gnus-group-news-1-empty
'((((class color)
(background dark))
(:foreground "PaleTurquoise"))
***************
*** 380,387 ****
()))
"Level 1 empty newsgroup face."
:group 'gnus-group)
! (defface gnus-group-news-2-face
'((((class color)
(background dark))
(:foreground "turquoise" :bold t))
--- 382,391 ----
()))
"Level 1 empty newsgroup face."
:group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-news-1-empty-face 'face-alias 'gnus-group-news-1-empty)
! (defface gnus-group-news-2
'((((class color)
(background dark))
(:foreground "turquoise" :bold t))
***************
*** 392,399 ****
()))
"Level 2 newsgroup face."
:group 'gnus-group)
! (defface gnus-group-news-2-empty-face
'((((class color)
(background dark))
(:foreground "turquoise"))
--- 396,405 ----
()))
"Level 2 newsgroup face."
:group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-news-2-face 'face-alias 'gnus-group-news-2)
! (defface gnus-group-news-2-empty
'((((class color)
(background dark))
(:foreground "turquoise"))
***************
*** 404,411 ****
()))
"Level 2 empty newsgroup face."
:group 'gnus-group)
! (defface gnus-group-news-3-face
'((((class color)
(background dark))
(:bold t))
--- 410,419 ----
()))
"Level 2 empty newsgroup face."
:group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-news-2-empty-face 'face-alias 'gnus-group-news-2-empty)
! (defface gnus-group-news-3
'((((class color)
(background dark))
(:bold t))
***************
*** 416,423 ****
()))
"Level 3 newsgroup face."
:group 'gnus-group)
! (defface gnus-group-news-3-empty-face
'((((class color)
(background dark))
())
--- 424,433 ----
()))
"Level 3 newsgroup face."
:group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-news-3-face 'face-alias 'gnus-group-news-3)
! (defface gnus-group-news-3-empty
'((((class color)
(background dark))
())
***************
*** 428,435 ****
()))
"Level 3 empty newsgroup face."
:group 'gnus-group)
! (defface gnus-group-news-4-face
'((((class color)
(background dark))
(:bold t))
--- 438,447 ----
()))
"Level 3 empty newsgroup face."
:group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-news-3-empty-face 'face-alias 'gnus-group-news-3-empty)
! (defface gnus-group-news-4
'((((class color)
(background dark))
(:bold t))
***************
*** 440,447 ****
()))
"Level 4 newsgroup face."
:group 'gnus-group)
! (defface gnus-group-news-4-empty-face
'((((class color)
(background dark))
())
--- 452,461 ----
()))
"Level 4 newsgroup face."
:group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-news-4-face 'face-alias 'gnus-group-news-4)
! (defface gnus-group-news-4-empty
'((((class color)
(background dark))
())
***************
*** 452,459 ****
()))
"Level 4 empty newsgroup face."
:group 'gnus-group)
! (defface gnus-group-news-5-face
'((((class color)
(background dark))
(:bold t))
--- 466,475 ----
()))
"Level 4 empty newsgroup face."
:group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-news-4-empty-face 'face-alias 'gnus-group-news-4-empty)
! (defface gnus-group-news-5
'((((class color)
(background dark))
(:bold t))
***************
*** 464,471 ****
()))
"Level 5 newsgroup face."
:group 'gnus-group)
! (defface gnus-group-news-5-empty-face
'((((class color)
(background dark))
())
--- 480,489 ----
()))
"Level 5 newsgroup face."
:group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-news-5-face 'face-alias 'gnus-group-news-5)
! (defface gnus-group-news-5-empty
'((((class color)
(background dark))
())
***************
*** 476,483 ****
()))
"Level 5 empty newsgroup face."
:group 'gnus-group)
! (defface gnus-group-news-6-face
'((((class color)
(background dark))
(:bold t))
--- 494,503 ----
()))
"Level 5 empty newsgroup face."
:group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-news-5-empty-face 'face-alias 'gnus-group-news-5-empty)
! (defface gnus-group-news-6
'((((class color)
(background dark))
(:bold t))
***************
*** 488,495 ****
()))
"Level 6 newsgroup face."
:group 'gnus-group)
! (defface gnus-group-news-6-empty-face
'((((class color)
(background dark))
())
--- 508,517 ----
()))
"Level 6 newsgroup face."
:group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-news-6-face 'face-alias 'gnus-group-news-6)
! (defface gnus-group-news-6-empty
'((((class color)
(background dark))
())
***************
*** 500,507 ****
()))
"Level 6 empty newsgroup face."
:group 'gnus-group)
! (defface gnus-group-news-low-face
'((((class color)
(background dark))
(:foreground "DarkTurquoise" :bold t))
--- 522,531 ----
()))
"Level 6 empty newsgroup face."
:group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-news-6-empty-face 'face-alias 'gnus-group-news-6-empty)
! (defface gnus-group-news-low
'((((class color)
(background dark))
(:foreground "DarkTurquoise" :bold t))
***************
*** 512,519 ****
()))
"Low level newsgroup face."
:group 'gnus-group)
! (defface gnus-group-news-low-empty-face
'((((class color)
(background dark))
(:foreground "DarkTurquoise"))
--- 536,545 ----
()))
"Low level newsgroup face."
:group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-news-low-face 'face-alias 'gnus-group-news-low)
! (defface gnus-group-news-low-empty
'((((class color)
(background dark))
(:foreground "DarkTurquoise"))
***************
*** 524,531 ****
()))
"Low level empty newsgroup face."
:group 'gnus-group)
! (defface gnus-group-mail-1-face
'((((class color)
(background dark))
(:foreground "aquamarine1" :bold t))
--- 550,559 ----
()))
"Low level empty newsgroup face."
:group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-news-low-empty-face 'face-alias 'gnus-group-news-low-empty)
! (defface gnus-group-mail-1
'((((class color)
(background dark))
(:foreground "aquamarine1" :bold t))
***************
*** 536,543 ****
(:bold t)))
"Level 1 mailgroup face."
:group 'gnus-group)
! (defface gnus-group-mail-1-empty-face
'((((class color)
(background dark))
(:foreground "aquamarine1"))
--- 564,573 ----
(:bold t)))
"Level 1 mailgroup face."
:group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-mail-1-face 'face-alias 'gnus-group-mail-1)
! (defface gnus-group-mail-1-empty
'((((class color)
(background dark))
(:foreground "aquamarine1"))
***************
*** 548,555 ****
(:italic t :bold t)))
"Level 1 empty mailgroup face."
:group 'gnus-group)
! (defface gnus-group-mail-2-face
'((((class color)
(background dark))
(:foreground "aquamarine2" :bold t))
--- 578,587 ----
(:italic t :bold t)))
"Level 1 empty mailgroup face."
:group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-mail-1-empty-face 'face-alias 'gnus-group-mail-1-empty)
! (defface gnus-group-mail-2
'((((class color)
(background dark))
(:foreground "aquamarine2" :bold t))
***************
*** 560,567 ****
(:bold t)))
"Level 2 mailgroup face."
:group 'gnus-group)
! (defface gnus-group-mail-2-empty-face
'((((class color)
(background dark))
(:foreground "aquamarine2"))
--- 592,601 ----
(:bold t)))
"Level 2 mailgroup face."
:group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-mail-2-face 'face-alias 'gnus-group-mail-2)
! (defface gnus-group-mail-2-empty
'((((class color)
(background dark))
(:foreground "aquamarine2"))
***************
*** 572,579 ****
(:bold t)))
"Level 2 empty mailgroup face."
:group 'gnus-group)
! (defface gnus-group-mail-3-face
'((((class color)
(background dark))
(:foreground "aquamarine3" :bold t))
--- 606,615 ----
(:bold t)))
"Level 2 empty mailgroup face."
:group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-mail-2-empty-face 'face-alias 'gnus-group-mail-2-empty)
! (defface gnus-group-mail-3
'((((class color)
(background dark))
(:foreground "aquamarine3" :bold t))
***************
*** 584,591 ****
(:bold t)))
"Level 3 mailgroup face."
:group 'gnus-group)
! (defface gnus-group-mail-3-empty-face
'((((class color)
(background dark))
(:foreground "aquamarine3"))
--- 620,629 ----
(:bold t)))
"Level 3 mailgroup face."
:group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-mail-3-face 'face-alias 'gnus-group-mail-3)
! (defface gnus-group-mail-3-empty
'((((class color)
(background dark))
(:foreground "aquamarine3"))
***************
*** 596,603 ****
()))
"Level 3 empty mailgroup face."
:group 'gnus-group)
! (defface gnus-group-mail-low-face
'((((class color)
(background dark))
(:foreground "aquamarine4" :bold t))
--- 634,643 ----
()))
"Level 3 empty mailgroup face."
:group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-mail-3-empty-face 'face-alias 'gnus-group-mail-3-empty)
! (defface gnus-group-mail-low
'((((class color)
(background dark))
(:foreground "aquamarine4" :bold t))
***************
*** 608,615 ****
(:bold t)))
"Low level mailgroup face."
:group 'gnus-group)
! (defface gnus-group-mail-low-empty-face
'((((class color)
(background dark))
(:foreground "aquamarine4"))
--- 648,657 ----
(:bold t)))
"Low level mailgroup face."
:group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-mail-low-face 'face-alias 'gnus-group-mail-low)
! (defface gnus-group-mail-low-empty
'((((class color)
(background dark))
(:foreground "aquamarine4"))
***************
*** 620,640 ****
(:bold t)))
"Low level empty mailgroup face."
:group 'gnus-group)
;; Summary mode faces.
! (defface gnus-summary-selected-face '((t
! (:underline t)))
"Face used for selected articles."
:group 'gnus-summary)
! (defface gnus-summary-cancelled-face
'((((class color))
(:foreground "yellow" :background "black")))
"Face used for cancelled articles."
:group 'gnus-summary)
! (defface gnus-summary-high-ticked-face
'((((class color)
(background dark))
(:foreground "pink" :bold t))
--- 662,687 ----
(:bold t)))
"Low level empty mailgroup face."
:group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-mail-low-empty-face 'face-alias 'gnus-group-mail-low-empty)
;; Summary mode faces.
! (defface gnus-summary-selected '((t (:underline t)))
"Face used for selected articles."
:group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-selected-face 'face-alias 'gnus-summary-selected)
! (defface gnus-summary-cancelled
'((((class color))
(:foreground "yellow" :background "black")))
"Face used for cancelled articles."
:group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-cancelled-face 'face-alias 'gnus-summary-cancelled)
! (defface gnus-summary-high-ticked
'((((class color)
(background dark))
(:foreground "pink" :bold t))
***************
*** 645,652 ****
(:bold t)))
"Face used for high interest ticked articles."
:group 'gnus-summary)
! (defface gnus-summary-low-ticked-face
'((((class color)
(background dark))
(:foreground "pink" :italic t))
--- 692,701 ----
(:bold t)))
"Face used for high interest ticked articles."
:group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-high-ticked-face 'face-alias 'gnus-summary-high-ticked)
! (defface gnus-summary-low-ticked
'((((class color)
(background dark))
(:foreground "pink" :italic t))
***************
*** 657,664 ****
(:italic t)))
"Face used for low interest ticked articles."
:group 'gnus-summary)
! (defface gnus-summary-normal-ticked-face
'((((class color)
(background dark))
(:foreground "pink"))
--- 706,715 ----
(:italic t)))
"Face used for low interest ticked articles."
:group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-low-ticked-face 'face-alias 'gnus-summary-low-ticked)
! (defface gnus-summary-normal-ticked
'((((class color)
(background dark))
(:foreground "pink"))
***************
*** 669,676 ****
()))
"Face used for normal interest ticked articles."
:group 'gnus-summary)
! (defface gnus-summary-high-ancient-face
'((((class color)
(background dark))
(:foreground "SkyBlue" :bold t))
--- 720,729 ----
()))
"Face used for normal interest ticked articles."
:group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-normal-ticked-face 'face-alias 'gnus-summary-normal-ticked)
! (defface gnus-summary-high-ancient
'((((class color)
(background dark))
(:foreground "SkyBlue" :bold t))
***************
*** 681,688 ****
(:bold t)))
"Face used for high interest ancient articles."
:group 'gnus-summary)
! (defface gnus-summary-low-ancient-face
'((((class color)
(background dark))
(:foreground "SkyBlue" :italic t))
--- 734,743 ----
(:bold t)))
"Face used for high interest ancient articles."
:group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-high-ancient-face 'face-alias 'gnus-summary-high-ancient)
! (defface gnus-summary-low-ancient
'((((class color)
(background dark))
(:foreground "SkyBlue" :italic t))
***************
*** 693,700 ****
(:italic t)))
"Face used for low interest ancient articles."
:group 'gnus-summary)
! (defface gnus-summary-normal-ancient-face
'((((class color)
(background dark))
(:foreground "SkyBlue"))
--- 748,757 ----
(:italic t)))
"Face used for low interest ancient articles."
:group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-low-ancient-face 'face-alias 'gnus-summary-low-ancient)
! (defface gnus-summary-normal-ancient
'((((class color)
(background dark))
(:foreground "SkyBlue"))
***************
*** 705,712 ****
()))
"Face used for normal interest ancient articles."
:group 'gnus-summary)
! (defface gnus-summary-high-undownloaded-face
'((((class color)
(background light))
(:bold t :foreground "cyan4"))
--- 762,771 ----
()))
"Face used for normal interest ancient articles."
:group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-normal-ancient-face 'face-alias
'gnus-summary-normal-ancient)
! (defface gnus-summary-high-undownloaded
'((((class color)
(background light))
(:bold t :foreground "cyan4"))
***************
*** 715,722 ****
(t (:inverse-video t :bold t)))
"Face used for high interest uncached articles."
:group 'gnus-summary)
! (defface gnus-summary-low-undownloaded-face
'((((class color)
(background light))
(:italic t :foreground "cyan4" :bold nil))
--- 774,783 ----
(t (:inverse-video t :bold t)))
"Face used for high interest uncached articles."
:group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-high-undownloaded-face 'face-alias
'gnus-summary-high-undownloaded)
! (defface gnus-summary-low-undownloaded
'((((class color)
(background light))
(:italic t :foreground "cyan4" :bold nil))
***************
*** 725,732 ****
(t (:inverse-video t :italic t)))
"Face used for low interest uncached articles."
:group 'gnus-summary)
! (defface gnus-summary-normal-undownloaded-face
'((((class color)
(background light))
(:foreground "cyan4" :bold nil))
--- 786,795 ----
(t (:inverse-video t :italic t)))
"Face used for low interest uncached articles."
:group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-low-undownloaded-face 'face-alias
'gnus-summary-low-undownloaded)
! (defface gnus-summary-normal-undownloaded
'((((class color)
(background light))
(:foreground "cyan4" :bold nil))
***************
*** 735,760 ****
(t (:inverse-video t)))
"Face used for normal interest uncached articles."
:group 'gnus-summary)
! (defface gnus-summary-high-unread-face
'((t
(:bold t)))
"Face used for high interest unread articles."
:group 'gnus-summary)
! (defface gnus-summary-low-unread-face
'((t
(:italic t)))
"Face used for low interest unread articles."
:group 'gnus-summary)
! (defface gnus-summary-normal-unread-face
'((t
()))
"Face used for normal interest unread articles."
:group 'gnus-summary)
! (defface gnus-summary-high-read-face
'((((class color)
(background dark))
(:foreground "PaleGreen"
--- 798,831 ----
(t (:inverse-video t)))
"Face used for normal interest uncached articles."
:group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-normal-undownloaded-face 'face-alias
'gnus-summary-normal-undownloaded)
! (defface gnus-summary-high-unread
'((t
(:bold t)))
"Face used for high interest unread articles."
:group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-high-unread-face 'face-alias 'gnus-summary-high-unread)
! (defface gnus-summary-low-unread
'((t
(:italic t)))
"Face used for low interest unread articles."
:group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-low-unread-face 'face-alias 'gnus-summary-low-unread)
! (defface gnus-summary-normal-unread
'((t
()))
"Face used for normal interest unread articles."
:group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-normal-unread-face 'face-alias 'gnus-summary-normal-unread)
! (defface gnus-summary-high-read
'((((class color)
(background dark))
(:foreground "PaleGreen"
***************
*** 767,774 ****
(:bold t)))
"Face used for high interest read articles."
:group 'gnus-summary)
! (defface gnus-summary-low-read-face
'((((class color)
(background dark))
(:foreground "PaleGreen"
--- 838,847 ----
(:bold t)))
"Face used for high interest read articles."
:group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-high-read-face 'face-alias 'gnus-summary-high-read)
! (defface gnus-summary-low-read
'((((class color)
(background dark))
(:foreground "PaleGreen"
***************
*** 781,788 ****
(:italic t)))
"Face used for low interest read articles."
:group 'gnus-summary)
! (defface gnus-summary-normal-read-face
'((((class color)
(background dark))
(:foreground "PaleGreen"))
--- 854,863 ----
(:italic t)))
"Face used for low interest read articles."
:group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-low-read-face 'face-alias 'gnus-summary-low-read)
! (defface gnus-summary-normal-read
'((((class color)
(background dark))
(:foreground "PaleGreen"))
***************
*** 793,798 ****
--- 868,875 ----
()))
"Face used for normal interest read articles."
:group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-normal-read-face 'face-alias 'gnus-summary-normal-read)
;;;
***************
*** 836,842 ****
(eval-and-compile
(autoload 'gnus-play-jingle "gnus-audio"))
! (defface gnus-splash-face
'((((class color)
(background dark))
(:foreground "#888888"))
--- 913,919 ----
(eval-and-compile
(autoload 'gnus-play-jingle "gnus-audio"))
! (defface gnus-splash
'((((class color)
(background dark))
(:foreground "#888888"))
***************
*** 847,852 ****
--- 924,931 ----
()))
"Face for the splash screen."
:group 'gnus)
+ ;; backward-compatibility alias
+ (put 'gnus-splash-face 'face-alias 'gnus-splash)
(defun gnus-splash ()
(save-excursion
***************
*** 925,935 ****
("background" . ,(face-background 'default))))
(:type pbm :file "gnus.pbm"
;; Account for the pbm's blackground.
! :background ,(face-foreground 'gnus-splash-face)
:foreground ,(face-background 'default))
(:type xbm :file "gnus.xbm"
;; Account for the xbm's blackground.
! :background ,(face-foreground 'gnus-splash-face)
:foreground ,(face-background 'default))))))
(when image
(let ((size (image-size image)))
--- 1004,1014 ----
("background" . ,(face-background 'default))))
(:type pbm :file "gnus.pbm"
;; Account for the pbm's blackground.
! :background ,(face-foreground 'gnus-splash)
:foreground ,(face-background 'default))
(:type xbm :file "gnus.xbm"
;; Account for the xbm's blackground.
! :background ,(face-foreground 'gnus-splash)
:foreground ,(face-background 'default))))))
(when image
(let ((size (image-size image)))
***************
*** 973,979 ****
(rest (- wheight pheight)))
(insert (make-string (max 0 (* 2 (/ rest 3))) ?\n)))
;; Fontify some.
! (put-text-property (point-min) (point-max) 'face 'gnus-splash-face)
(setq gnus-simple-splash t)))
(goto-char (point-min))
(setq mode-line-buffer-identification (concat " " gnus-version))
--- 1052,1058 ----
(rest (- wheight pheight)))
(insert (make-string (max 0 (* 2 (/ rest 3))) ?\n)))
;; Fontify some.
! (put-text-property (point-min) (point-max) 'face 'gnus-splash)
(setq gnus-simple-splash t)))
(goto-char (point-min))
(setq mode-line-buffer-identification (concat " " gnus-version))
_______________________________________________
Emacs-diffs mailing list
Emacs-diffs@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-diffs
