Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
.dir-locals.el	105 B	-rw-r--r--
canlock.elc	5.71 KB	-rw-r--r--
deuglify.elc	7.85 KB	-rw-r--r--
gmm-utils.elc	5.79 KB	-rw-r--r--
gnus-agent.elc	119.17 KB	-rw-r--r--
gnus-art.elc	262.11 KB	-rw-r--r--
gnus-async.elc	11.71 KB	-rw-r--r--
gnus-bcklg.elc	2.85 KB	-rw-r--r--
gnus-bookmark.elc	25.33 KB	-rw-r--r--
gnus-cache.elc	24.08 KB	-rw-r--r--
gnus-cite.elc	26.28 KB	-rw-r--r--
gnus-cloud.elc	18.45 KB	-rw-r--r--
gnus-cus.elc	39.5 KB	-rw-r--r--
gnus-delay.elc	4.61 KB	-rw-r--r--
gnus-demon.elc	7.52 KB	-rw-r--r--
gnus-diary.elc	8.41 KB	-rw-r--r--
gnus-dired.elc	8.03 KB	-rw-r--r--
gnus-draft.elc	12.03 KB	-rw-r--r--
gnus-dup.elc	4.59 KB	-rw-r--r--
gnus-eform.elc	4.76 KB	-rw-r--r--
gnus-fun.elc	9.93 KB	-rw-r--r--
gnus-gravatar.elc	4.15 KB	-rw-r--r--
gnus-group.elc	154.92 KB	-rw-r--r--
gnus-html.elc	13.41 KB	-rw-r--r--
gnus-icalendar.elc	40.93 KB	-rw-r--r--
gnus-int.elc	58.83 KB	-rw-r--r--
gnus-kill.elc	19.24 KB	-rw-r--r--
gnus-logic.elc	5.15 KB	-rw-r--r--
gnus-mh.elc	2.96 KB	-rw-r--r--
gnus-ml.elc	6.08 KB	-rw-r--r--
gnus-mlspl.elc	6.48 KB	-rw-r--r--
gnus-msg.elc	84.49 KB	-rw-r--r--
gnus-notifications.elc	5.38 KB	-rw-r--r--
gnus-picon.elc	8.06 KB	-rw-r--r--
gnus-range.elc	11.97 KB	-rw-r--r--
gnus-registry.elc	34.53 KB	-rw-r--r--
gnus-rfc1843.elc	1.59 KB	-rw-r--r--
gnus-salt.elc	27.54 KB	-rw-r--r--
gnus-score.elc	74.27 KB	-rw-r--r--
gnus-sieve.elc	8.14 KB	-rw-r--r--
gnus-spec.elc	12.88 KB	-rw-r--r--
gnus-srvr.elc	50.09 KB	-rw-r--r--
gnus-start.elc	138.21 KB	-rw-r--r--
gnus-sum.elc	431.26 KB	-rw-r--r--
gnus-topic.elc	46.53 KB	-rw-r--r--
gnus-undo.elc	4.69 KB	-rw-r--r--
gnus-util.elc	49.29 KB	-rw-r--r--
gnus-uu.elc	55.9 KB	-rw-r--r--
gnus-vm.elc	2.42 KB	-rw-r--r--
gnus-win.elc	10.95 KB	-rw-r--r--
gnus.elc	158.84 KB	-rw-r--r--
gssapi.elc	2.27 KB	-rw-r--r--
legacy-gnus-agent.elc	6.35 KB	-rw-r--r--
mail-source.elc	28.21 KB	-rw-r--r--
message.elc	237.92 KB	-rw-r--r--
mm-archive.elc	2.95 KB	-rw-r--r--
mm-bodies.elc	5.84 KB	-rw-r--r--
mm-decode.elc	55.66 KB	-rw-r--r--
mm-encode.elc	6.13 KB	-rw-r--r--
mm-extern.elc	4.25 KB	-rw-r--r--
mm-partial.elc	3.05 KB	-rw-r--r--
mm-url.elc	9.75 KB	-rw-r--r--
mm-util.elc	24.33 KB	-rw-r--r--
mm-uu.elc	21.99 KB	-rw-r--r--
mm-view.elc	16.82 KB	-rw-r--r--
mml-sec.elc	35.2 KB	-rw-r--r--
mml-smime.elc	10.44 KB	-rw-r--r--
mml.elc	44.72 KB	-rw-r--r--
mml1991.elc	7.59 KB	-rw-r--r--
mml2015.elc	25.61 KB	-rw-r--r--
nnagent.elc	10.44 KB	-rw-r--r--
nnbabyl.elc	16.84 KB	-rw-r--r--
nndiary.elc	38.56 KB	-rw-r--r--
nndir.elc	2.67 KB	-rw-r--r--
nndoc.elc	30.1 KB	-rw-r--r--
nndraft.elc	10.55 KB	-rw-r--r--
nneething.elc	11.45 KB	-rw-r--r--
nnfolder.elc	32.39 KB	-rw-r--r--
nngateway.elc	2.88 KB	-rw-r--r--
nnheader.elc	34.72 KB	-rw-r--r--
nnimap.elc	73.06 KB	-rw-r--r--
nnir.elc	62.86 KB	-rw-r--r--
nnmail.elc	52.09 KB	-rw-r--r--
nnmaildir.elc	90.83 KB	-rw-r--r--
nnmairix.elc	72.33 KB	-rw-r--r--
nnmbox.elc	18.57 KB	-rw-r--r--
nnmh.elc	15.14 KB	-rw-r--r--
nnml.elc	33.63 KB	-rw-r--r--
nnnil.elc	1.63 KB	-rw-r--r--
nnoo.elc	8.63 KB	-rw-r--r--
nnregistry.elc	1.72 KB	-rw-r--r--
nnrss.elc	29.02 KB	-rw-r--r--
nnspool.elc	15.72 KB	-rw-r--r--
nntp.elc	111.69 KB	-rw-r--r--
nnvirtual.elc	18.31 KB	-rw-r--r--
nnweb.elc	16.67 KB	-rw-r--r--
score-mode.elc	4.93 KB	-rw-r--r--
smiley.elc	5.31 KB	-rw-r--r--
smime.elc	18.76 KB	-rw-r--r--
spam-report.elc	11.41 KB	-rw-r--r--
spam-stat.elc	19.39 KB	-rw-r--r--
spam-wash.elc	1.23 KB	-rw-r--r--
spam.elc	80.84 KB	-rw-r--r--

