;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\301%\210\311\312\313\314\315DD\316\317\320%\210\311\305\313\314\321DD\322\317\323%\210\311\324\313\314\325DD\326\317\327%\210\311\330\313\314\331DD\332\317\323%\210\311\333\313\314\334DD\335\317\314%\210\311\336\313\314\337DD\340\341\342\317\314&\207" [require gnus gnus-sum nntp custom-declare-group gnus-asynchronous nil "Support for asynchronous operations." :group custom-declare-variable gnus-use-article-prefetch funcall function #[0 "\300\207" [30] 1 #1=""] "If non-nil, prefetch articles in groups that allow this.\nIf a number, prefetch only that many articles forward;\nif t, prefetch as many articles as possible." :type (choice (const :tag "off" nil) (const :tag "all" t) (integer :tag "some" 0)) #[0 "\300\207" [nil] 1 #1#] "If nil, inhibit all Gnus asynchronicity.\nIf non-nil, let the other asynch variables be heeded." boolean gnus-prefetched-article-deletion-strategy #[0 "\300\207" [(read exit)] 1 #1#] "List of symbols that say when to remove articles from the prefetch buffer.\nPossible values in this list are `read', which means that\narticles are removed as they are read, and `exit', which means\nthat all articles belonging to a group are removed on exit\nfrom that group." (set (const read) (const exit)) gnus-use-header-prefetch #[0 "\300\207" [nil] 1 #1#] "If non-nil, prefetch the headers to the next group." gnus-async-prefetch-article-p #[0 "\300\207" [gnus-async-unread-p] 1 #1#] "Function called to say whether an article should be prefetched or not.\nThe function is called with one parameter -- the article data.\nIt should return non-nil if the article is to be prefetched." gnus-async-post-fetch-function #[0 "\300\207" [ignore] 1 #1#] "Function called after an article has been prefetched.\nThe function will be called narrowed to the region of the article\nthat was fetched." :version "27.1"] 8)
(defvar gnus-async-prefetch-article-buffer " *Async Prefetch Article*")
(defvar gnus-async-article-alist nil)
(defvar gnus-async-article-semaphore '(nil))
(defvar gnus-async-fetch-list nil)
(defvar gnus-async-current-prefetch-group nil)
(defvar gnus-async-current-prefetch-article nil)
(defvar gnus-async-timer nil)
(defvar gnus-async-prefetch-headers-buffer " *Async Prefetch Headers*")
(defvar gnus-async-header-prefetched nil)
#@86 Say whether GROUP is fetched from a server that supports asynchronicity.

(fn GROUP)
(defalias 'gnus-group-asynchronous-p #[257 "\300\301!!\207" [gnus-asynchronous-p gnus-find-method-for-group] 4 (#$ . 2422)])
#@51 Wait until SEMAPHORE is released.

(fn SEMAPHORE)
(defalias 'gnus-async-get-semaphore #[257 "\211J\300C\244G\301U?\205\302\303!\210\202\207" [nil 2 sleep-for 1] 3 (#$ . 2639)])
#@36 Release SEMAPHORE.

(fn SEMAPHORE)
(defalias 'gnus-async-release-semaphore #[257 "\211J\300\241\207" [nil] 3 (#$ . 2826)])
#@20 

(fn &rest FORMS)
(defalias 'gnus-async-with-semaphore '(macro . #[128 "\300\301\302BB\303BB\207" [unwind-protect progn (gnus-async-get-semaphore 'gnus-async-article-semaphore) ((gnus-async-release-semaphore 'gnus-async-article-semaphore))] 5 (#$ . 2955)]))
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\310\311\"\207" [function-put gnus-async-with-semaphore lisp-indent-function 0 put edebug-form-spec t gnus-add-shutdown gnus-async-close gnus] 5)
(defalias 'gnus-async-close #[0 "\211\211\205\304\305!\211\262!\205\211\262
\203\306
!\210\307 \210\210	\211\211\2051\304\305!\211\262!\2051\211\262
\203=\306
!\210\307 \210\210\310\211\211\207" [gnus-async-prefetch-article-buffer gnus-async-prefetch-headers-buffer gnus-async-article-alist gnus-async-header-prefetched buffer-live-p get-buffer kill-buffer gnus-prune-buffers nil] 6])
(defalias 'gnus-async-set-buffer #[0 "\301\302\"\207" [gnus-async-prefetch-article-buffer nnheader-set-temp-buffer t] 3])
#@19 Stop prefetching.
(defalias 'gnus-async-halt-prefetch #[0 "\301\211\207" [gnus-async-fetch-list nil] 2 (#$ . 3945)])
#@105 Possibly prefetch several articles starting with the article after ARTICLE.

(fn GROUP ARTICLE SUMMARY)
(defalias 'gnus-async-prefetch-next #[771 "\211\211\205\304\305!\211\262!\205\211\262
\205V\205V\306!\205Vr	q\210\n\307\"
>\262
A@\211\205S\203D\3101C\311\303!0\210\202D\210\312\313\314\315\316$#\211\262
)\207" [gnus-asynchronous gnus-summary-buffer gnus-newsgroup-data gnus-async-timer buffer-live-p get-buffer gnus-group-asynchronous-p gnus-data-find-in (error) cancel-timer run-with-idle-timer 0.1 nil make-closure #[0 "\304\305\300\302@\301#)\207" [V0 V1 V2 inhibit-quit nil gnus-async-prefetch-article] 4]] 12 (#$ . 4070)])
#@102 Possibly prefetch several articles starting with ARTICLE.

(fn GROUP ARTICLE SUMMARY &optional NEXT)
(defalias 'gnus-async-prefetch-article #[1027 "
\211\205\306\307!\211\262!\205\211\262
\204!\310\216\311\312!\210\313\211)\207	\205\f
\314 \205\f
\211\203:\315\216\311\312!\210\210A)\211\316!\205\n
\211\205R\306\307!\211\262!\205R\211\262
\205\n

\203_\205\n
\317\216\311\312!\210
\204\300?\262
\313\n\320\"
>\262
\313
\211A\262\242\211\262\203\273\247\203\226\321S\211\262!\202\227\203\273\322@\211\262\n\"\204{\321!\203{\f
!\203{B\202{\237\266\211\203\310@\262)\211\205\n
\205\n
rq\210\313\323 \210db\210\324 \262
\325%\307
!\326\327\330	$\210\331\"*\262
)\262
\207" [gnus-async-fetch-list gnus-asynchronous gnus-use-article-prefetch gnus-newsgroup-data gnus-async-prefetch-article-p gnus-async-prefetch-article-buffer buffer-live-p get-buffer #[0 "\300\301!\207" [gnus-async-release-semaphore gnus-async-article-semaphore] 2] gnus-async-get-semaphore gnus-async-article-semaphore nil gnus-alive-p #[0 "\300\301!\207" [gnus-async-release-semaphore gnus-async-article-semaphore] 2] gnus-group-asynchronous-p #[0 "\300\301!\207" [gnus-async-release-semaphore gnus-async-article-semaphore] 2] gnus-data-find-in natnump gnus-async-prefetched-article-entry gnus-async-set-buffer point-marker gnus-make-async-article-function gnus-message 9 "Prefetching article %d in group %s" gnus-request-article nntp-server-buffer nnheader-callback-function gnus-async-current-prefetch-group gnus-async-current-prefetch-article] 12 (#$ . 4736)])
#@67 Return a callback function.

(fn GROUP ARTICLE MARK SUMMARY NEXT)
(defalias 'gnus-make-async-article-function #[1285 "\300\301&\207" [make-closure #[257 "\305
\300\301\302\303\304&\207" [V0 V1 V2 V3 V4 gnus-async-article-callback] 8 "\n\n(fn ARG)"]] 12 (#$ . 6355)])
#@104 Function called when an async article is done being fetched.

(fn ARG GROUP ARTICLE MARK SUMMARY NEXT)
(defalias 'gnus-async-article-callback #[1542 "\212\306\203W\307 \210\212\214d}\210	\203*\n\203*\310!\203*\214d}\210\311\"\210)\312\313!\2034\313!\210\203<!\210*\314\216\315\316!\210\317\320#\321 \257\fB)
\211\205h\322\323!\211\262!\205h\211\262
\204z\324\216\315\316!\210\306\211)\202\200\325\326$)\207" [gnus-async-current-prefetch-article gnus-agent gnus-agent-eagerly-store-articles gnus-async-post-fetch-function gnus-async-article-alist gnus-async-fetch-list nil gnus-async-set-buffer gnus-agent-group-covered-p gnus-agent-store-article fboundp gnus-html-prefetch-images #[0 "\300\301!\207" [gnus-async-release-semaphore gnus-async-article-semaphore] 2] gnus-async-get-semaphore gnus-async-article-semaphore format "%s-%d" point-max-marker buffer-live-p get-buffer #[0 "\300\301!\207" [gnus-async-release-semaphore gnus-async-article-semaphore] 2] gnus-async-prefetch-article t] 11 (#$ . 6641)])
#@65 Return non-nil if DATA represents an unread article.

(fn DATA)
(defalias 'gnus-async-unread-p #[257 "\211A@U\207" [gnus-unread-mark] 3 (#$ . 7691)])
#@89 See whether we have ARTICLE from GROUP and put it in BUFFER.

(fn GROUP ARTICLE BUFFER)
(defalias 'gnus-async-request-fetched-article #[771 "
\247\205:\232\203
	=\203\303!\210\304\"\211\2058\212\305 \210\306A@AA@#\210\307\n>\2036\310
!\210)\311\262
\207" [gnus-async-current-prefetch-group gnus-async-current-prefetch-article gnus-prefetched-article-deletion-strategy gnus-async-wait-for-article gnus-async-prefetched-article-entry gnus-async-set-buffer copy-to-buffer read gnus-async-delete-prefetched-entry t] 8 (#$ . 7848)])
#@84 Wait until ARTICLE is no longer the currently-being-fetched article.

(fn ARTICLE)
(defalias 'gnus-async-wait-for-article #[257 "\212\304 \210p
;\203\305!\202
\306\211\2036\211A\262\242\211\262\2036
A@=\203\211@\262\306\262\202
\205T\307!\310>\203H
\266\205\202V\311\312!!\210\313
\"\306\266\205p\306\314
\205\247\3151\221=\205\214\211T\262
\316!\203x\314\262
	\204e\211\317U\203e\320\321\322\"\210\323\202e0\210\202\237\210\211\317V\203\232\306\324\325\306\"\210	\205\247\320\321\326\"*\266\204)\207" [nntp-connection-alist nntp-have-messaged nntp-server-buffer gnus-async-current-prefetch-article gnus-async-set-buffer get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq 0 (quit) nntp-accept-process-output 3 gnus-message 5 "Waiting for async article..." t signal quit ""] 9 (#$ . 8397)])
#@49 Delete ENTRY from buffer and alist.

(fn ENTRY)
(defalias 'gnus-async-delete-prefetched-entry #[257 "\3011 \211A@
AA@|\210\211A@\302\211\223\210\211AA@\302\211\2230\210\202!\210\303\216\304\305!\210\306
\"\211)\207" [gnus-async-article-alist (error) nil #[0 "\300\301!\207" [gnus-async-release-semaphore gnus-async-article-semaphore] 2] gnus-async-get-semaphore gnus-async-article-semaphore delete] 4 (#$ . 9265)])
#@78 Remove all articles belonging to GROUP from the prefetch buffer.

(fn GROUP)
(defalias 'gnus-async-prefetch-remove-group #[257 "\302
!\205-\303>\205-\212\304 \210	\211\205*\211@\3058\232\203#\306
!\210
A\266\202\202\262
)\207" [gnus-prefetched-article-deletion-strategy gnus-async-article-alist gnus-group-asynchronous-p exit gnus-async-set-buffer 3 gnus-async-delete-prefetched-entry] 6 (#$ . 9690)])
#@86 Return the entry for ARTICLE in GROUP if it has been prefetched.

(fn GROUP ARTICLE)
(defalias 'gnus-async-prefetched-article-entry #[514 "\212\301 \210\302\303\304#\")\211\203;\211A@
AA@U\203;\30513\211A@\306\211\223\210\211AA@\306\211\2230\210\2024\210\307
\"\306\207\207" [gnus-async-article-alist gnus-async-set-buffer assoc format "%s-%d" (error) nil delete] 7 (#$ . 10107)])
#@51 Prefetch the headers for group GROUP.

(fn GROUP)
(defalias 'gnus-async-prefetch-headers #[257 "\212\306C\2058	\2058\307!\2058\n<\2058\211\310!\240\2058\311\312\311\"\210\313 \210p\314\315#\316
\242#*\262
)\207" [gnus-use-header-prefetch gnus-asynchronous gnus-async-header-prefetched gnus-async-prefetch-headers-buffer nnheader-callback-function nntp-server-buffer nil gnus-group-asynchronous-p gnus-list-of-unread-articles t nnheader-set-temp-buffer erase-buffer make-closure #[257 "\300\301\242B\211\207" [V0 V1 gnus-async-header-prefetched] 3 "\n\n(fn ARG)"] gnus-retrieve-headers gnus-fetch-old-headers] 7 (#$ . 10503)])
#@62 See whether we have prefetched headers.

(fn ARTICLES GROUP)
(defalias 'gnus-async-retrieve-fetched-headers #[514 "\2053\304
!\2053	<\2053\211	@\232\2053
	A\232\2053\212\305\n\306\"\210\307 \210\310ed#\210\311 \210\312)\306\207" [gnus-use-header-prefetch gnus-async-header-prefetched gnus-async-prefetch-headers-buffer nntp-server-buffer gnus-group-asynchronous-p nnheader-set-temp-buffer t nntp-decode-text copy-to-buffer erase-buffer nil] 6 (#$ . 11153)])
(provide 'gnus-async)