;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:28 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/sieve.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!\210\300\302!\210\303\304\305\306\307\310\311\312&\210\313\314\315\316\317\320\311\304&\210\313\321\322\323\317\320\311\304&\210\313\324\325\326\317\320\311\304&\207" [require sieve-manage sieve-mode custom-declare-group sieve nil "Manage sieve scripts." :version "22.1" :group tools custom-declare-variable sieve-new-script "<new script>" "Name of name script indicator." :type string sieve-buffer "*sieve*" "Name of sieve management buffer." sieve-template "require \"fileinto\";\n\n# Example script (remove comment character '#' to make it effective!):\n#\n# if header :contains \"from\" \"coyote\" {\n#   discard;\n# } elsif header :contains [\"subject\"] [\"$$$\"] {\n#   discard;\n# } else {\n#  fileinto \"INBOX\";\n# }\n" "Template sieve script."] 8)
(defvar sieve-manage-buffer nil)
(defvar sieve-buffer-header-end nil)
#@37 The real script name of the buffer.
(defvar sieve-buffer-script-name nil (#$ . 1407))
(make-local-variable 'sieve-buffer-script-name)
#@33 Keymap for `sieve-manage-mode'.
(defvar sieve-manage-mode-map (byte-code "\301 \302\303\304#\210\302\305\304#\210\302\306\307#\210\302\310\311#\210\302\312\313#\210\302\314\315#\210\302\316\317#\210\302\320\317#\210\302\321\322#\210\302\323\322#\210\302\324\322#\210\302\325\322#\210\302\326\317#\210\302\327\330#\210\302\331\330#\210\302\332\333#\210\302\334\335#\210\302\306\336#\210\302\337\330#\210\302\340\341#\210)\207" [map make-sparse-keymap define-key "?" sieve-help "h" "q" kill-buffer "m" sieve-activate "u" sieve-deactivate "\377" sieve-deactivate-all "" sieve-prev-line [up] "" sieve-next-line [down] " " "n" "p" "
" sieve-edit-script "f" "o" sieve-edit-script-other-window "r" sieve-remove sieve-manage-quit [(down-mouse-2)] [(down-mouse-3)] sieve-manage-mode-menu] 4) (#$ . 1547))
#@13 Sieve Menu.
(defvar sieve-manage-mode-menu nil (#$ . 2373))
(byte-code "\301\302\303\304$\210\305\306N\204\307\305\306\310\311!#\210\312\300!\204!\307\300\313\314#\210\301\207" [sieve-manage-mode-map easy-menu-do-define sieve-manage-mode-menu "Sieve Menu." ("Manage Sieve" ["Edit script" sieve-edit-script t] ["Activate script" sieve-activate t] ["Deactivate script" sieve-deactivate t]) sieve-manage-mode-hook variable-documentation put purecopy "Hook run when entering Sieve-manage mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp definition-name sieve-manage-mode] 5)
(defvar sieve-manage-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-manage-mode-map variable-documentation put purecopy "Keymap for `sieve-manage-mode'." boundp sieve-manage-mode-syntax-table definition-name sieve-manage-mode] 5)
(defvar sieve-manage-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [sieve-manage-mode-syntax-table variable-documentation put purecopy "Syntax table for `sieve-manage-mode'." sieve-manage-mode-abbrev-table definition-name sieve-manage-mode] 5)
(defvar sieve-manage-mode-abbrev-table (progn (define-abbrev-table 'sieve-manage-mode-abbrev-table nil) sieve-manage-mode-abbrev-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [sieve-manage-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `sieve-manage-mode'." sieve-manage-mode derived-mode-parent nil] 5)
#@158 Mode used for sieve script management.

This mode runs the hook `sieve-manage-mode-hook', as the final step
during initialization.

\{sieve-manage-mode-map}
(defalias 'sieve-manage-mode #[nil "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
\315p!\210\307\316\"\210)\317\320!\207" [delay-mode-hooks major-mode mode-name sieve-manage-mode-map sieve-manage-mode-syntax-table sieve-manage-mode-abbrev-table make-local-variable t kill-all-local-variables sieve-manage-mode "Sieve-manage" use-local-map set-syntax-table buffer-disable-undo easy-menu-add run-mode-hooks sieve-manage-mode-hook local-abbrev-table truncate-lines sieve-manage-mode-menu] 3 (#$ . 4047) nil])
(put 'sieve-manage-mode 'mode-class 'special)
#@7 Quit.
(defalias 'sieve-manage-quit #[nil "\300p!\207" [kill-buffer] 2 (#$ . 4781) nil])
(defalias 'sieve-activate #[(&optional pos) "\304 \305\211\203	\n\230\203\306\307!\210\310\311	\"\210\312	\"\313 \210\314!\203-\310\315	\"\2024\310\316	\3178#*\207" [err name sieve-new-script sieve-manage-buffer sieve-script-at-point nil error "No sieve script at point" message "Activating script %s..." sieve-manage-setactive sieve-refresh-scriptlist sieve-manage-ok-p "Activating script %s...done" "Activating script %s...failed: %s" 2] 6 nil "d"])
(defalias 'sieve-deactivate-all #[(&optional pos) "\303 \304\305\306!\210\307\310\n\"\311 \210\312!\203\305\313!\202#\305\314\3158\"*\207" [err name sieve-manage-buffer sieve-script-at-point nil message "Deactivating scripts..." sieve-manage-setactive "" sieve-refresh-scriptlist sieve-manage-ok-p "Deactivating scripts...done" "Deactivating scripts...failed: %s" 2] 4 nil "d"])
(defalias 'sieve-deactivate 'sieve-deactivate-all)
(defalias 'sieve-remove #[(&optional pos) "\304 \305\211\203	\n\230\203\306\307!\210\310\311	\"\210\312	\"\313!\204(\306\314\"\210\315 \210\310\316	\"*\207" [err name sieve-new-script sieve-manage-buffer sieve-script-at-point nil error "No sieve script at point" message "Removing sieve script %s..." sieve-manage-deletescript sieve-manage-ok-p "Removing sieve script %s...failed: " sieve-refresh-scriptlist "Removing sieve script %s...done"] 4 nil "d"])
(defalias 'sieve-edit-script #[(&optional pos) "\306 \211\204\307\310!\210	\230\2040\311!\312\313\f#\314!\210\315\n!\204,\307\316\n\"\210*\2029\314\317\320!!\210
c\210\321 \210\322\323\324!!)\207" [name sieve-new-script err newbuf sieve-manage-buffer sieve-template sieve-script-at-point error "No sieve script at point" generate-new-buffer nil sieve-manage-getscript switch-to-buffer sieve-manage-ok-p "Sieve download failed: %s" get-buffer-create "template.siv" sieve-mode message substitute-command-keys "Press \\[sieve-upload] to upload script to server." sieve-buffer-script-name] 5 nil "d"])
#@138 Turns off sieve-region before executing BODY, then re-enables it after.
Used to bracket operations which move point in the sieve-buffer.
(defalias 'sieve-change-region '(macro . #[(&rest body) "\301\302\303\304\"BB\207" [body progn (sieve-highlight nil) append ((sieve-highlight t))] 5 (#$ . 6859)]))
(put 'sieve-change-region 'lisp-indent-function 0)
(defalias 'sieve-next-line #[(&optional arg) "\204\301\212y\210\302 )\203\303\304!\210y\210\303\305!\207\306\307!\207" [arg 1 sieve-script-at-point sieve-highlight nil t message "End of list"] 2 nil nil])
(defalias 'sieve-prev-line #[(&optional arg) "\204\301\212y\210\302 )\203\303\304!\210y\210\303\305!\207\306\307!\207" [arg -1 sieve-script-at-point sieve-highlight nil t message "Beginning of list"] 2 nil nil])
#@42 Display help for various sieve commands.
(defalias 'sieve-help #[nil "\301=\203\n\302\303!\207\304\305\306\307!\"\207" [last-command sieve-help describe-function sieve-mode message "%s" substitute-command-keys "`\\[sieve-edit-script]':edit `\\[sieve-activate]':activate `\\[sieve-deactivate]':deactivate `\\[sieve-remove]':remove"] 4 (#$ . 7651) nil])
(defalias 'sieve-setup-buffer #[(server port) "\304\305 \210\306 \210\307	\310\n\206\311\312\261\210\313\303!\210d\211\207" [buffer-read-only server port sieve-buffer-header-end nil erase-buffer buffer-disable-undo "Server  : " ":" "2000" "\n\n" make-local-variable] 5])
#@51 Return name of sieve script at point POS, or nil.
(defalias 'sieve-script-at-point #[(&optional pos) "\301\206`\302\"\207" [pos get-char-property script-name] 3 (#$ . 8287) "d"])
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\207" [defalias sieve-make-overlay make-overlay sieve-overlay-put overlay-put sieve-overlays-at overlays-at] 3)
#@62 Turn ON or off highlighting on the current language overlay.
(defalias 'sieve-highlight #[(on) "\301\302`!@\303\203\304\202\305#\207" [on sieve-overlay-put sieve-overlays-at face highlight default] 4 (#$ . 8649)])
#@71 Format and insert LANGUAGE-LIST strings into current buffer at point.
(defalias 'sieve-insert-scripts #[(scripts) "\205E`\304\211A@	:\203\305\306	A\"c\210\202#\305\307	\"c\210\310`\"\311\n\312\313#\210\311\n\314	:\203;	A\202<	#\210\315c\210+\202\207" [scripts script ext p nil format " ACTIVE %s" "        %s" sieve-make-overlay sieve-overlay-put mouse-face highlight script-name "\n"] 4 (#$ . 8874)])
#@41 Open SERVER (on PORT) and authenticate.
(defalias 'sieve-open-server #[(server &optional port) "r\302\301!\210\303!\211\206\304\305\"q\210\306 )\207" [server sieve-manage-buffer make-local-variable sieve-manage-open error "Error opening server %s" sieve-manage-authenticate] 3 (#$ . 9298)])
(defalias 'sieve-refresh-scriptlist #[nil "rq\210\306\n\206dd|\210db\210\307!\211\204$\310\311\312
\"!c\210\202:\310\311\313\fG\fG\314=\2034\315\2025\316
$!c\210\212\317
C!\210\317\f!\210*\320\321!\210\321\211)\207" [sieve-buffer buffer-read-only sieve-buffer-header-end sieve-manage-buffer scripts sieve-new-script nil sieve-manage-listscripts substitute-command-keys format "No scripts on server, press \\[sieve-edit-script] on %s to create a new script.\n" "%d script%s on server, press \\[sieve-edit-script] on a script name edits it, or\npress \\[sieve-edit-script] on %s to create a new script.\n" 1 "" "s" sieve-insert-scripts sieve-highlight t] 7 nil nil])
(defalias 'sieve-manage #[(server &optional port) "\303\304!!\210\305 \210\306	\n\"\210\307	\n\"\203\310 \207\311\312	\"\207" [sieve-buffer server port switch-to-buffer get-buffer-create sieve-manage-mode sieve-setup-buffer sieve-open-server sieve-refresh-scriptlist message "Could not open server %s"] 3 nil "sServer: "])
(defalias 'sieve-upload #[(&optional name) "\306!\204\f\307\310!\205;\311 \312r\306!q\210\313\206\"\f\206\"\314 \n
#\315	!\2034\316\317\320!!\202:\316\321\322	8\"+\207" [sieve-buffer err script name sieve-buffer-script-name sieve-manage-buffer get-buffer call-interactively sieve-manage buffer-string nil sieve-manage-putscript buffer-name sieve-manage-ok-p message substitute-command-keys "Sieve upload done.  Use \\[sieve-manage] to manage scripts." "Sieve upload failed: %s" 2] 4 nil nil])
(defalias 'sieve-upload-and-bury #[(&optional name) "\301!\210\302 \207" [name sieve-upload bury-buffer] 2 nil nil])
(defalias 'sieve-upload-and-kill #[(&optional name) "\301!\210\302 \207" [name sieve-upload kill-buffer] 2 nil nil])
(provide 'sieve)