%PDF- %PDF- Mini Shell
Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/gnus/
Current File : //usr/local/share/emacs/27.2/lisp/gnus/gnus-cloud.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\204hm\204\304\305!\204\306y\210\202m\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)
Zerion Mini Shell 1.0