;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:27 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/sieve-mode.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301\302\"\210\300\303\302\"\210\304\305\306\307\310\311%\210\312\313\306\314\310\305\315\316&\207" [autoload sieve-manage "sieve" sieve-upload custom-declare-group sieve nil "Sieve." :group languages custom-declare-variable sieve-mode-hook "Hook run in sieve mode buffers." :type hook] 8)
#@44 Face name used for Sieve Control Commands.
(defvar sieve-control-commands-face 'sieve-control-commands (#$ . 865))
(byte-code "\300\301\302\303\304\305%\210\306\307\310\301#\210\306\307\311\312#\207" [custom-declare-face sieve-control-commands ((((type tty) (class color)) (:foreground "blue" :weight light)) (((class grayscale) (background light)) (:foreground "LightGray" :bold t)) (((class grayscale) (background dark)) (:foreground "DimGray" :bold t)) (((class color) (background light)) (:foreground "Orchid")) (((class color) (background dark)) (:foreground "LightSteelBlue")) (t (:bold t))) "Face used for Sieve Control Commands." :group sieve put sieve-control-commands-face face-alias obsolete-face "22.1"] 6)
#@43 Face name used for Sieve Action Commands.
(defvar sieve-action-commands-face 'sieve-action-commands (#$ . 1590))
(byte-code "\300\301\302\303\304\305%\210\306\307\310\301#\210\306\307\311\312#\207" [custom-declare-face sieve-action-commands ((((type tty) (class color)) (:foreground "blue" :weight bold)) (((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 put sieve-action-commands-face face-alias obsolete-face "22.1"] 6)
#@41 Face name used for Sieve Test Commands.
(defvar sieve-test-commands-face 'sieve-test-commands (#$ . 2175))
(byte-code "\300\301\302\303\304\305%\210\306\307\310\301#\210\306\307\311\312#\207" [custom-declare-face sieve-test-commands ((((type tty) (class color)) (:foreground "magenta")) (((class grayscale) (background light)) (:foreground "LightGray" :bold t :underline t)) (((class grayscale) (background dark)) (:foreground "Gray50" :bold t :underline t)) (((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 put sieve-test-commands-face face-alias obsolete-face "22.1"] 6)
#@44 Face name used for Sieve Tagged Arguments.
(defvar sieve-tagged-arguments-face 'sieve-tagged-arguments (#$ . 2909))
(byte-code "\300\301\302\303\304\305%\210\306\307\310\301#\210\306\307\311\312#\207" [custom-declare-face sieve-tagged-arguments ((((type tty) (class color)) (:foreground "cyan" :weight bold)) (((class grayscale) (background light)) (:foreground "LightGray" :bold t)) (((class grayscale) (background dark)) (:foreground "DimGray" :bold t)) (((class color) (background light)) (:foreground "Purple")) (((class color) (background dark)) (:foreground "Cyan")) (t (:bold t))) "Face used for Sieve Tagged Arguments." :group sieve put sieve-tagged-arguments-face face-alias obsolete-face "22.1"] 6)
(defconst sieve-font-lock-keywords '(("\\(?:els\\(?:e\\|if\\)\\|if\\|require\\|stop\\)" . sieve-control-commands-face) ("\\(?:discard\\|fileinto\\|keep\\|re\\(?:\\(?:dir\\|j\\)ect\\)\\)" . sieve-action-commands-face) ("\\(?:a\\(?:ddress\\|\\(?:ll\\|ny\\)of\\)\\|e\\(?:nvelope\\|xists\\)\\|false\\|header\\|not\\|\\(?:siz\\|tru\\)e\\)" . sieve-test-commands-face) ("\\Sw+:\\sw+" . sieve-tagged-arguments-face)))
#@44 Syntax table in use in sieve-mode buffers.
(defvar sieve-mode-syntax-table nil (#$ . 4035))
(byte-code "\204g\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\311#\210\302\312\313#\210\302\314\313#\210\302\315\313#\210\302\316\313#\210\302\317\313#\210\302\320\313#\210\302\321\313#\210\302\322\313#\210\302\323\313#\210\302\324\313#\210\302\325\326#\210\302\327\330#\210\301\207" [sieve-mode-syntax-table make-syntax-table modify-syntax-entry 92 "\\" 10 ">   " 12 35 "<   " 47 "." 42 43 45 61 37 60 62 38 124 95 "_" 39 "\""] 4)
#@29 Key map used in sieve mode.
(defvar sieve-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210)\207" [map make-sparse-keymap define-key "\f" sieve-upload "" sieve-upload-and-kill "
" sieve-manage] 4) (#$ . 4604))
#@29 Menubar used in sieve mode.
(defvar sieve-mode-menu nil (#$ . 4857))
(byte-code "\300\301\302\"\210\303\304N\204\305\303\304\306\307!#\210\310\311!\204\305\311\312\313#\210\300\207" [autoload easy-menu-add-item "easymenu" sieve-mode-hook variable-documentation put purecopy "Hook run when entering Sieve mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp sieve-mode-map definition-name sieve-mode] 5)
(defvar sieve-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [sieve-mode-map variable-documentation put purecopy "Keymap for `sieve-mode'." boundp sieve-mode-syntax-table definition-name sieve-mode] 5)
(defvar sieve-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [sieve-mode-syntax-table variable-documentation put purecopy "Syntax table for `sieve-mode'." sieve-mode-abbrev-table definition-name sieve-mode] 5)
(defvar sieve-mode-abbrev-table (progn (define-abbrev-table 'sieve-mode-abbrev-table nil) sieve-mode-abbrev-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [sieve-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `sieve-mode'." sieve-mode derived-mode-parent c-mode] 5)
#@311 Major mode for editing Sieve code.
This is much like C mode except for the syntax of comments.  Its keymap
inherits from C mode's and it has the same variables for customizing
indentation.  It has its own abbrev table and its own syntax table.

Turning on Sieve mode runs `sieve-mode-hook'.

\{sieve-mode-map}
(defalias 'sieve-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2036
\321 =\203<\322\f\323 \"\210)\324(\325\"\204V()=\204V\326(\325)C#\210\327!\210\330\f!\210()\306\331!\210\332*P\306\333!\210\306\334!\210\335\306\336!\210\337\306\340!\210\341 \306\342!\210\343\"\344\345\211+#\210)\346\347!\207" [delay-mode-hooks major-mode mode-name sieve-mode-map sieve-mode-syntax-table parent make-local-variable t c-mode sieve-mode "Sieve" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table paragraph-start "$\\|" paragraph-separate comment-start "#" comment-end "" comment-start-skip "#+ *" font-lock-defaults (sieve-font-lock-keywords nil nil ((95 . "w"))) easy-menu-add-item nil run-mode-hooks sieve-mode-hook sieve-mode-abbrev-table local-abbrev-table page-delimiter sieve-mode-menu] 6 (#$ . 6250) nil])
#@13 Sieve Menu.
(defvar sieve-mode-menu nil (#$ . 7637))
(byte-code "\301\302\303\304$\210\305\306!\207" [sieve-mode-map easy-menu-do-define sieve-mode-menu "Sieve Menu." ("Sieve" ["Upload script" sieve-upload t] ["Manage scripts on server" sieve-manage t]) provide sieve-mode] 5)