[Emacs-diffs] Changes to emacs/lisp/gnus/spam.el

[Miles Bader]

Index: emacs/lisp/gnus/spam.el
diff -c emacs/lisp/gnus/spam.el:1.10 emacs/lisp/gnus/spam.el:1.11
*** emacs/lisp/gnus/spam.el:1.10        Thu May 26 15:03:29 2005
--- emacs/lisp/gnus/spam.el     Thu Jun 16 03:48:18 2005
***************
*** 300,306 ****
    :type '(radio (const nil) regexp)
    :group 'spam)
  
! (defface spam-face
    '((((class color) (type tty) (background dark))
       (:foreground "gray80" :background "gray50"))
      (((class color) (type tty) (background light))
--- 300,306 ----
    :type '(radio (const nil) regexp)
    :group 'spam)
  
! (defface spam
    '((((class color) (type tty) (background dark))
       (:foreground "gray80" :background "gray50"))
      (((class color) (type tty) (background light))
***************
*** 312,319 ****
      (t :inverse-video t))
    "Face for spam-marked articles."
    :group 'spam)
  
! (defcustom spam-face 'spam-face
    "Face for spam-marked articles."
    :type 'face
    :group 'spam)
--- 312,321 ----
      (t :inverse-video t))
    "Face for spam-marked articles."
    :group 'spam)
+ ;; backward-compatibility alias
+ (put 'spam-face 'face-alias 'spam)
  
! (defcustom spam-face 'spam
    "Face for spam-marked articles."
    :type 'face
    :group 'spam)
***************
*** 1805,1812 ****
    "Install the spam.el hooks and do other initialization"
    (interactive)
    (setq spam-install-hooks t)
!   ;; TODO: How do we redo this every time spam-face is customized?
!   (push '((eq mark gnus-spam-mark) . spam-face)
        gnus-summary-highlight)
    ;; Add hooks for loading and saving the spam stats
    (add-hook 'gnus-save-newsrc-hook 'spam-maybe-spam-stat-save)
--- 1807,1814 ----
    "Install the spam.el hooks and do other initialization"
    (interactive)
    (setq spam-install-hooks t)
!   ;; TODO: How do we redo this every time the `spam' face is customized?
!   (push '((eq mark gnus-spam-mark) . spam)
        gnus-summary-highlight)
    ;; Add hooks for loading and saving the spam stats
    (add-hook 'gnus-save-newsrc-hook 'spam-maybe-spam-stat-save)