%PDF-
%PDF-
Mini Shell
Mini Shell
;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\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] "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] "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] "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] "If non-nil, prefetch the headers to the next group." gnus-async-prefetch-article-p #[0 "\300\207" [gnus-async-unread-p] 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] "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 (#$ . 2720)])
#@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 (#$ . 2937)])
#@36 Release SEMAPHORE.
(fn SEMAPHORE)
(defalias 'gnus-async-release-semaphore #[257 "\211J\300\241\207" [nil] 3 (#$ . 3124)])
#@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 (#$ . 3253)]))
(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 \305\306 !\211!\205 )\203 \307!\210\310 \210\210\n\211\211\2050 \305\306 !\211!\2050 )\203; \307!\210\310 \210\210\311\211\211\207" [gnus-async-prefetch-article-buffer 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] 5])
(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 (#$ . 4231)])
#@105 Possibly prefetch several articles starting with the article after ARTICLE.
(fn GROUP ARTICLE SUMMARY)
(defalias 'gnus-async-prefetch-next #[771 "\211\211\205 \305\306!\211!\205 )\205_ \205_ \307!\205_ r\nq\210 \310\">\262A@\211\205\\ \f\203F \3111A \312\304!0\202E \210\202F \210\313\314\315\316\317\320\321\322 \n\n#\323\"\324$#\211\262)\207" [buffer 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-byte-code 0 "\304\305\300\302@\301#)\207" vconcat vector [inhibit-quit nil gnus-async-prefetch-article] 4] 15 (#$ . 4356)])
#@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!\205 )\204 \310\216\311\312!\210\313\211)\207\n\205\314 \205\211\2039 \315\216\311\312!\210 \210 A)\211\316\317!\205\211\205S \306\307!\211!\205S )\205\203_ \205\320\216\311\312!\210\204\300 ?\262\313 \f\321\">\262\313\211A\262\242\211\262\203\273 \247\203\226 \322S\211\262!\202\227 \203\273 \323 @\211\262 \"\204{ \322!\203{
!\203{ B\202{ \237\266\203\310 @\262)\205\205rq\210\313\324 \210db\210\325 \262\326%\307! \203 \327\330\331\n$\210 \332\"*\262)\266\202\207" [buffer gnus-async-fetch-list gnus-asynchronous gnus-use-article-prefetch gnus-newsgroup-data gnus-async-prefetch-article-p 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] t 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 gnus-async-prefetch-article-buffer nntp-server-buffer nnheader-callback-function gnus-async-current-prefetch-group gnus-async-current-prefetch-article] 14 (#$ . 5057)])
#@67 Return a callback function.
(fn GROUP ARTICLE MARK SUMMARY NEXT)
(defalias 'gnus-make-async-article-function #[1285 "\300\301\302\303\304 %\305\"\306\307%\207" [make-byte-code 257 "\305\300\301\302\303\304&\207" vconcat vector [gnus-async-article-callback] 8 "\n\n(fn ARG)"] 15 (#$ . 6670)])
#@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\203S \307 \210\212\214d}\210 \203& \310!\203& \214d}\210\311\"\210)\312\313!\2030 \313!\210\n\2038 \n!\210*\314\216\315\316!\210\317\320#\321 \257 B)\211 \205d \322\323\f!\211!\205d \f)\204u \324\216\315\316!\210\306\211)\202{ \325\326$)\207" [gnus-async-current-prefetch-article gnus-agent gnus-async-post-fetch-function gnus-async-article-alist buffer 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] 12 (#$ . 6981)])
#@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 (#$ . 7986)])
#@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 (#$ . 8143)])
#@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 \205R \307!\310>\203F \202R \311\312!!\210\313\"\306\266\204\262p\306\314\205\246 \3151\220 =\205\214 \211T\262\316!\203x \314\262 \204e \211\317U\203e \320\321\322\"\210\323\202e 0\202\235 \210\211\317V\203\231 \306\324\325\306\"\210 \205\246 \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 (#$ . 8692)])
#@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\202# \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 (#$ . 9553)])
#@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!\210A\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 (#$ . 9984)])
#@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@ \30512 \211A@\306\211\223\210\211AA@\306\211\2230\2026 \210\2027 \210\307\"\306\202A \211\207" [gnus-async-article-alist gnus-async-set-buffer assoc format "%s-%d" (error) nil delete] 7 (#$ . 10401)])
#@51 Prefetch the headers for group GROUP.
(fn GROUP)
(defalias 'gnus-async-prefetch-headers #[257 "\212\306C\205B \205B \307!\205B \n<\205B \211\310!\240\205B \311\312 \311\"\210\313 \210p\314\315\316\317\320\"\321\"\322\323% \324\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-byte-code 257 "\300\301\242B\211\207" vconcat vector [gnus-async-header-prefetched] 3 "\n\n(fn ARG)" gnus-retrieve-headers gnus-fetch-old-headers] 10 (#$ . 10809)])
#@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\310 ed#\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 (#$ . 11498)])
(provide 'gnus-async)
Zerion Mini Shell 1.0