Code Editor : gnus-cloud.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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\"\210\303\306\305\"\210\303\307\305\"\210\303\310\305\"\210\311\312\313\314\315\316\317\320&\210\321\322\323\324\317\312\325\326&\210\321\327\330\331\315\332\317\312\325\333&	\210\321\334\335\336\315\332\317\312\325\337&	\207" [require parse-time nnimap autoload epg-make-context "epg" epg-context-set-passphrase-callback epg-decrypt-string epg-encrypt-string 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 files that should be kept up-to-date via the cloud.\nEach element may be either a string or a property list.\nThe latter should have a :directory element whose value is a string,\nand a :match element whose value is a regular expression to match\nagainst the basename of files in said directory." :type (repeat (choice (string :tag "File") (plist :tag "Property list"))) gnus-cloud-storage-method (if (featurep 'epg) 'epg 'base64-gzip) "Storage method for cloud data, defaults to EPG if that's available." "26.1" (radio (const :tag "No encoding" nil) (const :tag "Base64" base64) (const :tag "Base64+gzip" base64-gzip) (const :tag "EPG" epg)) gnus-cloud-interactive t "Whether Gnus Cloud changes should be confirmed." boolean] 10)
(defvar gnus-cloud-group-name "Emacs-Cloud")
(defvar gnus-cloud-covered-servers nil)
(defvar gnus-cloud-version 1)
(defvar gnus-cloud-sequence 1)
#@165 The IMAP select method used to store the cloud data.
See also `gnus-server-set-cloud-method-server' for an
easy interactive way to set this from the Server buffer.
(custom-declare-variable 'gnus-cloud-method nil '(#$ . 1927) :group 'gnus-cloud :type '(radio (const :tag "Not set" nil) (string :tag "A Gnus server name as a string")))
(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 "Gnus-Cloud-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\216�@\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\207�\313\n\314\"\327=\203u�\312\211\330\np\"\210*\326c\210\202\207�\313\n\314\"\331=\203\207�\323\332\313\n\320\"\"c\210A\211\204�*\333 \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" :newsrc-data print :delete "(:type :delete :file-name %S)\n" gnus-cloud-encode-data #2# print-length print-level] 7])
(defalias 'gnus-cloud-encode-data #[nil "\306\267\202b�\307ed\310\311p\312\313&\210\314ed\"\207\314ed\"\207\315\316!\312\317\n!>\2040�\320\321\322\nD\"\210\n\211\323\311I\210)\317\n!>\204G�\320\321\322\nD\"\210\n\211\324\311I\210)\325\n\326ed\"\312#ed|\210c+\207\204k�\327\324\330\"\207\331\332\333#\207" [gnus-cloud-storage-method cipher context cl-struct-epg-context-tags #1=#:v #2=#:v #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (base64-gzip 6 base64 22 epg 27)) call-process-region "gzip" t nil "-c" base64-encode-region epg-make-context OpenPGP type-of signal wrong-type-argument epg-context 4 5 epg-encrypt-string buffer-substring-no-properties gnus-message "Leaving cloud data plaintext" gnus-error 1 "Invalid cloud storage method %S" data] 9])
(defalias 'gnus-cloud-decode-data #[nil "\303\267\202�\304ed\"\207\305\306!\307	\310ed\"\"ed|\210\nc*\207\204(�\311\312\313\"\207\314\315\316#\207" [gnus-cloud-storage-method context data #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (base64 6 base64-gzip 6 epg 11)) base64-decode-region epg-make-context OpenPGP epg-decrypt-string buffer-substring-no-properties gnus-message 5 "Reading cloud data as plaintext" gnus-error 1 "Invalid cloud storage method %S"] 5])
(defalias 'gnus-cloud-parse-chunk #[nil "\212\303\304!\204�\305\306!\210\307y\210\310\311\307!!`d{\312\313!r\nq\210\314\216\315 \210c\210	\307U\2039�\316 \210eb\210\317 \202=�\305\320	\".\207" [data version #1=#:temp-buffer looking-at "Gnus-Cloud-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\204h�m\204�\304\305!\204�\306y\210\202�m\204�\3071%�\310p!0\202'�\210\303\303\211:\203d�\311\n\312\"\313>\203W�\311\n\314\"\315\n\316`T\317`\306	#{D\"B\317`\306	#b\210\202d�\311\n\312\"\320=\203d�\nB*\202�\237)\207" [elems length spec nil looking-at "(:type" 1 (error) read plist-get :type (:file :delete) :length append :contents + :newsrc-data] 9])
(defalias 'gnus-cloud-update-all #[(elems) "\304\211\2058�\n@\305	\306\"\211\307\267\202)�\310\305	\311\"	\"\210\202/�\312	\"\210\202/�\313\314\315#\210)\nA\211\204�\304*\207" [elems elem --dolist-tail-- type nil plist-get :type #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:newsrc-data 22 :delete 33 :file 33)) gnus-cloud-update-newsrc-data :name gnus-cloud-update-file gnus-message 1 "Unknown type %s; ignoring"] 5])
#@85 Update the newsrc data for GROUP from ELEM.
Use old data if FORCE-OLDER is not nil.
(defalias 'gnus-cloud-update-newsrc-data #[(group elem &optional force-older) "\306\307\"\306\310\"\206
�\311\312\313!\n\231
\314\"A@\262	\203\206�	@;\203\206�	A@\250\203\206�\203~�\315\316\"\315\316	\"\232\203M�\317\320\321
#\202\214�\f\203`�\204`�\317\320\322
\n%\202\214� \203m�\323\315\324
\n#!\210\317\325\326
#\210\327
	\"\210\330
!\202\214�\331\332\333
#\202\214�\331\332\334
$-\207" [elem contents date now newer group plist-get :contents :timestamp "0" gnus-cloud-timestamp nil gethash format "%S" gnus-message 3 "Skipping cloud update of group %s, the info is the same" "Skipping outdated cloud info for group %s, the info is from %s (now is %s)" gnus-y-or-n-p "%s has older different info in the cloud as of %s, update it here? " 2 "Installing cloud update of group %s" gnus-set-info gnus-group-update-group gnus-error 1 "Sorry, group %s is not subscribed" "Sorry, could not update newsrc for group %s (invalid data %S)" gnus-newsrc-hashtb group-info force-older gnus-cloud-interactive] 6 (#$ . 6323)])
#@56 Apply Gnus Cloud data ELEM and operation OP to a file.
(defalias 'gnus-cloud-update-file #[(elem op) "\306\307\"\306\310\"\306\311\"\312	!\313	!\203\203�
\314\267\202�\f\203<� \2032�\315\316\317	\n#!\203<�\320	\321	!@\"\202\210�\322\323\324	#\202\210�\f\203w�\f\205\210�\325\326!!r!q\210\327\216\330 \210\331	!\210\332 \232+?\205\210� \203w�\315\316\333	\n#!\205\210�\334	\n#\202\210�\335\202\210�\322\336\337	#,\207" [elem file-name date contents exists op plist-get :file-name :timestamp :contents file-exists-p gnus-cloud-file-covered-p #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:delete 31 :file 68)) gnus-y-or-n-p format "%s has been deleted as of %s, delete it locally? " rename-file find-backup-file-name gnus-message 3 "%s was already deleted before the cloud got it" generate-new-buffer " *temp*" #[nil "\301!\205	�\302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] mm-disable-multibyte insert-file-contents-literally buffer-string "%s has updated contents as of %s, update it? " gnus-cloud-replace-file nil 2 "%s isn't covered by the cloud; ignoring" gnus-cloud-interactive #1#] 5 (#$ . 7449)])
(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-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])
#@45 Return a general timestamp string for TIME.
(defalias 'gnus-cloud-timestamp #[(time) "\301\302\"\207" [time format-time-string "%FT%T%z"] 3 (#$ . 10273)])
(defalias 'gnus-cloud-file-new-p #[(file full) "\305\306!\3078\262!\310	\"A@\f\204 �\n\203 �\n\231\205!�*\207" [file gnus-cloud-file-timestamps old timestamp full gnus-cloud-timestamp file-attributes 5 assoc] 4])
(defalias 'gnus-cloud-ensure-cloud-group #[nil ";\203J\211\203�\211<\203�\211\206E\306	\"A\206E\211\307\232\203%�\n\2061\306\"A\2061\306\f\"A\2061
\211\203S�\310\311@@@@@A@#\232\204S�\211A\266\202\2026�\211@@\262\2061\211\203x�\310\311@@@A@#\232\204x�\211A\266\202\202]�\211@\262\2061A\312\211\203/\211A\262\242\3138\262\262;\204\204�\312\314C\3152\211\242\206\253�\n\240\210\204\302�\316\317\320\321\322\323!\324\"\313\325%	\"\210\fD\211\203\343�\211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\305�\210\211\242A@\330\235\203\366�\310\331\242@\"\202�\310\311\242@\242A@#\211\242B\211	\235\204\204\306@	\"\204\211	B\266\2020\262\266\203\232\203\204�\262\312\262\202\204�\266\202\211\203B\306	\"\204BB	B\211\262\262\202K \332!\"\"\206]\333!\312\211$?\205w\334!\"\205w\333!\312\211$\205w\335!!)\207" [gnus-cloud-method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
�\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205�\211	\235\204�\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gethash gnus-activate-group gnus-request-create-group gnus-subscribe-group gnus-secondary-select-methods gnus-newsrc-alist method gnus-cloud-group-name gnus-active-hashtb] 18])
#@55 Upload all data (newsrc and files) to the Gnus Cloud.
(defalias 'gnus-cloud-upload-all-data #[nil "\300\301!\207" [gnus-cloud-upload-data t] 2 (#$ . 12189) nil])
(autoload 'gnus-group-refresh-group "gnus-group")
#@128 Upload data (newsrc and files) to the Gnus Cloud.
When FULL is t, upload everything, not just a difference from the last full.
(defalias 'gnus-cloud-upload-data #[(&optional full) "\306 \210\307\310!rq\210\311\216\312\313	!\314 \"\315\n\"\316\317!\206\"�\320	\203*�\321\202+�\322\"$c\210\323c\210\324c\210\325
!c\210\326\n\327\211$\203]�!\206J�\330T!\331
!\210\332\333\334\f#\210\335\f!\202b�\336\337\340\f#-\207" [#1=#:temp-buffer full gnus-cloud-group-name gnus-cloud-method group elems gnus-cloud-ensure-cloud-group generate-new-buffer " *temp*" #[nil "\301!\205	�\302!\207" [#1# buffer-name kill-buffer] 2] append gnus-cloud-files-to-upload gnus-cloud-collect-full-newsrc gnus-group-full-name format "Subject: (sequence: %s type: %s storage-method: %s)\n" "UNKNOWN" :full :partial "From: nobody@gnus.cloud.invalid\n" "\n" gnus-cloud-make-chunk gnus-request-accept-article t 0 gnus-cloud-add-timestamps gnus-message 3 "Uploaded Gnus Cloud data successfully to %s" gnus-group-refresh-group gnus-error 2 "Failed to upload Gnus Cloud data to %s" gnus-cloud-sequence gnus-cloud-storage-method] 5 (#$ . 12408) nil])
(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\"\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 gethash 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])
#@95 Download the Gnus Cloud data and install it.
Starts at `gnus-cloud-sequence' in the sequence.
(defalias 'gnus-cloud-download-all-data #[nil "\300\301!\207" [gnus-cloud-download-data t] 2 (#$ . 14852) nil])
#@279 Download the Gnus Cloud data and install it if UPDATE is t.
When SEQUENCE-OVERRIDE is given, start at that sequence number
instead of `gnus-cloud-sequence'.

When UPDATE is t, returns the result of calling `gnus-cloud-update-all'.
Otherwise, returns the Gnus Cloud data chunks.
(defalias 'gnus-cloud-download-data #[(&optional update sequence-override) "\306\211\307 \306\211\203L�@\310\n\311H!\f\206�
\206�\312V\203E�\313\314\315\"\n\311H\"\2038�\n\316H	B\202E�\317\311\320\n\316H\n\311H%\210A\211\204
�*	\203w�\321	\237\"\210rq\210eb\210\322\323\306\324#\203v�\325 \210\326 B\311y\210\202`�)\203\203�\327\330\"\202\204�*\207" [chunks articles header --dolist-tail-- sequence-override gnus-cloud-sequence nil gnus-cloud-available-chunks gnus-cloud-chunk-sequence 1 -1 string-match format "storage-method: %s" 0 gnus-message "Skipping article %s because it didn't match the Gnus Cloud method %s: %s" nnimap-request-articles re-search-forward "^Gnus-Cloud-Version " t beginning-of-line gnus-cloud-parse-chunk mapcar gnus-cloud-update-all gnus-cloud-storage-method gnus-cloud-group-name nntp-server-buffer update] 8 (#$ . 15065)])
(defalias 'gnus-cloud-server-p #[(server) "	\235\207" [server gnus-cloud-covered-servers] 2])
(defalias 'gnus-cloud-host-server-p #[(server) "	\232\207" [gnus-cloud-method server] 2])
(defalias 'gnus-cloud-host-acceptable-method-p #[(server) "\211\203�\211<\203�\211\206@\306	\"A\206@\211\307\232\203 �\n\206,\306\"A\206,\306\f\"A\206,
\211\203N�\310\311@@@@@A@#\232\204N�\211A\266\202\2021�\211@@\262\206,\211\203s�\310\311@@@A@#\232\204s�\211A\266\202\202X�\211@\262\206,A\312\211\203*\211A\262\242\3138\262\262;\204�\312\314C\3152\211\242\206\246�\n\240\210\204\275�\316\317\320\321\322\323!\324\"\313\325%	\"\210\fD\211\203\336�\211@\316\317\320\326\322\323!\327\"\313\325%\"\210A\266\202\202\300�\210\211\242A@\330\235\203\361�\310\331\242@\"\202\373�\310\311\242@\242A@#\211\242B\211	\235\204\204\306@	\"\204\211	B\266\2020\262\266\203\232\203�\262\312\262\202�\266\202\211\203=\306	\"\204=B	B\211\262\262\242\332=\207" [server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers assoc "native" format "%s:%s" nil 4 t server-name mapc make-byte-code 257 "\211A\300\242\232\205
�\301\302@\"\207" vconcat vector [throw server-name] "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205�\211	\235\204�\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" nnimap gnus-secondary-select-methods gnus-newsrc-alist] 18])
#@56 Collect all the Gnus newsrc data in a portable format.
(defalias 'gnus-cloud-collect-full-newsrc #[nil "\306	A\306\211\203\264�@\307\310\n@!\306\211C\3112\227�\211\242\206\"�\f\240\210\2049�\312\313\314\315\316\317!\320\"\321\322%
\"\210 !D\211\203\\�\211@\312\313\314\323\316\317!\324\"\321\322%\"\210A\266\202\202>�\210\211\242A@\325\235\203o�\326\327\242@\"\202y�\326\330\242@\242A@#\211\242B\211
\235\204\223�\204\223�\331@
\"\204\223�\211
B\266\2020\266\204!\203\255�\332\333\334\n@\335\n\336\337\306!\257BA\211\204�*)\207" [infos gnus-newsrc-alist info --dolist-tail-- gnus-select-method gnus-server-method-cache nil gnus-cloud-server-p gnus-find-method-for-group server-name mapc make-byte-code 257 "\211A\300\242\232\205
�\301\302@\"\207" vconcat vector [throw server-name] 4 "\n\n(fn NAME-METHOD)" "\302A\300\242\"\205�\211	\235\204�\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") format "%s" "%s:%s" assoc :type :newsrc-data :name :contents :timestamp gnus-cloud-timestamp gnus-server-alist gnus-predefined-server-alist] 15 (#$ . 17729)])
(provide 'gnus-cloud)

${this.title}

Code Editor : gnus-cloud.elc