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

[Miles Bader]

Index: emacs/lisp/gnus/sieve-mode.el
diff -c emacs/lisp/gnus/sieve-mode.el:1.2 emacs/lisp/gnus/sieve-mode.el:1.3
*** emacs/lisp/gnus/sieve-mode.el:1.2   Sat Sep  4 13:13:43 2004
--- emacs/lisp/gnus/sieve-mode.el       Thu May 26 15:03:29 2005
***************
*** 1,5 ****
  ;;; sieve-mode.el --- Sieve code editing commands for Emacs
! ;; Copyright (C) 2001, 2003 Free Software Foundation, Inc.
  
  ;; Author: Simon Josefsson <address@hidden>
  
--- 1,5 ----
  ;;; sieve-mode.el --- Sieve code editing commands for Emacs
! ;; Copyright (C) 2001, 2002, 2003, 2005 Free Software Foundation, Inc.
  
  ;; Author: Simon Josefsson <address@hidden>
  
***************
*** 75,81 ****
      (((class color) (background light)) (:foreground "Orchid"))
      (((class color) (background dark)) (:foreground "LightSteelBlue"))
      (t (:bold t)))
!   "Face used for Sieve Control Commands.")
  
  (defvar sieve-action-commands-face 'sieve-action-commands-face
    "Face name used for Sieve Action Commands.")
--- 75,82 ----
      (((class color) (background light)) (:foreground "Orchid"))
      (((class color) (background dark)) (:foreground "LightSteelBlue"))
      (t (:bold t)))
!   "Face used for Sieve Control Commands."
!   :group 'sieve)
  
  (defvar sieve-action-commands-face 'sieve-action-commands-face
    "Face name used for Sieve Action Commands.")
***************
*** 85,91 ****
      (((class color) (background light)) (:foreground "Blue"))
      (((class color) (background dark)) (:foreground "LightSkyBlue"))
      (t (:inverse-video t :bold t)))
!   "Face used for Sieve Action Commands.")
  
  (defvar sieve-test-commands-face 'sieve-test-commands-face
    "Face name used for Sieve Test Commands.")
--- 86,93 ----
      (((class color) (background light)) (:foreground "Blue"))
      (((class color) (background dark)) (:foreground "LightSkyBlue"))
      (t (:inverse-video t :bold t)))
!   "Face used for Sieve Action Commands."
!   :group 'sieve)
  
  (defvar sieve-test-commands-face 'sieve-test-commands-face
    "Face name used for Sieve Test Commands.")
***************
*** 99,105 ****
      (((class color) (background light)) (:foreground "CadetBlue"))
      (((class color) (background dark)) (:foreground "Aquamarine"))
      (t (:bold t :underline t)))
!   "Face used for Sieve Test Commands.")
  
  (defvar sieve-tagged-arguments-face 'sieve-tagged-arguments-face
    "Face name used for Sieve Tagged Arguments.")
--- 101,108 ----
      (((class color) (background light)) (:foreground "CadetBlue"))
      (((class color) (background dark)) (:foreground "Aquamarine"))
      (t (:bold t :underline t)))
!   "Face used for Sieve Test Commands."
!   :group 'sieve)
  
  (defvar sieve-tagged-arguments-face 'sieve-tagged-arguments-face
    "Face name used for Sieve Tagged Arguments.")
***************
*** 111,117 ****
      (((class color) (background light)) (:foreground "Purple"))
      (((class color) (background dark)) (:foreground "Cyan"))
      (t (:bold t)))
!   "Face used for Sieve Tagged Arguments.")
  
  
  (defconst sieve-font-lock-keywords
--- 114,121 ----
      (((class color) (background light)) (:foreground "Purple"))
      (((class color) (background dark)) (:foreground "Cyan"))
      (t (:bold t)))
!   "Face used for Sieve Tagged Arguments."
!   :group 'sieve)
  
  
  (defconst sieve-font-lock-keywords