Commit 3d493bef authored by Glenn Morris's avatar Glenn Morris
Browse files

Mark face aliases with "-face" in the name as obsolete.

parent f6db4734
2009-09-02 Glenn Morris <rgm@gnu.org>
* gnus-art.el (gnus-signature-face, gnus-header-from-face)
(gnus-header-subject-face, gnus-header-newsgroups-face)
(gnus-header-name-face, gnus-header-content-face):
* gnus-cite.el (gnus-cite-attribution-face, gnus-cite-face-1)
(gnus-cite-face-2, gnus-cite-face-3, gnus-cite-face-4)
(gnus-cite-face-5, gnus-cite-face-6, gnus-cite-face-7)
(gnus-cite-face-8, gnus-cite-face-9, gnus-cite-face-10)
(gnus-cite-face-11):
* gnus-picon.el (gnus-picon-xbm-face, gnus-picon-face):
* gnus-srvr.el (gnus-server-agent-face, gnus-server-opened-face)
(gnus-server-closed-face, gnus-server-denied-face)
(gnus-server-offline-face):
* gnus.el (gnus-group-news-1-face, gnus-group-news-1-empty-face)
(gnus-group-news-2-face, gnus-group-news-2-empty-face)
(gnus-group-news-3-face, gnus-group-news-3-empty-face)
(gnus-group-news-4-face, gnus-group-news-4-empty-face)
(gnus-group-news-5-face, gnus-group-news-5-empty-face)
(gnus-group-news-6-face, gnus-group-news-6-empty-face)
(gnus-group-news-low-face, gnus-group-news-low-empty-face)
(gnus-group-mail-1-face, gnus-group-mail-1-empty-face)
(gnus-group-mail-2-face, gnus-group-mail-2-empty-face)
(gnus-group-mail-3-face, gnus-group-mail-3-empty-face)
(gnus-group-mail-low-face, gnus-group-mail-low-empty-face)
(gnus-summary-selected-face, gnus-summary-cancelled-face)
(gnus-summary-high-ticked-face, gnus-summary-low-ticked-face)
(gnus-summary-normal-ticked-face, gnus-summary-high-ancient-face)
(gnus-summary-low-ancient-face, gnus-summary-normal-ancient-face)
(gnus-summary-high-undownloaded-face)
(gnus-summary-low-undownloaded-face)
(gnus-summary-normal-undownloaded-face)
(gnus-summary-high-unread-face, gnus-summary-low-unread-face)
(gnus-summary-normal-unread-face, gnus-summary-high-read-face)
(gnus-summary-low-read-face, gnus-summary-normal-read-face)
(gnus-splash-face):
* message.el (message-header-to-face, message-header-cc-face)
(message-header-subject-face, message-header-newsgroups-face)
(message-header-other-face, message-header-name-face)
(message-header-xheader-face, message-separator-face)
(message-cited-text-face, message-mml-face):
* sieve-mode.el (sieve-control-commands-face)
(sieve-action-commands-face, sieve-test-commands-face)
(sieve-tagged-arguments-face):
* spam.el (spam-face):
Mark face aliases with "-face" in the name as obsolete.
2009-09-01 Glenn Morris <rgm@gnu.org> 2009-09-01 Glenn Morris <rgm@gnu.org>
* gnus-salt.el (gnus-pick-mouse-pick-region): Use forward-line rather * gnus-salt.el (gnus-pick-mouse-pick-region): Use forward-line rather
......
...@@ -766,6 +766,7 @@ Obsolete; use the face `gnus-signature' for customizations instead." ...@@ -766,6 +766,7 @@ Obsolete; use the face `gnus-signature' for customizations instead."
:group 'gnus-article-signature) :group 'gnus-article-signature)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-signature-face 'face-alias 'gnus-signature) (put 'gnus-signature-face 'face-alias 'gnus-signature)
(put 'gnus-signature-face 'obsolete-face "22.1")
(defface gnus-header-from (defface gnus-header-from
'((((class color) '((((class color)
...@@ -781,6 +782,7 @@ Obsolete; use the face `gnus-signature' for customizations instead." ...@@ -781,6 +782,7 @@ Obsolete; use the face `gnus-signature' for customizations instead."
:group 'gnus-article-highlight) :group 'gnus-article-highlight)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-header-from-face 'face-alias 'gnus-header-from) (put 'gnus-header-from-face 'face-alias 'gnus-header-from)
(put 'gnus-header-from-face 'obsolete-face "22.1")
(defface gnus-header-subject (defface gnus-header-subject
'((((class color) '((((class color)
...@@ -796,6 +798,7 @@ Obsolete; use the face `gnus-signature' for customizations instead." ...@@ -796,6 +798,7 @@ Obsolete; use the face `gnus-signature' for customizations instead."
:group 'gnus-article-highlight) :group 'gnus-article-highlight)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-header-subject-face 'face-alias 'gnus-header-subject) (put 'gnus-header-subject-face 'face-alias 'gnus-header-subject)
(put 'gnus-header-subject-face 'obsolete-face "22.1")
(defface gnus-header-newsgroups (defface gnus-header-newsgroups
'((((class color) '((((class color)
...@@ -813,6 +816,7 @@ articles." ...@@ -813,6 +816,7 @@ articles."
:group 'gnus-article-highlight) :group 'gnus-article-highlight)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-header-newsgroups-face 'face-alias 'gnus-header-newsgroups) (put 'gnus-header-newsgroups-face 'face-alias 'gnus-header-newsgroups)
(put 'gnus-header-newsgroups-face 'obsolete-face "22.1")
(defface gnus-header-name (defface gnus-header-name
'((((class color) '((((class color)
...@@ -828,6 +832,7 @@ articles." ...@@ -828,6 +832,7 @@ articles."
:group 'gnus-article-highlight) :group 'gnus-article-highlight)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-header-name-face 'face-alias 'gnus-header-name) (put 'gnus-header-name-face 'face-alias 'gnus-header-name)
(put 'gnus-header-name-face 'obsolete-face "22.1")
(defface gnus-header-content (defface gnus-header-content
'((((class color) '((((class color)
...@@ -842,6 +847,7 @@ articles." ...@@ -842,6 +847,7 @@ articles."
:group 'gnus-article-highlight) :group 'gnus-article-highlight)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-header-content-face 'face-alias 'gnus-header-content) (put 'gnus-header-content-face 'face-alias 'gnus-header-content)
(put 'gnus-header-content-face 'obsolete-face "22.1")
(defcustom gnus-header-face-alist (defcustom gnus-header-face-alist
'(("From" nil gnus-header-from) '(("From" nil gnus-header-from)
......
...@@ -142,6 +142,7 @@ the envelope From line." ...@@ -142,6 +142,7 @@ the envelope From line."
:group 'gnus-cite) :group 'gnus-cite)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-cite-attribution-face 'face-alias 'gnus-cite-attribution) (put 'gnus-cite-attribution-face 'face-alias 'gnus-cite-attribution)
(put 'gnus-cite-attribution-face 'obsolete-face "22.1")
(defcustom gnus-cite-attribution-face 'gnus-cite-attribution (defcustom gnus-cite-attribution-face 'gnus-cite-attribution
"Face used for attribution lines. "Face used for attribution lines.
...@@ -162,6 +163,7 @@ It is merged with the face for the cited text belonging to the attribution." ...@@ -162,6 +163,7 @@ It is merged with the face for the cited text belonging to the attribution."
:group 'gnus-cite) :group 'gnus-cite)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-cite-face-1 'face-alias 'gnus-cite-1) (put 'gnus-cite-face-1 'face-alias 'gnus-cite-1)
(put 'gnus-cite-face-1 'obsolete-face "22.1")
(defface gnus-cite-2 '((((class color) (defface gnus-cite-2 '((((class color)
(background dark)) (background dark))
...@@ -175,6 +177,7 @@ It is merged with the face for the cited text belonging to the attribution." ...@@ -175,6 +177,7 @@ It is merged with the face for the cited text belonging to the attribution."
:group 'gnus-cite) :group 'gnus-cite)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-cite-face-2 'face-alias 'gnus-cite-2) (put 'gnus-cite-face-2 'face-alias 'gnus-cite-2)
(put 'gnus-cite-face-2 'obsolete-face "22.1")
(defface gnus-cite-3 '((((class color) (defface gnus-cite-3 '((((class color)
(background dark)) (background dark))
...@@ -188,6 +191,7 @@ It is merged with the face for the cited text belonging to the attribution." ...@@ -188,6 +191,7 @@ It is merged with the face for the cited text belonging to the attribution."
:group 'gnus-cite) :group 'gnus-cite)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-cite-face-3 'face-alias 'gnus-cite-3) (put 'gnus-cite-face-3 'face-alias 'gnus-cite-3)
(put 'gnus-cite-face-3 'obsolete-face "22.1")
(defface gnus-cite-4 '((((class color) (defface gnus-cite-4 '((((class color)
(background dark)) (background dark))
...@@ -201,6 +205,7 @@ It is merged with the face for the cited text belonging to the attribution." ...@@ -201,6 +205,7 @@ It is merged with the face for the cited text belonging to the attribution."
:group 'gnus-cite) :group 'gnus-cite)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-cite-face-4 'face-alias 'gnus-cite-4) (put 'gnus-cite-face-4 'face-alias 'gnus-cite-4)
(put 'gnus-cite-face-4 'obsolete-face "22.1")
(defface gnus-cite-5 '((((class color) (defface gnus-cite-5 '((((class color)
(background dark)) (background dark))
...@@ -214,6 +219,7 @@ It is merged with the face for the cited text belonging to the attribution." ...@@ -214,6 +219,7 @@ It is merged with the face for the cited text belonging to the attribution."
:group 'gnus-cite) :group 'gnus-cite)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-cite-face-5 'face-alias 'gnus-cite-5) (put 'gnus-cite-face-5 'face-alias 'gnus-cite-5)
(put 'gnus-cite-face-5 'obsolete-face "22.1")
(defface gnus-cite-6 '((((class color) (defface gnus-cite-6 '((((class color)
(background dark)) (background dark))
...@@ -227,6 +233,7 @@ It is merged with the face for the cited text belonging to the attribution." ...@@ -227,6 +233,7 @@ It is merged with the face for the cited text belonging to the attribution."
:group 'gnus-cite) :group 'gnus-cite)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-cite-face-6 'face-alias 'gnus-cite-6) (put 'gnus-cite-face-6 'face-alias 'gnus-cite-6)
(put 'gnus-cite-face-6 'obsolete-face "22.1")
(defface gnus-cite-7 '((((class color) (defface gnus-cite-7 '((((class color)
(background dark)) (background dark))
...@@ -240,6 +247,7 @@ It is merged with the face for the cited text belonging to the attribution." ...@@ -240,6 +247,7 @@ It is merged with the face for the cited text belonging to the attribution."
:group 'gnus-cite) :group 'gnus-cite)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-cite-face-7 'face-alias 'gnus-cite-7) (put 'gnus-cite-face-7 'face-alias 'gnus-cite-7)
(put 'gnus-cite-face-7 'obsolete-face "22.1")
(defface gnus-cite-8 '((((class color) (defface gnus-cite-8 '((((class color)
(background dark)) (background dark))
...@@ -253,6 +261,7 @@ It is merged with the face for the cited text belonging to the attribution." ...@@ -253,6 +261,7 @@ It is merged with the face for the cited text belonging to the attribution."
:group 'gnus-cite) :group 'gnus-cite)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-cite-face-8 'face-alias 'gnus-cite-8) (put 'gnus-cite-face-8 'face-alias 'gnus-cite-8)
(put 'gnus-cite-face-8 'obsolete-face "22.1")
(defface gnus-cite-9 '((((class color) (defface gnus-cite-9 '((((class color)
(background dark)) (background dark))
...@@ -266,6 +275,7 @@ It is merged with the face for the cited text belonging to the attribution." ...@@ -266,6 +275,7 @@ It is merged with the face for the cited text belonging to the attribution."
:group 'gnus-cite) :group 'gnus-cite)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-cite-face-9 'face-alias 'gnus-cite-9) (put 'gnus-cite-face-9 'face-alias 'gnus-cite-9)
(put 'gnus-cite-face-9 'obsolete-face "22.1")
(defface gnus-cite-10 '((((class color) (defface gnus-cite-10 '((((class color)
(background dark)) (background dark))
...@@ -279,6 +289,7 @@ It is merged with the face for the cited text belonging to the attribution." ...@@ -279,6 +289,7 @@ It is merged with the face for the cited text belonging to the attribution."
:group 'gnus-cite) :group 'gnus-cite)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-cite-face-10 'face-alias 'gnus-cite-10) (put 'gnus-cite-face-10 'face-alias 'gnus-cite-10)
(put 'gnus-cite-face-10 'obsolete-face "22.1")
(defface gnus-cite-11 '((((class color) (defface gnus-cite-11 '((((class color)
(background dark)) (background dark))
...@@ -292,6 +303,7 @@ It is merged with the face for the cited text belonging to the attribution." ...@@ -292,6 +303,7 @@ It is merged with the face for the cited text belonging to the attribution."
:group 'gnus-cite) :group 'gnus-cite)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-cite-face-11 'face-alias 'gnus-cite-11) (put 'gnus-cite-face-11 'face-alias 'gnus-cite-11)
(put 'gnus-cite-face-11 'obsolete-face "22.1")
(defcustom gnus-cite-face-list (defcustom gnus-cite-face-list
'(gnus-cite-1 gnus-cite-2 gnus-cite-3 gnus-cite-4 gnus-cite-5 gnus-cite-6 '(gnus-cite-1 gnus-cite-2 gnus-cite-3 gnus-cite-4 gnus-cite-5 gnus-cite-6
......
...@@ -90,12 +90,14 @@ added right to the textual representation." ...@@ -90,12 +90,14 @@ added right to the textual representation."
:group 'gnus-picon) :group 'gnus-picon)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-picon-xbm-face 'face-alias 'gnus-picon-xbm) (put 'gnus-picon-xbm-face 'face-alias 'gnus-picon-xbm)
(put 'gnus-picon-xbm-face 'obsolete-face "22.1")
(defface gnus-picon '((t (:foreground "black" :background "white"))) (defface gnus-picon '((t (:foreground "black" :background "white")))
"Face to show picon in." "Face to show picon in."
:group 'gnus-picon) :group 'gnus-picon)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-picon-face 'face-alias 'gnus-picon) (put 'gnus-picon-face 'face-alias 'gnus-picon)
(put 'gnus-picon-face 'obsolete-face "22.1")
;;; Internal variables: ;;; Internal variables:
......
...@@ -177,6 +177,7 @@ If nil, a faster, but more primitive, buffer is used instead." ...@@ -177,6 +177,7 @@ If nil, a faster, but more primitive, buffer is used instead."
:group 'gnus-server-visual) :group 'gnus-server-visual)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-server-agent-face 'face-alias 'gnus-server-agent) (put 'gnus-server-agent-face 'face-alias 'gnus-server-agent)
(put 'gnus-server-agent-face 'obsolete-face "22.1")
(defface gnus-server-opened (defface gnus-server-opened
'((((class color) (background light)) (:foreground "Green3" :bold t)) '((((class color) (background light)) (:foreground "Green3" :bold t))
...@@ -186,6 +187,7 @@ If nil, a faster, but more primitive, buffer is used instead." ...@@ -186,6 +187,7 @@ If nil, a faster, but more primitive, buffer is used instead."
:group 'gnus-server-visual) :group 'gnus-server-visual)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-server-opened-face 'face-alias 'gnus-server-opened) (put 'gnus-server-opened-face 'face-alias 'gnus-server-opened)
(put 'gnus-server-opened-face 'obsolete-face "22.1")
(defface gnus-server-closed (defface gnus-server-closed
'((((class color) (background light)) (:foreground "Steel Blue" :italic t)) '((((class color) (background light)) (:foreground "Steel Blue" :italic t))
...@@ -196,6 +198,7 @@ If nil, a faster, but more primitive, buffer is used instead." ...@@ -196,6 +198,7 @@ If nil, a faster, but more primitive, buffer is used instead."
:group 'gnus-server-visual) :group 'gnus-server-visual)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-server-closed-face 'face-alias 'gnus-server-closed) (put 'gnus-server-closed-face 'face-alias 'gnus-server-closed)
(put 'gnus-server-closed-face 'obsolete-face "22.1")
(defface gnus-server-denied (defface gnus-server-denied
'((((class color) (background light)) (:foreground "Red" :bold t)) '((((class color) (background light)) (:foreground "Red" :bold t))
...@@ -205,6 +208,7 @@ If nil, a faster, but more primitive, buffer is used instead." ...@@ -205,6 +208,7 @@ If nil, a faster, but more primitive, buffer is used instead."
:group 'gnus-server-visual) :group 'gnus-server-visual)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-server-denied-face 'face-alias 'gnus-server-denied) (put 'gnus-server-denied-face 'face-alias 'gnus-server-denied)
(put 'gnus-server-denied-face 'obsolete-face "22.1")
(defface gnus-server-offline (defface gnus-server-offline
'((((class color) (background light)) (:foreground "Orange" :bold t)) '((((class color) (background light)) (:foreground "Orange" :bold t))
...@@ -214,6 +218,7 @@ If nil, a faster, but more primitive, buffer is used instead." ...@@ -214,6 +218,7 @@ If nil, a faster, but more primitive, buffer is used instead."
:group 'gnus-server-visual) :group 'gnus-server-visual)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-server-offline-face 'face-alias 'gnus-server-offline) (put 'gnus-server-offline-face 'face-alias 'gnus-server-offline)
(put 'gnus-server-offline-face 'obsolete-face "22.1")
(defvar gnus-server-font-lock-keywords (defvar gnus-server-font-lock-keywords
'(("(\\(agent\\))" 1 'gnus-server-agent) '(("(\\(agent\\))" 1 'gnus-server-agent)
......
...@@ -378,6 +378,7 @@ be set in `.emacs' instead." ...@@ -378,6 +378,7 @@ be set in `.emacs' instead."
:group 'gnus-group) :group 'gnus-group)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-group-news-1-face 'face-alias 'gnus-group-news-1) (put 'gnus-group-news-1-face 'face-alias 'gnus-group-news-1)
(put 'gnus-group-news-1-face 'obsolete-face "22.1")
(defface gnus-group-news-1-empty (defface gnus-group-news-1-empty
'((((class color) '((((class color)
...@@ -392,6 +393,7 @@ be set in `.emacs' instead." ...@@ -392,6 +393,7 @@ be set in `.emacs' instead."
:group 'gnus-group) :group 'gnus-group)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-group-news-1-empty-face 'face-alias 'gnus-group-news-1-empty) (put 'gnus-group-news-1-empty-face 'face-alias 'gnus-group-news-1-empty)
(put 'gnus-group-news-1-empty-face 'obsolete-face "22.1")
(defface gnus-group-news-2 (defface gnus-group-news-2
'((((class color) '((((class color)
...@@ -406,6 +408,7 @@ be set in `.emacs' instead." ...@@ -406,6 +408,7 @@ be set in `.emacs' instead."
:group 'gnus-group) :group 'gnus-group)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-group-news-2-face 'face-alias 'gnus-group-news-2) (put 'gnus-group-news-2-face 'face-alias 'gnus-group-news-2)
(put 'gnus-group-news-2-face 'obsolete-face "22.1")
(defface gnus-group-news-2-empty (defface gnus-group-news-2-empty
'((((class color) '((((class color)
...@@ -420,6 +423,7 @@ be set in `.emacs' instead." ...@@ -420,6 +423,7 @@ be set in `.emacs' instead."
:group 'gnus-group) :group 'gnus-group)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-group-news-2-empty-face 'face-alias 'gnus-group-news-2-empty) (put 'gnus-group-news-2-empty-face 'face-alias 'gnus-group-news-2-empty)
(put 'gnus-group-news-2-empty-face 'obsolete-face "22.1")
(defface gnus-group-news-3 (defface gnus-group-news-3
'((((class color) '((((class color)
...@@ -434,6 +438,7 @@ be set in `.emacs' instead." ...@@ -434,6 +438,7 @@ be set in `.emacs' instead."
:group 'gnus-group) :group 'gnus-group)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-group-news-3-face 'face-alias 'gnus-group-news-3) (put 'gnus-group-news-3-face 'face-alias 'gnus-group-news-3)
(put 'gnus-group-news-3-face 'obsolete-face "22.1")
(defface gnus-group-news-3-empty (defface gnus-group-news-3-empty
'((((class color) '((((class color)
...@@ -448,6 +453,7 @@ be set in `.emacs' instead." ...@@ -448,6 +453,7 @@ be set in `.emacs' instead."
:group 'gnus-group) :group 'gnus-group)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-group-news-3-empty-face 'face-alias 'gnus-group-news-3-empty) (put 'gnus-group-news-3-empty-face 'face-alias 'gnus-group-news-3-empty)
(put 'gnus-group-news-3-empty-face 'obsolete-face "22.1")
(defface gnus-group-news-4 (defface gnus-group-news-4
'((((class color) '((((class color)
...@@ -462,6 +468,7 @@ be set in `.emacs' instead." ...@@ -462,6 +468,7 @@ be set in `.emacs' instead."
:group 'gnus-group) :group 'gnus-group)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-group-news-4-face 'face-alias 'gnus-group-news-4) (put 'gnus-group-news-4-face 'face-alias 'gnus-group-news-4)
(put 'gnus-group-news-4-face 'obsolete-face "22.1")
(defface gnus-group-news-4-empty (defface gnus-group-news-4-empty
'((((class color) '((((class color)
...@@ -476,6 +483,7 @@ be set in `.emacs' instead." ...@@ -476,6 +483,7 @@ be set in `.emacs' instead."
:group 'gnus-group) :group 'gnus-group)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-group-news-4-empty-face 'face-alias 'gnus-group-news-4-empty) (put 'gnus-group-news-4-empty-face 'face-alias 'gnus-group-news-4-empty)
(put 'gnus-group-news-4-empty-face 'obsolete-face "22.1")
(defface gnus-group-news-5 (defface gnus-group-news-5
'((((class color) '((((class color)
...@@ -490,6 +498,7 @@ be set in `.emacs' instead." ...@@ -490,6 +498,7 @@ be set in `.emacs' instead."
:group 'gnus-group) :group 'gnus-group)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-group-news-5-face 'face-alias 'gnus-group-news-5) (put 'gnus-group-news-5-face 'face-alias 'gnus-group-news-5)
(put 'gnus-group-news-5-face 'obsolete-face "22.1")
(defface gnus-group-news-5-empty (defface gnus-group-news-5-empty
'((((class color) '((((class color)
...@@ -504,6 +513,7 @@ be set in `.emacs' instead." ...@@ -504,6 +513,7 @@ be set in `.emacs' instead."
:group 'gnus-group) :group 'gnus-group)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-group-news-5-empty-face 'face-alias 'gnus-group-news-5-empty) (put 'gnus-group-news-5-empty-face 'face-alias 'gnus-group-news-5-empty)
(put 'gnus-group-news-5-empty-face 'obsolete-face "22.1")
(defface gnus-group-news-6 (defface gnus-group-news-6
'((((class color) '((((class color)
...@@ -518,6 +528,7 @@ be set in `.emacs' instead." ...@@ -518,6 +528,7 @@ be set in `.emacs' instead."
:group 'gnus-group) :group 'gnus-group)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-group-news-6-face 'face-alias 'gnus-group-news-6) (put 'gnus-group-news-6-face 'face-alias 'gnus-group-news-6)
(put 'gnus-group-news-6-face 'obsolete-face "22.1")
(defface gnus-group-news-6-empty (defface gnus-group-news-6-empty
'((((class color) '((((class color)
...@@ -532,6 +543,7 @@ be set in `.emacs' instead." ...@@ -532,6 +543,7 @@ be set in `.emacs' instead."
:group 'gnus-group) :group 'gnus-group)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-group-news-6-empty-face 'face-alias 'gnus-group-news-6-empty) (put 'gnus-group-news-6-empty-face 'face-alias 'gnus-group-news-6-empty)
(put 'gnus-group-news-6-empty-face 'obsolete-face "22.1")
(defface gnus-group-news-low (defface gnus-group-news-low
'((((class color) '((((class color)
...@@ -546,6 +558,7 @@ be set in `.emacs' instead." ...@@ -546,6 +558,7 @@ be set in `.emacs' instead."
:group 'gnus-group) :group 'gnus-group)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-group-news-low-face 'face-alias 'gnus-group-news-low) (put 'gnus-group-news-low-face 'face-alias 'gnus-group-news-low)
(put 'gnus-group-news-low-face 'obsolete-face "22.1")
(defface gnus-group-news-low-empty (defface gnus-group-news-low-empty
'((((class color) '((((class color)
...@@ -560,6 +573,7 @@ be set in `.emacs' instead." ...@@ -560,6 +573,7 @@ be set in `.emacs' instead."
:group 'gnus-group) :group 'gnus-group)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-group-news-low-empty-face 'face-alias 'gnus-group-news-low-empty) (put 'gnus-group-news-low-empty-face 'face-alias 'gnus-group-news-low-empty)
(put 'gnus-group-news-low-empty-face 'obsolete-face "22.1")
(defface gnus-group-mail-1 (defface gnus-group-mail-1
'((((class color) '((((class color)
...@@ -574,6 +588,7 @@ be set in `.emacs' instead." ...@@ -574,6 +588,7 @@ be set in `.emacs' instead."
:group 'gnus-group) :group 'gnus-group)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-group-mail-1-face 'face-alias 'gnus-group-mail-1) (put 'gnus-group-mail-1-face 'face-alias 'gnus-group-mail-1)
(put 'gnus-group-mail-1-face 'obsolete-face "22.1")
(defface gnus-group-mail-1-empty (defface gnus-group-mail-1-empty
'((((class color) '((((class color)
...@@ -588,6 +603,7 @@ be set in `.emacs' instead." ...@@ -588,6 +603,7 @@ be set in `.emacs' instead."
:group 'gnus-group) :group 'gnus-group)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-group-mail-1-empty-face 'face-alias 'gnus-group-mail-1-empty) (put 'gnus-group-mail-1-empty-face 'face-alias 'gnus-group-mail-1-empty)
(put 'gnus-group-mail-1-empty-face 'obsolete-face "22.1")
(defface gnus-group-mail-2 (defface gnus-group-mail-2
'((((class color) '((((class color)
...@@ -602,6 +618,7 @@ be set in `.emacs' instead." ...@@ -602,6 +618,7 @@ be set in `.emacs' instead."
:group 'gnus-group) :group 'gnus-group)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-group-mail-2-face 'face-alias 'gnus-group-mail-2) (put 'gnus-group-mail-2-face 'face-alias 'gnus-group-mail-2)
(put 'gnus-group-mail-2-face 'obsolete-face "22.1")
(defface gnus-group-mail-2-empty (defface gnus-group-mail-2-empty
'((((class color) '((((class color)
...@@ -616,6 +633,7 @@ be set in `.emacs' instead." ...@@ -616,6 +633,7 @@ be set in `.emacs' instead."
:group 'gnus-group) :group 'gnus-group)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-group-mail-2-empty-face 'face-alias 'gnus-group-mail-2-empty) (put 'gnus-group-mail-2-empty-face 'face-alias 'gnus-group-mail-2-empty)
(put 'gnus-group-mail-2-empty-face 'obsolete-face "22.1")
(defface gnus-group-mail-3 (defface gnus-group-mail-3
'((((class color) '((((class color)
...@@ -630,6 +648,7 @@ be set in `.emacs' instead." ...@@ -630,6 +648,7 @@ be set in `.emacs' instead."
:group 'gnus-group) :group 'gnus-group)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-group-mail-3-face 'face-alias 'gnus-group-mail-3) (put 'gnus-group-mail-3-face 'face-alias 'gnus-group-mail-3)
(put 'gnus-group-mail-3-face 'obsolete-face "22.1")
(defface gnus-group-mail-3-empty (defface gnus-group-mail-3-empty
'((((class color) '((((class color)
...@@ -644,6 +663,7 @@ be set in `.emacs' instead." ...@@ -644,6 +663,7 @@ be set in `.emacs' instead."
:group 'gnus-group) :group 'gnus-group)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-group-mail-3-empty-face 'face-alias 'gnus-group-mail-3-empty) (put 'gnus-group-mail-3-empty-face 'face-alias 'gnus-group-mail-3-empty)
(put 'gnus-group-mail-3-empty-face 'obsolete-face "22.1")
(defface gnus-group-mail-low (defface gnus-group-mail-low
'((((class color) '((((class color)
...@@ -658,6 +678,7 @@ be set in `.emacs' instead." ...@@ -658,6 +678,7 @@ be set in `.emacs' instead."
:group 'gnus-group) :group 'gnus-group)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-group-mail-low-face 'face-alias 'gnus-group-mail-low) (put 'gnus-group-mail-low-face 'face-alias 'gnus-group-mail-low)
(put 'gnus-group-mail-low-face 'obsolete-face "22.1")
(defface gnus-group-mail-low-empty (defface gnus-group-mail-low-empty
'((((class color) '((((class color)
...@@ -672,6 +693,7 @@ be set in `.emacs' instead." ...@@ -672,6 +693,7 @@ be set in `.emacs' instead."
:group 'gnus-group) :group 'gnus-group)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-group-mail-low-empty-face 'face-alias 'gnus-group-mail-low-empty) (put 'gnus-group-mail-low-empty-face 'face-alias 'gnus-group-mail-low-empty)
(put 'gnus-group-mail-low-empty-face 'obsolete-face "22.1"