;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301\302\"\210\300\303\302\"\210\304\305\306\307\310\311%\210\312\313\314\315\316DD\317\320\321%\210\322\323\324\325#\210\322\326\327\330#\210\322\331\332\333#\210\322\334\335\336#\207" [autoload sieve-manage "sieve" sieve-upload custom-declare-group sieve nil "Sieve." :group languages custom-declare-variable sieve-mode-hook funcall function #[0 "\300\207" [nil] 1 ""] "Hook run in sieve mode buffers." :type hook 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." 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." 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." 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."] 6)
(defconst sieve-font-lock-keywords '(("\\<\\(els\\(?:e\\|if\\)\\|if\\|require\\|stop\\)\\>" quote sieve-control-commands) ("\\<\\(discard\\|fileinto\\|keep\\|re\\(?:\\(?:dir\\|j\\)ect\\)\\)\\>" quote sieve-action-commands) ("\\<\\(a\\(?:ddress\\|\\(?:ll\\|ny\\)of\\)\\|body\\|e\\(?:nvelope\\|xists\\)\\|false\\|header\\|not\\|\\(?:siz\\|tru\\)e\\)\\>" quote sieve-test-commands) ("\\Sw+:\\sw+" quote sieve-tagged-arguments)))
#@46 Syntax table in use in `sieve-mode' buffers.
(defvar sieve-mode-syntax-table (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\305#\210\301\307\310#\210\301\311\312#\210\301\313\314#\210\301\315\316#\210\301\317\316#\210\301\320\316#\210\301\321\316#\210\301\322\316#\210\301\323\316#\210\301\324\316#\210\301\325\316#\210\301\326\327#\210\301\330\331#\210\301\332\333#\210\301\334\335#\210\301\336\331#\210\207" [make-syntax-table modify-syntax-entry 92 "\\" 10 ">   " 12 35 "<   " 47 ". 14" 42 ". 23b" 43 "." 45 61 37 60 62 38 124 95 "_" 39 "\"" 123 "(}" 125 "){" 34] 5) (#$ . 2506))
#@29 Key map used in sieve mode.
(defvar sieve-mode-map (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\301
\306\307#\210\207" [make-sparse-keymap define-key "\f" sieve-upload "" sieve-upload-and-kill "
" sieve-manage] 5) (#$ . 3127))
#@13 Sieve Menu.
(defvar sieve-mode-menu nil (#$ . 3373))
(easy-menu-do-define 'sieve-mode-menu sieve-mode-map "Sieve Menu." '("Sieve" ["Upload script" sieve-upload t] ["Manage scripts on server" sieve-manage t]))
#@16 

(fn BEG END)
(defalias 'sieve-syntax-propertize #[514 "
b\210\300
!\210
b\210`
W\205Y\301\302\303#\205Y\304\224\204\"\305\224\203\n\304\224\2030\306\304\224\304\225\307\310$\210\305\224\203\n\305\224\305\225\212\311\312\313\224!8)?\205F\314\211\203Q\306\307$\210\300!\266\202\n\207" [sieve-syntax-propertize-text re-search-forward "\\_<text:[ 	]*\\(?:#.*\\(.\\)\\)?\\(\n\\)" t 1 2 put-text-property syntax-table (12) 8 syntax-ppss 0 (15)] 10 (#$ . 3588)])
#@12 

(fn END)
(defalias 'sieve-syntax-propertize-text #[257 "\300 \301
8\302=\205\303\304\305#\205\306\307\224\307\225\310\311$\207" [syntax-ppss 3 t re-search-forward "^\\.\\(\n\\)" move put-text-property 1 syntax-table (15)] 7 (#$ . 4067)])
(defvar sieve-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [sieve-mode-hook variable-documentation put "Hook run after 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] 4)
(defvar sieve-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [sieve-mode-abbrev-table sieve-mode-map variable-documentation put purecopy "Keymap for `sieve-mode'." boundp sieve-mode-syntax-table definition-name sieve-mode (lambda (#1=#:def-tmp-var) (defvar sieve-mode-syntax-table #1#)) make-syntax-table "Syntax table for `sieve-mode'." (lambda (#1#) (defvar sieve-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `sieve-mode'." derived-mode-parent prog-mode] 5)
#@101 Major mode for editing Sieve code.
Turning on Sieve mode runs `sieve-mode-hook'.

\{sieve-mode-map}
(defalias 'sieve-mode #[0 "\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\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
,=\204R\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\"\306\344!\210\345$\306\346!\210\347&\350\351\211.#\210)\352\353!\207" [delay-mode-hooks major-mode mode-name sieve-mode-map sieve-mode-syntax-table sieve-mode-abbrev-table make-local-variable t prog-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 "#+ *" syntax-propertize-function sieve-syntax-propertize font-lock-defaults (sieve-font-lock-keywords nil nil ((95 . "w"))) indent-line-function sieve-mode-indent-function easy-menu-add-item nil run-mode-hooks sieve-mode-hook local-abbrev-table page-delimiter sieve-mode-menu] 5 (#$ . 5442) nil])
(defalias 'sieve-mode-indent-function #[0 "\212\300 \210\301 @\302\303!\203\211S\262
\304\305_!\262
)\207" [beginning-of-line syntax-ppss looking-at "[ 	]*}" indent-line-to 2] 4])
(provide 'sieve-mode)