Gecko [ goons4good.org ]

Name	Size	Permission	Date
.dir-locals.el	105 B	-rw-r--r--	2012-04-13 21:33
auth-source.elc	51.28 KB	-rw-r--r--	2023-06-07 04:09
canlock.elc	5.89 KB	-rw-r--r--	2023-06-07 04:09
compface.elc	1.34 KB	-rw-r--r--	2023-06-07 04:09
deuglify.elc	8.04 KB	-rw-r--r--	2023-06-07 04:09
ecomplete.elc	4.59 KB	-rw-r--r--	2023-06-07 04:09
flow-fill.elc	4.74 KB	-rw-r--r--	2023-06-07 04:09
gmm-utils.elc	7.46 KB	-rw-r--r--	2023-06-07 04:09
gnus-agent.elc	121.05 KB	-rw-r--r--	2023-06-07 04:09
gnus-art.elc	256.06 KB	-rw-r--r--	2023-06-07 04:09
gnus-async.elc	12.05 KB	-rw-r--r--	2023-06-07 04:09
gnus-bcklg.elc	3.42 KB	-rw-r--r--	2023-06-07 04:09
gnus-bookmark.elc	24.2 KB	-rw-r--r--	2023-06-07 04:09
gnus-cache.elc	25.68 KB	-rw-r--r--	2023-06-07 04:09
gnus-cite.elc	27.02 KB	-rw-r--r--	2023-06-07 04:09
gnus-cus.elc	38.53 KB	-rw-r--r--	2023-06-07 04:09
gnus-delay.elc	4.79 KB	-rw-r--r--	2023-06-07 04:09
gnus-demon.elc	7.77 KB	-rw-r--r--	2023-06-07 04:09
gnus-diary.elc	8.86 KB	-rw-r--r--	2023-06-07 04:09
gnus-dired.elc	7.65 KB	-rw-r--r--	2023-06-07 04:09
gnus-draft.elc	11.72 KB	-rw-r--r--	2023-06-07 04:09
gnus-dup.elc	4.45 KB	-rw-r--r--	2023-06-07 04:09
gnus-eform.elc	3.43 KB	-rw-r--r--	2023-06-07 04:09
gnus-ems.elc	5.94 KB	-rw-r--r--	2023-06-07 04:09
gnus-fun.elc	8.5 KB	-rw-r--r--	2023-06-07 04:09
gnus-gravatar.elc	4.09 KB	-rw-r--r--	2023-06-07 04:09
gnus-group.elc	151.52 KB	-rw-r--r--	2023-06-07 04:09
gnus-html.elc	14.29 KB	-rw-r--r--	2023-06-07 04:09
gnus-int.elc	63.73 KB	-rw-r--r--	2023-06-07 04:10
gnus-kill.elc	17.78 KB	-rw-r--r--	2023-06-07 04:10
gnus-logic.elc	5.07 KB	-rw-r--r--	2023-06-07 04:10
gnus-mh.elc	2.83 KB	-rw-r--r--	2023-06-07 04:10
gnus-ml.elc	5.57 KB	-rw-r--r--	2023-06-07 04:10
gnus-mlspl.elc	6.3 KB	-rw-r--r--	2023-06-07 04:10
gnus-msg.elc	85.35 KB	-rw-r--r--	2023-06-07 04:10
gnus-notifications.elc	5.29 KB	-rw-r--r--	2023-06-07 04:10
gnus-picon.elc	8.41 KB	-rw-r--r--	2023-06-07 04:10
gnus-range.elc	12.41 KB	-rw-r--r--	2023-06-07 04:10
gnus-registry.elc	31.31 KB	-rw-r--r--	2023-06-07 04:10
gnus-salt.elc	24.04 KB	-rw-r--r--	2023-06-07 04:10
gnus-score.elc	73.99 KB	-rw-r--r--	2023-06-07 04:10
gnus-setup.elc	4.95 KB	-rw-r--r--	2023-06-07 04:10
gnus-sieve.elc	8.35 KB	-rw-r--r--	2023-06-07 04:10
gnus-spec.elc	14.81 KB	-rw-r--r--	2023-06-07 04:10
gnus-srvr.elc	48.21 KB	-rw-r--r--	2023-06-07 04:10
gnus-start.elc	144.43 KB	-rw-r--r--	2023-06-07 04:10
gnus-sum.elc	414.15 KB	-rw-r--r--	2023-06-07 04:10
gnus-sync.elc	21.49 KB	-rw-r--r--	2023-06-07 04:10
gnus-topic.elc	46.05 KB	-rw-r--r--	2023-06-07 04:10
gnus-undo.elc	4.29 KB	-rw-r--r--	2023-06-07 04:10
gnus-util.elc	52.93 KB	-rw-r--r--	2023-06-07 04:10
gnus-uu.elc	55.72 KB	-rw-r--r--	2023-06-07 04:10
gnus-vm.elc	2.57 KB	-rw-r--r--	2023-06-07 04:10
gnus-win.elc	10.58 KB	-rw-r--r--	2023-06-07 04:10
gnus.elc	156.43 KB	-rw-r--r--	2023-06-07 04:10
gravatar.elc	4.26 KB	-rw-r--r--	2023-06-07 04:10
gssapi.elc	2.41 KB	-rw-r--r--	2023-06-07 04:10
html2text.elc	10.47 KB	-rw-r--r--	2023-06-07 04:10
ietf-drums.elc	7.64 KB	-rw-r--r--	2023-06-07 04:10
legacy-gnus-agent.elc	6.54 KB	-rw-r--r--	2023-06-07 04:10
mail-parse.elc	2.39 KB	-rw-r--r--	2023-06-07 04:10
mail-prsvr.elc	1.23 KB	-rw-r--r--	2023-06-07 04:10
mail-source.elc	28.49 KB	-rw-r--r--	2023-06-07 04:10
mailcap.elc	24.93 KB	-rw-r--r--	2023-06-07 04:10
message.elc	227.03 KB	-rw-r--r--	2023-06-07 04:10
messcompat.elc	2.69 KB	-rw-r--r--	2023-06-07 04:10
mm-archive.elc	2.85 KB	-rw-r--r--	2023-06-07 04:10
mm-bodies.elc	5.99 KB	-rw-r--r--	2023-06-07 04:10
mm-decode.elc	50.6 KB	-rw-r--r--	2023-06-07 04:10
mm-encode.elc	6.2 KB	-rw-r--r--	2023-06-07 04:10
mm-extern.elc	4.28 KB	-rw-r--r--	2023-06-07 04:10
mm-partial.elc	3.37 KB	-rw-r--r--	2023-06-07 04:10
mm-url.elc	8.73 KB	-rw-r--r--	2023-06-07 04:10
mm-util.elc	39.65 KB	-rw-r--r--	2023-06-07 04:10
mm-uu.elc	18.9 KB	-rw-r--r--	2023-06-07 04:10
mm-view.elc	18.51 KB	-rw-r--r--	2023-06-07 04:10
mml-sec.elc	12.41 KB	-rw-r--r--	2023-06-07 04:10
mml-smime.elc	14.44 KB	-rw-r--r--	2023-06-07 04:10
mml.elc	42.01 KB	-rw-r--r--	2023-06-07 04:10
mml1991.elc	11.5 KB	-rw-r--r--	2023-06-07 04:10
mml2015.elc	33.95 KB	-rw-r--r--	2023-06-07 04:10
nnagent.elc	10.93 KB	-rw-r--r--	2023-06-07 04:10
nnbabyl.elc	17.15 KB	-rw-r--r--	2023-06-07 04:10
nndiary.elc	39.54 KB	-rw-r--r--	2023-06-07 04:10
nndir.elc	2.95 KB	-rw-r--r--	2023-06-07 04:11
nndoc.elc	30.11 KB	-rw-r--r--	2023-06-07 04:11
nndraft.elc	10.94 KB	-rw-r--r--	2023-06-07 04:11
nneething.elc	11.83 KB	-rw-r--r--	2023-06-07 04:11
nnfolder.elc	32.19 KB	-rw-r--r--	2023-06-07 04:11
nngateway.elc	3.04 KB	-rw-r--r--	2023-06-07 04:11
nnheader.elc	31.94 KB	-rw-r--r--	2023-06-07 04:11
nnimap.elc	68.59 KB	-rw-r--r--	2023-06-07 04:11
nnir.elc	56.96 KB	-rw-r--r--	2023-06-07 04:11
nnmail.elc	53.02 KB	-rw-r--r--	2023-06-07 04:11
nnmaildir.elc	97.58 KB	-rw-r--r--	2023-06-07 04:11
nnmairix.elc	72.67 KB	-rw-r--r--	2023-06-07 04:11
nnmbox.elc	18.82 KB	-rw-r--r--	2023-06-07 04:11
nnmh.elc	15.52 KB	-rw-r--r--	2023-06-07 04:11
nnml.elc	39.81 KB	-rw-r--r--	2023-06-07 04:11
nnnil.elc	1.77 KB	-rw-r--r--	2023-06-07 04:11
nnoo.elc	8.72 KB	-rw-r--r--	2023-06-07 04:11
nnregistry.elc	1.85 KB	-rw-r--r--	2023-06-07 04:11
nnrss.elc	30.01 KB	-rw-r--r--	2023-06-07 04:11
nnspool.elc	15.88 KB	-rw-r--r--	2023-06-07 04:11
nntp.elc	121.29 KB	-rw-r--r--	2023-06-07 04:11
nnvirtual.elc	18.42 KB	-rw-r--r--	2023-06-07 04:11
nnweb.elc	17.61 KB	-rw-r--r--	2023-06-07 04:11
plstore.elc	14.75 KB	-rw-r--r--	2023-06-07 04:11
pop3.elc	14.53 KB	-rw-r--r--	2023-06-07 04:11
qp.elc	4.35 KB	-rw-r--r--	2023-06-07 04:11
registry.elc	9.3 KB	-rw-r--r--	2023-06-07 04:11
rfc1843.elc	5.35 KB	-rw-r--r--	2023-06-07 04:11
rfc2045.elc	971 B	-rw-r--r--	2023-06-07 04:11
rfc2047.elc	24.75 KB	-rw-r--r--	2023-06-07 04:11
rfc2104.elc	1.43 KB	-rw-r--r--	2023-06-07 04:11
rfc2231.elc	6.84 KB	-rw-r--r--	2023-06-07 04:11
rtree.elc	4.3 KB	-rw-r--r--	2023-06-07 04:11
score-mode.elc	3.32 KB	-rw-r--r--	2023-06-07 04:11
shr-color.elc	9.11 KB	-rw-r--r--	2023-06-07 04:11
shr.elc	33.2 KB	-rw-r--r--	2023-06-07 04:11
sieve-manage.elc	17.1 KB	-rw-r--r--	2023-06-07 04:11
sieve-mode.elc	7.73 KB	-rw-r--r--	2023-06-07 04:11
sieve.elc	11.08 KB	-rw-r--r--	2023-06-07 04:11
smiley.elc	5.39 KB	-rw-r--r--	2023-06-07 04:11
smime.elc	19.61 KB	-rw-r--r--	2023-06-07 04:11
spam-report.elc	11.53 KB	-rw-r--r--	2023-06-07 04:11
spam-stat.elc	19.64 KB	-rw-r--r--	2023-06-07 04:11
spam-wash.elc	1.37 KB	-rw-r--r--	2023-06-07 04:11
spam.elc	83.9 KB	-rw-r--r--	2023-06-07 04:11
starttls.elc	6.42 KB	-rw-r--r--	2023-06-07 04:11
utf7.elc	5.83 KB	-rw-r--r--	2023-06-07 04:11
yenc.elc	3.62 KB	-rw-r--r--	2023-06-07 04:11

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:11:18 2023
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/sieve-manage.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!\204
�\302\301\303\304B\"\210\305\306!\203�\307\310!\210\202�\307\311!\210\312\313\314\"\210\312\315\316\"\210\312\317\320\"\210\321\322\323\324\325\326\327\330&\210\331\332\333\334\335\336\325\322&\210\331\337\340\341\335\336\325\322&\210\331\342\340\343\335\336\325\322&\210\331\344\345\346\325\322%\210\331\347\350\351\325\322%\210\331\352\353\354\325\322%\210\331\355\356\357\325\322%\210\331\360\361\362\335\363\325\322&\210\331\364\365\366\367\370\335\371\325\322&	\207" [fboundp declare-function defalias macro #[(&rest r) "\300\207" [nil] 1] locate-library "password-cache" require password-cache password autoload sasl-find-mechanism "sasl" starttls-open-stream "starttls" auth-source-search "auth-source" custom-declare-group sieve-manage nil "Low-level Managesieve protocol issues." :group mail :prefix "sieve-" custom-declare-variable sieve-manage-log "*sieve-manage-log*" "Name of buffer for managesieve session trace." :type string sieve-manage-server-eol "
\n" "The EOL string sent from the server." sieve-manage-client-eol "The EOL string we send to the server." sieve-manage-streams '(network starttls shell) "Priority of streams to consider when opening connection to server." sieve-manage-stream-alist '((network sieve-manage-network-p sieve-manage-network-open) (shell sieve-manage-shell-p sieve-manage-shell-open) (starttls sieve-manage-starttls-p sieve-manage-starttls-open)) "Definition of network streams.\n\n(NAME CHECK OPEN)\n\nNAME names the stream, CHECK is a function returning non-nil if the\nserver support the stream and OPEN is a function for opening the\nstream." sieve-manage-authenticators '(digest-md5 cram-md5 scram-md5 ntlm plain login) "Priority of authenticators to consider when authenticating to server." sieve-manage-authenticator-alist '((cram-md5 sieve-manage-cram-md5-p sieve-manage-cram-md5-auth) (digest-md5 sieve-manage-digest-md5-p sieve-manage-digest-md5-auth) (scram-md5 sieve-manage-scram-md5-p sieve-manage-scram-md5-auth) (ntlm sieve-manage-ntlm-p sieve-manage-ntlm-auth) (plain sieve-manage-plain-p sieve-manage-plain-auth) (login sieve-manage-login-p sieve-manage-login-auth)) "Definition of authenticators.\n\n(NAME CHECK AUTHENTICATE)\n\nNAME names the authenticator.  CHECK is a function returning non-nil if\nthe server support the authenticator and AUTHENTICATE is a function\nfor doing the actual authentication." sieve-manage-default-port 2000 "Default port number or service name for managesieve protocol." integer sieve-manage-default-stream 'network "Default stream type to use for `sieve-manage'.\nMust be a name of a stream in `sieve-manage-stream-alist'." :version "24.1" symbol] 10)
(defconst sieve-manage-local-variables '(sieve-manage-server sieve-manage-port sieve-manage-auth sieve-manage-stream sieve-manage-process sieve-manage-client-eol sieve-manage-server-eol sieve-manage-capability))
(defconst sieve-manage-coding-system-for-read 'binary)
(defconst sieve-manage-coding-system-for-write 'binary)
(defvar sieve-manage-stream nil)
(defvar sieve-manage-auth nil)
(defvar sieve-manage-server nil)
(defvar sieve-manage-port nil)
#@81 Managesieve state.
Valid states are `closed', `initial', `nonauth', and `auth'.
(defvar sieve-manage-state 'closed (#$ . 3690))
(defvar sieve-manage-process nil)
(defvar sieve-manage-capability nil)
#@41 Enable multibyte in the current buffer.
(defalias 'sieve-manage-disable-multibyte '(macro . #[nil "\300\207" [(set-buffer-multibyte nil)] 1 (#$ . 3895)]))
(defalias 'sieve-manage-erase #[(&optional p buffer) "\206�p	\203/�r\303	!q\210\304\305!\210\306 \210db\210\307rq\210e)\n\206,�rq\210d)#\210))e\n\2066�d|\207" [buffer sieve-manage-log p get-buffer-create set-buffer-multibyte nil buffer-disable-undo insert-buffer-substring] 4])
(defalias 'sieve-manage-open-1 #[(buffer) "rq\210\304 \210\305\306\307\310\217\211\205;�	\305=\203-�\311\n!\312>\203-�\313\314\"\210\315\n\316\"\210\202�\313\317\"\210\311\n!\320>\205;�\n)\207" [buffer sieve-manage-state sieve-manage-process sieve-manage-server sieve-manage-erase initial nil (byte-code "\305	\2368\306\n\f$\207" [sieve-manage-stream sieve-manage-stream-alist buffer sieve-manage-server sieve-manage-port 2 "sieve"] 5) (((error quit))) process-status (open run) message "Waiting for response from %s..." accept-process-output 1 "Waiting for response from %s...done" (open run)] 4])
(defalias 'sieve-manage-network-p #[(buffer) "\300\207" [t] 1])
(defalias 'sieve-manage-network-open #[(name buffer server port) "\206�	\n\f\306$\211\205P�\307!\310>\203?�q\203?�eb\203?�\311 \204?�\312\313\"\210\314\313!\210\202�\315\316\"\210\307!\317>\205P�,\207" [port sieve-manage-default-port sieve-manage-coding-system-for-read coding-system-for-read sieve-manage-coding-system-for-write coding-system-for-write open-network-stream process-status (open run) sieve-manage-parse-greeting-1 accept-process-output 1 sit-for sieve-manage-erase nil (open run) name buffer server process] 6])
(defalias 'sieve-manage-starttls-p #[(buffer) "\300\301\302\217\207" [nil (byte-code "\300\301!\210\302\303!\207" [require starttls call-process "starttls"] 2) ((error))] 3])
(defalias 'sieve-manage-starttls-open #[(name buffer server port) "\206�	\n\f\306$\307\203R�\310!\311>\203C�q\203C�eb\203C�\312 \204C�\313\314\"\210\315\314!\210\202�\316\307\"\210\317\320!\210\321!\210\310!\322>\205]�-\207" [port sieve-manage-default-port sieve-manage-coding-system-for-read coding-system-for-read sieve-manage-coding-system-for-write coding-system-for-write starttls-open-stream nil process-status (open run) sieve-manage-parse-greeting-1 accept-process-output 1 sit-for sieve-manage-erase sieve-manage-send "STARTTLS" starttls-negotiate (open run) name buffer server process done] 5])
#@45 Login to server using the SASL MECH method.
(defalias 'sieve-sasl-auth #[(buffer mech) "\306\307\"\210r	q\210\310\311\n\312\313\314\315\316\317&\320@\321\"\206�\322\320@\323\"\206(�\322\324
!\2034�
 \2025�
\325\326C!\f\313\n$&\327\330\331
!E'\332&\333\"(\334\335\336\337(!\205e�\340\341\337(!\342\"\336QR!)\333\211*+\343\344\215\210\306\345\".\207" [mech buffer sieve-manage-server auth-info user-name user-password message "sieve: Authenticating using %s..." auth-source-search :host :port "sieve" :max 1 :create t plist-get :user #1="" :secret functionp sasl-make-client sasl-find-mechanism lambda (prompt) copy-sequence sasl-next-step nil sieve-manage-send "AUTHENTICATE \"" "\"" sasl-step-data " \"" base64-encode-string no-line-break done (byte-code "\306eb\210\307 \211\203�\310	!\204�\306\211\202�\311\225b\210\2042�\312 \211\2042�\313\n\314\"\210eb\210\202�\315 \210\316!\203�\211A@)\203_�\317\320\211A@)\"\203_�\321\f\322\323\314\211A@)\"!\"\210\324
\f\"\211\203z�\325\f!\211!\203z�\326\327!\"\210\202�\330\331\332\"\210;\204\214�\326\333AA@\"\210\321\f\322!\"\210\324
\f\"\334\325\f!\203\253�\335\336\325\f!\337\"\335Q\202\254�\340!\210\202��" [rsp sieve-manage-server-eol sieve-manage-process x step client nil sieve-manage-is-string looking-at 0 sieve-manage-is-okno accept-process-output 1 sieve-manage-erase sieve-manage-ok-p string-match "^SASL \"\$[^\"]+\$\"" sasl-step-set-data base64-decode-string match-string sasl-next-step sasl-step-data error "Server not ready for SASL data: %s" throw done t "Server aborted SASL authentication: %s" sieve-manage-send "\"" base64-encode-string no-line-break #1# data] 7) "sieve: Login using %s...done" client sasl-read-passphrase step tag data rsp] 10 (#$ . 6379)])
(defalias 'sieve-manage-cram-md5-p #[(buffer) "\301\302\303#\207" [buffer sieve-manage-capability "SASL" "CRAM-MD5"] 4])
#@61 Login to managesieve server using the CRAM-MD5 SASL method.
(defalias 'sieve-manage-cram-md5-auth #[(buffer) "\301\302\"\207" [buffer sieve-sasl-auth "CRAM-MD5"] 3 (#$ . 8278)])
(defalias 'sieve-manage-digest-md5-p #[(buffer) "\301\302\303#\207" [buffer sieve-manage-capability "SASL" "DIGEST-MD5"] 4])
#@63 Login to managesieve server using the DIGEST-MD5 SASL method.
(defalias 'sieve-manage-digest-md5-auth #[(buffer) "\301\302\"\207" [buffer sieve-sasl-auth "DIGEST-MD5"] 3 (#$ . 8589)])
(defalias 'sieve-manage-scram-md5-p #[(buffer) "\301\302\303#\207" [buffer sieve-manage-capability "SASL" "SCRAM-MD5"] 4])
#@62 Login to managesieve server using the SCRAM-MD5 SASL method.
(defalias 'sieve-manage-scram-md5-auth #[(buffer) "\301\302\"\207" [buffer sieve-sasl-auth "SCRAM-MD5"] 3 (#$ . 8904)])
(defalias 'sieve-manage-ntlm-p #[(buffer) "\301\302\303#\207" [buffer sieve-manage-capability "SASL" "NTLM"] 4])
#@57 Login to managesieve server using the NTLM SASL method.
(defalias 'sieve-manage-ntlm-auth #[(buffer) "\301\302\"\207" [buffer sieve-sasl-auth "NTLM"] 3 (#$ . 9206)])
(defalias 'sieve-manage-plain-p #[(buffer) "\301\302\303#\207" [buffer sieve-manage-capability "SASL" "PLAIN"] 4])
#@58 Login to managesieve server using the PLAIN SASL method.
(defalias 'sieve-manage-plain-auth #[(buffer) "\301\302\"\207" [buffer sieve-sasl-auth "PLAIN"] 3 (#$ . 9495)])
(defalias 'sieve-manage-login-p #[(buffer) "\301\302\303#\207" [buffer sieve-manage-capability "SASL" "LOGIN"] 4])
#@58 Login to managesieve server using the LOGIN SASL method.
(defalias 'sieve-manage-login-auth #[(buffer) "\301\302\"\207" [buffer sieve-sasl-auth "LOGIN"] 3 (#$ . 9787)])
#@455 Open a network connection to a managesieve SERVER (string).
Optional argument PORT is port number (integer) on remote server.
Optional argument STREAM is any of `sieve-manage-streams' (a symbol).
Optional argument AUTH indicates authenticator to use, see
`sieve-manage-authenticators' for available authenticators.
If nil, chooses the best stream the server is capable of.
Optional argument BUFFER is buffer (buffer, or string naming buffer)
to work in.
(defalias 'sieve-manage-open #[(server &optional port stream auth buffer) "\204�	\n\206�\306\307#r\310\n!q\210\311\312\f\"\210\313\314!\210\315 \210\206'�
\2062�\316\317
\"\210\206@� \320\n!)\203\314!\316\321
\"\210\204\225�\"##\211A#@\211\203\213�$\236A@\n!\203Z�\206z� =?!\314\211#\202\\�\204\224�\322\323!\210)!\203\274�\316\324\"\210\325\n!\210\320\n!\203\263�\316\326\"\210\202\271�\316\327\"\210\314%\330\n!\203�&\204�'\331=\204�())\211A)@\211\203\366�*\236A@\n!\203\322�&\314\211)\202\324�&\204\377�\322\332!\210))\202	\316\333
\"\210\330\n!\205\334 \210\n)\207" [port sieve-manage-default-port buffer server sieve-manage-local-variables sieve-manage-server format " *sieve* %s:%s" get-buffer-create mapc make-local-variable set-buffer-multibyte nil buffer-disable-undo message "sieve: Connecting to %s..." sieve-manage-open-1 "sieve: Connecting to %s...done" error "Couldn't figure out a stream for server" "sieve: Reconnecting with stream `%s'..." sieve-manage-close "sieve: Reconnecting with stream `%s'...done" "sieve: Reconnecting with stream `%s'...failed" sieve-manage-opened auth "Couldn't figure out authenticator for server" "sieve: Connecting to %s...failed" sieve-manage-erase sieve-manage-port stream sieve-manage-stream sieve-manage-default-stream stream-changed sieve-manage-streams streams sieve-manage-stream-alist sieve-manage-capability sieve-manage-auth sieve-manage-state sieve-manage-authenticators auths sieve-manage-authenticator-alist] 5 (#$ . 9964)])
#@70 Authenticate on server in BUFFER.
Return `sieve-manage-state' value.
(defalias 'sieve-manage-authenticate #[(&optional buffer) "r\206�pq\210	\304=\203�\305\n\2368p!\205�\306\211\202�	)\207" [buffer sieve-manage-state sieve-manage-auth sieve-manage-authenticator-alist nonauth 2 auth] 3 (#$ . 11988)])
#@121 Return non-nil if connection to managesieve server in BUFFER is open.
If BUFFER is nil then the current buffer is used.
(defalias 'sieve-manage-opened #[(&optional buffer) "\302\206�p!\211\205 �\303!\205 �rq\210	\205�\304	!\305>)\207" [buffer sieve-manage-process get-buffer buffer-live-p process-status (open run)] 2 (#$ . 12303)])
#@97 Close connection to managesieve server in BUFFER.
If BUFFER is nil, the current buffer is used.
(defalias 'sieve-manage-close #[(&optional buffer) "r\206�pq\210\302 \203�\303\304!\210\305\306!\210	\203%�\307	!\310>\203%�\311	!\210\312\313 \210)\314\207" [buffer sieve-manage-process sieve-manage-opened sieve-manage-send "LOGOUT" sit-for 1 process-status (open run) delete-process nil sieve-manage-erase t] 2 (#$ . 12648)])
#@243 Check if capability NAME of server BUFFER match VALUE.
If it does, return the server value of NAME. If not returns nil.
If VALUE is nil, do not check VALUE and return server value.
If NAME is nil, return the full server list of capabilities.
(defalias 'sieve-manage-capability #[(&optional name value buffer) "r\206�pq\210	\204�\n\202+�\306	\n\"\211A@)
\203)�\f\205*�\307
\f\"\205*�\f))\207" [buffer name sieve-manage-capability x server-value value assoc string-match] 4 (#$ . 13083)])
(defalias 'sieve-manage-listscripts #[(&optional buffer) "r\206�pq\210\301\302!\210\303 )\207" [buffer sieve-manage-send "LISTSCRIPTS" sieve-manage-parse-listscripts] 2])
(defalias 'sieve-manage-havespace #[(name size &optional buffer) "r\206�pq\210\303\304\305	\n#!\210\306 )\207" [buffer name size sieve-manage-send format "HAVESPACE \"%s\" %s" sieve-manage-parse-okno] 5])
(defalias 'sieve-manage-putscript #[(name content &optional buffer) "r\206�pq\210\304\305\306	\nG\n%!\210\307 )\207" [buffer name content sieve-manage-client-eol sieve-manage-send format "PUTSCRIPT \"%s\" {%d+}%s%s" sieve-manage-parse-okno] 7])
(defalias 'sieve-manage-deletescript #[(name &optional buffer) "r\206�pq\210\302\303\304	\"!\210\305 )\207" [buffer name sieve-manage-send format "DELETESCRIPT \"%s\"" sieve-manage-parse-okno] 4])
(defalias 'sieve-manage-getscript #[(name output-buffer &optional buffer) "r\206�pq\210\304\305\306	\"!\210\307 \310 \210rq\210\nc\210)\311 *\207" [buffer name script output-buffer sieve-manage-send format "GETSCRIPT \"%s\"" sieve-manage-parse-string sieve-manage-parse-crlf sieve-manage-parse-okno] 4])
(defalias 'sieve-manage-setactive #[(name &optional buffer) "r\206�pq\210\302\303\304	\"!\210\305 )\207" [buffer name sieve-manage-send format "SETACTIVE \"%s\"" sieve-manage-parse-okno] 4])
(defalias 'sieve-manage-ok-p #[(rsp) "\242\206�\301\227\302\230\207" [rsp "" "ok"] 2])
(defalias 'sieve-manage-forward #[nil "m\206�\300u\207" [nil] 1])
(put 'sieve-manage-forward 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'sieve-manage-is-okno #[nil "\304\305P!\205$�\306\307!\306\310!\306\311!	\203�\311\224b\210\312 \n	E+\207" [sieve-manage-server-eol response resp-code status looking-at "^\$OK\\|NO\$\$ (\\([^)]+\$)\\)?\$ \\(.*\$\\)?" match-string 1 3 5 sieve-manage-is-string] 4])
(defalias 'sieve-manage-parse-okno #[nil "\301\302\303p!\304\"\210eb\210\305 \211\203�\306 \210)\207" [rsp nil accept-process-output get-buffer-process 1 sieve-manage-is-okno sieve-manage-erase] 4])
#@32 Accept a managesieve greeting.
(defalias 'sieve-manage-parse-capability-1 #[nil "\304\305 \211\203,�\304f\306=\203!�m\204�\304u\210\305 D	B\202&�C	B\304y\210\202�)\307\310\nP\304\311#\205:�\312\211\207" [str sieve-manage-capability sieve-manage-server-eol sieve-manage-state nil sieve-manage-is-string 32 re-search-forward "^OK.*" t nonauth] 4 (#$ . 15627)])
(defalias 'sieve-manage-parse-greeting-1 'sieve-manage-parse-capability-1)
(defalias 'sieve-manage-is-string #[nil "\303\304!\203�\305\306!\307\225b\210\207\303\310P!\2053�\307\225\311\305\306!!d\n	\\W?\2052�\n	\\b\210\n\211	\\{*\207" [sieve-manage-server-eol len pos looking-at "\"\$[^\"]+\$\"" match-string 1 0 "{\$[0-9]+\\+?\$}" string-to-number] 4])
(defalias 'sieve-manage-parse-string #[nil "\301\302\303p!\304\"\210eb\210\305 \211\203�\306`!\210)\207" [rsp nil accept-process-output get-buffer-process 1 sieve-manage-is-string sieve-manage-erase] 4])
(defalias 'sieve-manage-parse-crlf #[nil "\301!\205\n�\302\303\225!\207" [sieve-manage-server-eol looking-at sieve-manage-erase 0] 2])
(defalias 'sieve-manage-parse-listscripts #[nil "\304\211\211	\204Z�\305 \211\204%�\306 \211\204%�\307\310p!\311\"\210eb\210\202\n�\n\203�\312\313P!\204>�\307\310p!\311\"\210eb\210\202)�\314\311!\203M�\315\nBB\202Q�\nB\316\225b\210\304\202�\317 \210\320	!\203g�\202h�	+\207" [data rsp tmp sieve-manage-server-eol nil sieve-manage-is-okno sieve-manage-is-string accept-process-output get-buffer-process 1 looking-at "\$ ACTIVE\$?" match-string active 0 sieve-manage-erase sieve-manage-ok-p] 3])
(defalias 'sieve-manage-send #[(cmdstr) "	P\n\203�r\304\n!q\210\305\306!\210\307 \210db\210c\210)\310\"\207" [cmdstr sieve-manage-client-eol sieve-manage-log sieve-manage-process get-buffer-create set-buffer-multibyte nil buffer-disable-undo process-send-string] 3])
(provide 'sieve-manage)