X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;ds=sidebyside;f=lisp%2Fsieve-mode.el;h=ded51bbb57ee16541f090646f8d72ec554207aae;hb=d84b26f66f1975b52a15ca2caf5f10da5103e42e;hp=49b4caff160106541b0e2100f8965b145b570389;hpb=8b5af94e55ef83ee46b42d32d92fa1ce95dcacf5;p=gnus diff --git a/lisp/sieve-mode.el b/lisp/sieve-mode.el index 49b4caff1..ded51bbb5 100644 --- a/lisp/sieve-mode.el +++ b/lisp/sieve-mode.el @@ -1,7 +1,6 @@ ;;; sieve-mode.el --- Sieve code editing commands for Emacs -;; Copyright (C) 2001, 2002, 2003, 2004, 2005, -;; 2006, 2007, 2008 Free Software Foundation, Inc. +;; Copyright (C) 2001-2012 Free Software Foundation, Inc. ;; Author: Simon Josefsson @@ -49,7 +48,6 @@ (autoload 'sieve-manage "sieve") (autoload 'sieve-upload "sieve") -(require 'easymenu) (eval-when-compile (require 'font-lock)) @@ -78,6 +76,7 @@ :group 'sieve) ;; backward-compatibility alias (put 'sieve-control-commands-face 'face-alias 'sieve-control-commands) +(put 'sieve-control-commands-face 'obsolete-face "22.1") (defvar sieve-action-commands-face 'sieve-action-commands "Face name used for Sieve Action Commands.") @@ -91,6 +90,7 @@ :group 'sieve) ;; backward-compatibility alias (put 'sieve-action-commands-face 'face-alias 'sieve-action-commands) +(put 'sieve-action-commands-face 'obsolete-face "22.1") (defvar sieve-test-commands-face 'sieve-test-commands "Face name used for Sieve Test Commands.") @@ -108,6 +108,7 @@ :group 'sieve) ;; backward-compatibility alias (put 'sieve-test-commands-face 'face-alias 'sieve-test-commands) +(put 'sieve-test-commands-face 'obsolete-face "22.1") (defvar sieve-tagged-arguments-face 'sieve-tagged-arguments "Face name used for Sieve Tagged Arguments.") @@ -123,6 +124,7 @@ :group 'sieve) ;; backward-compatibility alias (put 'sieve-tagged-arguments-face 'face-alias 'sieve-tagged-arguments) +(put 'sieve-tagged-arguments-face 'obsolete-face "22.1") (defconst sieve-font-lock-keywords @@ -182,6 +184,7 @@ "Menubar used in sieve mode.") ;; Code for Sieve editing mode. +(autoload 'easy-menu-add-item "easymenu") ;;;###autoload (define-derived-mode sieve-mode c-mode "Sieve" @@ -212,5 +215,4 @@ Turning on Sieve mode runs `sieve-mode-hook'." (provide 'sieve-mode) -;; arch-tag: 3b8ab76d-065d-4c52-b1e8-ab2ec21f2ace ;; sieve-mode.el ends here