ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/sieve-mode.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 717))
(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 (#$ . 1442))
(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 (#$ . 2027))
(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 (#$ . 2761))
(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\\)\\|body\\|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 (#$ . 3906))
(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) (#$ . 4475))
#@29 Menubar used in sieve mode.
(defvar sieve-mode-menu nil (#$ . 4728))
(autoload 'easy-menu-add-item "easymenu")
#@162 Hook run after entering Sieve mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar sieve-mode-hook nil (#$ . 4846))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp sieve-mode-map put definition-name sieve-mode] 4)
(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 (#$ . 6063) nil])
#@13 Sieve Menu.
(defvar sieve-mode-menu nil (#$ . 7450))
(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)
Kontol Shell Bypass