;ELC   
;;; Compiled
;;; in Emacs version 29.4
;;; 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%\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] 6)
(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.")
(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.")
(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.")
(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.")
(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) (#$ . 2497))#@28 Keymap used in sieve mode.
(defvar sieve-mode-map (define-keymap "C-c C-l" 'sieve-upload "C-c C-c" 'sieve-upload-and-kill "C-c RET" 'sieve-manage) (#$ . 3117))#@13 Sieve Menu.
(defvar sieve-mode-menu nil (#$ . 3282))
(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!\210b\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 (#$ . 3496)])#@12 

(fn END)
(defalias 'sieve-syntax-propertize-text #[257 "\300 \3018\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 (#$ . 3974)])
(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\307\306\307!\203& \313\202( \314 \"\210\307\302N\2048 \303\307\302\304\315!#\210\306\300!\204X \303\300\310\311#\210\312\300\306\300!\203P \313\202V \316\300\313\"\210\"\210\300\302N\204f \303\300\302\304\317!#\210\303\311\320\321#\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 defvar-1 nil make-syntax-table "Syntax table for `sieve-mode'." define-abbrev-table "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 (#$ . 5300) nil])
(defalias 'sieve-mode-indent-function #[0 "\212\300 \210\301 @\302\303!\203 \211S\262\304\305_!)\266\212\306\307x\210n)\205& \306\307w\207" [beginning-of-line syntax-ppss looking-at "[ 	]*}" indent-line-to 2 " 	" nil] 4])
(provide 'sieve-mode)