HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/net/sieve-manage.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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!\203
\302\303!\210\202\302\304!\210\302\305!\210\302\306!\210\307\310\311\"\210\307\312\313\"\210\314\315\316\317\320\321\322\323&\210\324\325\326\327\330\331\320\315&\210\324\332\333\334\330\331\320\315&\210\324\335\333\336\330\331\320\315&\210\324\337\340\341\330\342\320\315&\210\324\343\344\345\330\346\320\315&\210\324\347\350\351\330\352\353\354\320\315&	\210\324\355\356\357\353\360\330\361\320\315&	\210\324\362\316\363\353\364\330\365\320\315&	\207" [locate-library "password-cache" require password-cache password sasl starttls autoload sasl-find-mechanism "sasl" 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-authenticators '(digest-md5 cram-md5 scram-md5 ntlm plain login) "Priority of authenticators to consider when authenticating to server." (repeat symbol) 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." (repeat (list (symbol :tag "Name") (function :tag "Check function") (function :tag "Authentication function"))) sieve-manage-default-port "sieve" "Default port number or service name for managesieve protocol." (choice integer string) :version "24.4" sieve-manage-default-stream 'network "Default stream type to use for `sieve-manage'." "24.1" symbol sieve-manage-ignore-starttls "Ignore STARTTLS even if STARTTLS capability is provided." "26.1" boolean] 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 (#$ . 3114))
(defvar sieve-manage-process nil)
(defvar sieve-manage-capability nil)
(autoload 'mm-enable-multibyte "mm-util")
(defalias 'sieve-manage-make-process-buffer #[nil "r\303\304\305	#!q\210\306\307\n\"\210\310 \210\311 \210p)\207" [sieve-manage-server sieve-manage-port sieve-manage-local-variables generate-new-buffer format " *sieve %s:%s*" mapc make-local-variable mm-enable-multibyte buffer-disable-undo] 5])
(defalias 'sieve-manage-erase #[(&optional p buffer) "\206p	\203.r\303	!q\210\304 \210\305 \210db\210\306rq\210e)\n\206+rq\210d)#\210))e\n\2065d|\207" [buffer sieve-manage-log p get-buffer-create mm-enable-multibyte buffer-disable-undo insert-buffer-substring] 4])
#@94 Open network connection to SERVER on PORT.
Return the buffer associated with the connection.
(defalias 'sieve-manage-open-server #[(server port &optional stream buffer) "rq\210\306 \210\307\310\311\n\312\f\313\314\315\316\317\320\321\322\323\324&\211\203)
\211A\242\2020\325\326\327
GD\"\211\330\331
\332\"! !\204Q\f\333>\203T\331
\312\"\334=\203T\335 \210p+\207" [buffer sieve-manage-state server port stream props sieve-manage-erase initial open-network-stream "SIEVE" :type :capability-command "CAPABILITY
\n" :end-of-command "^\\(OK\\|NO\\).*\n" :success "^OK.*\n" :return-list t :starttls-function #[(capabilities) "?\205
\302\303	\"\205
\304\207" [sieve-manage-ignore-starttls capabilities string-match "\\bSTARTTLS\\b" "STARTTLS
\n"] 3] signal wrong-number-of-arguments nil sieve-manage-parse-capability plist-get :capabilities (nil network starttls) tls sieve-manage-drop-next-answer proc sieve-manage-process sieve-manage-capability sieve-manage-ignore-starttls] 18 (#$ . 3933)])
#@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$5\327\330\331
!E6\3325\333\"7\334\335\336\3377!\205e\340\341\3377!\342\"\336QR!8\333\2119:\34324\333:eb\210\344 \211:\203\210\345;!\204\217\333\211:\202\225\346\225b\210:\204\254\347 \211:\204\254\350<\315\"\210eb\210\202y\351 \210\352:!\203\371:A@\203\325\353\354:A@\"\203\325\3557\356\357\315:A@\"!\"\210\33257\"\2117\203\364\3377!\2119\203\364\360\3619\"\210\202\371\362\343\317\"\210:;\204\360\363:AA@\"\210\3557\356:!\"\210\33257\"7\334\3377!\203.\336\341\3377!\342\"\336Q\202/\322!\210\202s\210\306\364\".\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 "" :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 sieve-manage-is-string looking-at 0 sieve-manage-is-okno accept-process-output sieve-manage-erase sieve-manage-ok-p string-match "^SASL \"\\([^\"]+\\)\"" sasl-step-set-data base64-decode-string match-string error "Server not ready for SASL data: %s" throw "Server aborted SASL authentication: %s" "sieve: Login using %s...done" client sasl-read-passphrase step tag data rsp sieve-manage-server-eol sieve-manage-process] 10 (#$ . 4949)])
(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 (#$ . 6716)])
(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 (#$ . 7027)])
(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 (#$ . 7342)])
(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 (#$ . 7644)])
(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 (#$ . 7933)])
(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 (#$ . 8225)])
#@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) "\206	r\206
\306 q\210\f\206
\206!\206!\206*\307\310
\"\210\311
\np$\210\312p!\205\215\204\211\313=\204\211\3142\315\211\205}@\211\236A@!\203s\316\314\315\"\210A\211\204Z\315*0\210\204\211\317\320!\210\321 \210p)\207" [port sieve-manage-default-port sieve-manage-port buffer server sieve-manage-server sieve-manage-make-process-buffer message "sieve: Connecting to %s..." sieve-manage-open-server sieve-manage-opened auth --cl-block-nil-- nil throw error "Couldn't figure out authenticator for server" sieve-manage-erase stream sieve-manage-stream sieve-manage-default-stream sieve-manage-auth sieve-manage-state sieve-manage-authenticators --dolist-tail-- sieve-manage-authenticator-alist] 6 (#$ . 8402)])
#@70 Authenticate on server in BUFFER.
Return `sieve-manage-state' value.
(defalias 'sieve-manage-authenticate #[(&optional buffer) "r\206pq\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 (#$ . 9707)])
#@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\206p!\211\205 \303!\205 rq\210	\205\304	!\305>)\207" [buffer sieve-manage-process get-buffer buffer-live-p process-status (open run)] 2 (#$ . 10021)])
#@97 Close connection to managesieve server in BUFFER.
If BUFFER is nil, the current buffer is used.
(defalias 'sieve-manage-close #[(&optional buffer) "r\206pq\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 (#$ . 10366)])
#@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\206pq\210	\204\n\202(\305	\n\"A@\f\203&\205'\306\f\"\205'))\207" [buffer name sieve-manage-capability server-value value assoc string-match] 3 (#$ . 10801)])
(defalias 'sieve-manage-listscripts #[(&optional buffer) "r\206pq\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\206pq\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\206pq\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\206pq\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\206pq\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\206pq\210\302\303\304	\"!\210\305 )\207" [buffer name sieve-manage-send format "SETACTIVE \"%s\"" sieve-manage-parse-okno] 4])
(defalias 'sieve-manage-wait-for-answer #[nil "\302\303\204\304	\303\305#eb\210\306\307\310\"\210\202*\207" [pos pattern "^\\(OK\\|NO\\).*\n" nil search-forward-regexp t sleep-for 0 50] 4])
(defalias 'sieve-manage-drop-next-answer #[nil "\300 \210\301 \207" [sieve-manage-wait-for-answer sieve-manage-erase] 1])
(defalias 'sieve-manage-ok-p #[(rsp) "\242\206\301\227\302\230\207" [rsp "" "ok"] 2])
(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])
#@87 Parse managesieve capability string `STR'.
Set variable `sieve-manage-capability' to 
(defalias 'sieve-manage-parse-capability #[(str) "\303\304\305\306\307\310\"\"\"\311	!@@\312\230\203\313	)\207" [str capas sieve-manage-state delq nil mapcar split-string-and-unquote split-string "\n" last "OK" nonauth] 7 (#$ . 13518)])
(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\203r\304\n!q\210\305 \210\306 \210db\210c\210)\307\"\207" [cmdstr sieve-manage-client-eol sieve-manage-log sieve-manage-process get-buffer-create mm-enable-multibyte buffer-disable-undo process-send-string] 3])
(provide 'sieve-manage)