Gecko [ 122.154.134.11 ]

Name	Size	Permission
auth-source.elc	5.49 KB	-rw-r--r--
canlock.elc	6.03 KB	-rw-r--r--
compface.elc	1.35 KB	-rw-r--r--
deuglify.elc	8.31 KB	-rw-r--r--
earcon.elc	5.67 KB	-rw-r--r--
ecomplete.elc	4.45 KB	-rw-r--r--
flow-fill.elc	4.57 KB	-rw-r--r--
gmm-utils.elc	7.68 KB	-rw-r--r--
gnus-agent.elc	122.37 KB	-rw-r--r--
gnus-art.elc	258.37 KB	-rw-r--r--
gnus-async.elc	12.09 KB	-rw-r--r--
gnus-audio.elc	2.48 KB	-rw-r--r--
gnus-bcklg.elc	3.67 KB	-rw-r--r--
gnus-bookmark.elc	24.54 KB	-rw-r--r--
gnus-cache.elc	26.11 KB	-rw-r--r--
gnus-cite.elc	27.6 KB	-rw-r--r--
gnus-cus.elc	38.4 KB	-rw-r--r--
gnus-delay.elc	4.98 KB	-rw-r--r--
gnus-demon.elc	8.65 KB	-rw-r--r--
gnus-diary.elc	9 KB	-rw-r--r--
gnus-dired.elc	6.56 KB	-rw-r--r--
gnus-draft.elc	10.7 KB	-rw-r--r--
gnus-dup.elc	4.77 KB	-rw-r--r--
gnus-eform.elc	3.68 KB	-rw-r--r--
gnus-ems.elc	7.21 KB	-rw-r--r--
gnus-fun.elc	8.91 KB	-rw-r--r--
gnus-group.elc	155.85 KB	-rw-r--r--
gnus-int.elc	51.53 KB	-rw-r--r--
gnus-kill.elc	18.37 KB	-rw-r--r--
gnus-logic.elc	5.2 KB	-rw-r--r--
gnus-mh.elc	2.89 KB	-rw-r--r--
gnus-ml.elc	5.22 KB	-rw-r--r--
gnus-mlspl.elc	6.37 KB	-rw-r--r--
gnus-move.elc	3.63 KB	-rw-r--r--
gnus-msg.elc	84.07 KB	-rw-r--r--
gnus-nocem.elc	12.08 KB	-rw-r--r--
gnus-picon.elc	8.63 KB	-rw-r--r--
gnus-range.elc	11.92 KB	-rw-r--r--
gnus-registry.elc	32.46 KB	-rw-r--r--
gnus-salt.elc	29.77 KB	-rw-r--r--
gnus-score.elc	76.25 KB	-rw-r--r--
gnus-setup.elc	5.01 KB	-rw-r--r--
gnus-sieve.elc	8.54 KB	-rw-r--r--
gnus-soup.elc	16.29 KB	-rw-r--r--
gnus-spec.elc	17 KB	-rw-r--r--
gnus-srvr.elc	43.88 KB	-rw-r--r--
gnus-start.elc	142.13 KB	-rw-r--r--
gnus-sum.elc	406.63 KB	-rw-r--r--
gnus-topic.elc	46.81 KB	-rw-r--r--
gnus-undo.elc	4.07 KB	-rw-r--r--
gnus-util.elc	48.22 KB	-rw-r--r--
gnus-uu.elc	57.87 KB	-rw-r--r--
gnus-vm.elc	2.63 KB	-rw-r--r--
gnus-win.elc	12.56 KB	-rw-r--r--
gnus.elc	158.49 KB	-rw-r--r--
html2text.elc	10.59 KB	-rw-r--r--
ietf-drums.elc	7.85 KB	-rw-r--r--
legacy-gnus-agent.elc	6.67 KB	-rw-r--r--
mail-parse.elc	2.44 KB	-rw-r--r--
mail-prsvr.elc	1.29 KB	-rw-r--r--
mail-source.elc	30.28 KB	-rw-r--r--
mailcap.elc	25.11 KB	-rw-r--r--
message.elc	223.29 KB	-rw-r--r--
messcompat.elc	2.83 KB	-rw-r--r--
mm-bodies.elc	6.06 KB	-rw-r--r--
mm-decode.elc	46.1 KB	-rw-r--r--
mm-encode.elc	5.96 KB	-rw-r--r--
mm-extern.elc	4.65 KB	-rw-r--r--
mm-partial.elc	3.44 KB	-rw-r--r--
mm-url.elc	9.94 KB	-rw-r--r--
mm-util.elc	39.83 KB	-rw-r--r--
mm-uu.elc	18.57 KB	-rw-r--r--
mm-view.elc	17.58 KB	-rw-r--r--
mml-sec.elc	12.58 KB	-rw-r--r--
mml-smime.elc	14.58 KB	-rw-r--r--
mml.elc	40.35 KB	-rw-r--r--
mml1991.elc	14.71 KB	-rw-r--r--
mml2015.elc	41.93 KB	-rw-r--r--
nnagent.elc	10.86 KB	-rw-r--r--
nnbabyl.elc	17.45 KB	-rw-r--r--
nndb.elc	29.58 KB	-rw-r--r--
nndiary.elc	39.38 KB	-rw-r--r--
nndir.elc	3.2 KB	-rw-r--r--
nndoc.elc	28.12 KB	-rw-r--r--
nndraft.elc	9.95 KB	-rw-r--r--
nneething.elc	11.98 KB	-rw-r--r--
nnfolder.elc	38.93 KB	-rw-r--r--
nngateway.elc	3.1 KB	-rw-r--r--
nnheader.elc	30.94 KB	-rw-r--r--
nnimap.elc	61.12 KB	-rw-r--r--
nnir.elc	45.26 KB	-rw-r--r--
nnkiboze.elc	11.79 KB	-rw-r--r--
nnlistserv.elc	4.42 KB	-rw-r--r--
nnmail.elc	52.92 KB	-rw-r--r--
nnmaildir.elc	98.94 KB	-rw-r--r--
nnmairix.elc	72.84 KB	-rw-r--r--
nnmbox.elc	19.03 KB	-rw-r--r--
nnmh.elc	15.64 KB	-rw-r--r--
nnml.elc	45.05 KB	-rw-r--r--
nnnil.elc	1.94 KB	-rw-r--r--
nnoo.elc	8.95 KB	-rw-r--r--
nnrss.elc	33.15 KB	-rw-r--r--
nnslashdot.elc	16.43 KB	-rw-r--r--
nnsoup.elc	21.22 KB	-rw-r--r--
nnspool.elc	15.55 KB	-rw-r--r--
nntp.elc	135.97 KB	-rw-r--r--
nnultimate.elc	13.85 KB	-rw-r--r--
nnvirtual.elc	18.99 KB	-rw-r--r--
nnwarchive.elc	21.92 KB	-rw-r--r--
nnweb.elc	18.3 KB	-rw-r--r--
nnwfm.elc	12.56 KB	-rw-r--r--
pop3.elc	13.01 KB	-rw-r--r--
qp.elc	4.12 KB	-rw-r--r--
rfc1843.elc	5.74 KB	-rw-r--r--
rfc2045.elc	1.01 KB	-rw-r--r--
rfc2047.elc	25.24 KB	-rw-r--r--
rfc2104.elc	1.71 KB	-rw-r--r--
rfc2231.elc	6.9 KB	-rw-r--r--
score-mode.elc	3.56 KB	-rw-r--r--
sieve-manage.elc	19.88 KB	-rw-r--r--
sieve-mode.elc	7.1 KB	-rw-r--r--
sieve.elc	10.77 KB	-rw-r--r--
smiley.elc	5.37 KB	-rw-r--r--
smime.elc	18.81 KB	-rw-r--r--
spam-report.elc	11.77 KB	-rw-r--r--
spam-stat.elc	19.88 KB	-rw-r--r--
spam-wash.elc	1.43 KB	-rw-r--r--
spam.elc	87.54 KB	-rw-r--r--
starttls.elc	6.63 KB	-rw-r--r--
utf7.elc	6.08 KB	-rw-r--r--
webmail.elc	28.79 KB	-rw-r--r--
yenc.elc	3.85 KB	-rw-r--r--

Code Editor : gnus-async.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:18 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/gnus/gnus-async.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`gnus-async.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\301%\207" [require gnus gnus-sum nntp custom-declare-group gnus-asynchronous nil "Support for asynchronous operations." :group] 6)
#@159 *If non-nil, prefetch articles in groups that allow this.
If a number, prefetch only that many articles forward;
if t, prefetch as many articles as possible.
(custom-declare-variable 'gnus-use-article-prefetch '30 '(#$ . -820) :group 'gnus-asynchronous :type '(choice (const :tag "off" nil) (const :tag "all" t) (integer :tag "some" 0)))
#@97 *If nil, inhibit all Gnus asynchronicity.
If non-nil, let the other asynch variables be heeded.
(custom-declare-variable 'gnus-asynchronous 'nil '(#$ . -1164) :group 'gnus-asynchronous :type 'boolean)
#@273 List of symbols that say when to remove articles from the prefetch buffer.
Possible values in this list are `read', which means that
articles are removed as they are read, and `exit', which means
that all articles belonging to a group are removed on exit
from that group.
(custom-declare-variable 'gnus-prefetched-article-deletion-strategy ''(read exit) '(#$ . 1372) :group 'gnus-asynchronous :type '(set (const read) (const exit)))
#@54 *If non-nil, prefetch the headers to the next group.
(custom-declare-variable 'gnus-use-header-prefetch 'nil '(#$ . -1811) :group 'gnus-asynchronous :type 'boolean)
#@196 Function called to say whether an article should be prefetched or not.
The function is called with one parameter -- the article data.
It should return non-nil if the article is to be prefetched.
(custom-declare-variable 'gnus-async-prefetch-article-p ''gnus-async-unread-p '(#$ . 1983) :group 'gnus-asynchronous :type 'function)
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\306\"\210\307B\302\307!\204-�\303\307\310\"\210\311B\302\311!\204<�\303\311\306\"\210\312B\302\312!\204K�\303\312\306\"\210\313B\302\313!\204Z�\303\313\306\"\210\314B\302\314!\204i�\303\314\306\"\210\315B\302\315!\204x�\303\315\306\"\210\316B\302\316!\204\207�\303\316\317\"\210\320B\302\320!\204\226�\303\320\306\"\210\306\207" [current-load-list gnus-async-prefetch-article-buffer default-boundp set-default " *Async Prefetch Article*" gnus-async-article-alist nil gnus-async-article-semaphore (nil) gnus-async-fetch-list gnus-async-hashtb gnus-async-current-prefetch-group gnus-async-current-prefetch-article gnus-async-timer gnus-async-prefetch-headers-buffer " *Async Prefetch Headers*" gnus-async-header-prefetched] 3)
#@74 Say whether GROUP is fetched from a server that supports asynchronicity.
(defalias 'gnus-group-asynchronous-p #[(group) "\301\302!!\207" [group gnus-asynchronous-p gnus-find-method-for-group] 3 (#$ . 3142)])
#@35 Wait until SEMAPHORE is released.
(defalias 'gnus-async-get-semaphore #[(semaphore) "J\301C\244G\302U?\205�\303\304!\210\202��\207" [semaphore nil 2 sleep-for 1] 2 (#$ . 3357)])
#@20 Release SEMAPHORE.
(defalias 'gnus-async-release-semaphore #[(semaphore) "J\301\241\207" [semaphore nil] 2 (#$ . 3543)])
(defalias 'gnus-async-with-semaphore '(macro . #[(&rest forms) "\301\302\303BB\304BB\207" [forms unwind-protect progn (gnus-async-get-semaphore 'gnus-async-article-semaphore) ((gnus-async-release-semaphore 'gnus-async-article-semaphore))] 4]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\210\306\307\310\"\207" [put gnus-async-with-semaphore lisp-indent-function 0 edebug-form-spec (body) gnus-add-shutdown gnus-async-close gnus] 4)
(defalias 'gnus-async-close #[nil "\211\211\205�\n;\203�\306\202�\307\n!)\203#�\310\306	!\"\311	!\210)\f\211\211\2058�\n;\2035�\306\2026�\307\n!)\203G�\310\306	!\"\311	!\210)\312\211\312\211\f\207" [gnus-async-prefetch-article-buffer buf buffer gnus-buffers gnus-async-prefetch-headers-buffer gnus-async-hashtb get-buffer buffer-name delete kill-buffer nil gnus-async-article-alist gnus-async-header-prefetched] 4])
(defalias 'gnus-async-set-buffer #[nil "\302\303\"\210	?\205�\304\305!\211\207" [gnus-async-prefetch-article-buffer gnus-async-hashtb nnheader-set-temp-buffer t gnus-make-hashtable 1023] 3])
#@19 Stop prefetching.
(defalias 'gnus-async-halt-prefetch #[nil "\301\211\207" [gnus-async-fetch-list nil] 2 (#$ . 4738)])
#@77 Possibly prefetch several articles starting with the article after ARTICLE.
(defalias 'gnus-async-prefetch-next #[(group article summary) "\306!\205Q�	\205Q�\307\n!\205Q�\212q\210\f
\236
>)\211A@)@\211\205P�\310\311!\2049�\312\n#\202P�\203C�\313\314\315\217\210\311\316\313\312\n&\211*\207" [summary gnus-asynchronous group gnus-summary-buffer gnus-newsgroup-data bdata gnus-buffer-live-p gnus-group-asynchronous-p fboundp run-with-idle-timer gnus-async-prefetch-article nil (byte-code "\300\301!\207" [nnheader-cancel-timer gnus-async-timer] 2) ((error)) 0.1 article x next gnus-async-timer] 8 (#$ . 4864)])
#@59 Possibly prefetch several articles starting with ARTICLE.
(defalias 'gnus-async-prefetch-article #[(group article summary &optional next) "\306!\204�\307\216\310\311!\210\312\211)\207\n\205\313 \205\203*�\314\216\310\311!\210	\210	A)\315\316!\205\306!\205\203C�	\205\317\216\310\311!\210\204\263�	?\312\236>)\312 ! \211A @\211\203\257�!\247\203\206�\320!S\211!!\202\210�!\203\257�\321@\211\"\204h�\320!\203h�\"!\203h�	B\202h�	\237+
\203\273�	@)
\205\205\212q\210\312#\322 \210db\210\323 #\324#%\325$!%&\f\203\365�\326\327\330$\210'(\331\",*\207" [summary gnus-async-fetch-list gnus-asynchronous next do-message do-fetch gnus-buffer-live-p ((byte-code "\300\301!\207" [gnus-async-release-semaphore gnus-async-article-semaphore] 2)) gnus-async-get-semaphore gnus-async-article-semaphore nil gnus-alive-p ((byte-code "\300\301!\207" [gnus-async-release-semaphore gnus-async-article-semaphore] 2)) t gnus-group-asynchronous-p ((byte-code "\300\301!\207" [gnus-async-release-semaphore gnus-async-article-semaphore] 2)) natnump gnus-async-prefetched-article-entry gnus-async-set-buffer point-marker gnus-make-async-article-function get-buffer gnus-message 9 "Prefetching article %d in group %s" gnus-request-article group gnus-use-article-prefetch gnus-newsgroup-data bdata article d data n gnus-async-prefetch-article-p mark gnus-async-prefetch-article-buffer nntp-server-buffer nnheader-callback-function gnus-async-current-prefetch-group gnus-async-current-prefetch-article] 6 (#$ . 5499)])
#@29 Return a callback function.
(defalias 'gnus-make-async-article-function #[(group article mark summary next) "\305\306\307\310	\n\f\257E\207" [group article mark summary next lambda (arg) gnus-async-article-callback arg] 9 (#$ . 7092)])
#@62 Function called when an async article is done being fetched.
(defalias 'gnus-async-article-callback #[(arg group article mark summary next) "\212\306	\203(�\307 \210\310\216\311\312!\210\313\314\315\n#\f\"
\316 d\306\223\n\257B)\317!\204=�\320\216\311\312!\210\306\211)\202E�\321\n\322$)\207" [gnus-async-current-prefetch-article arg group article gnus-async-hashtb mark nil gnus-async-set-buffer ((byte-code "\300\301!\207" [gnus-async-release-semaphore gnus-async-article-semaphore] 2)) gnus-async-get-semaphore gnus-async-article-semaphore intern format "%s-%d" make-marker gnus-buffer-live-p ((byte-code "\300\301!\207" [gnus-async-release-semaphore gnus-async-article-semaphore] 2)) gnus-async-prefetch-article t gnus-async-article-alist summary gnus-async-fetch-list next] 5 (#$ . 7337)])
#@54 Return non-nil if DATA represents an unread article.
(defalias 'gnus-async-unread-p #[(data) "A@	U\207" [data gnus-unread-mark] 2 (#$ . 8154)])
#@62 See whether we have ARTICLE from GROUP and put it in BUFFER.
(defalias 'gnus-async-request-fetched-article #[(group article buffer) "\247\205C�	\n\232\203�=\203�\306!\210\307	\"\211\205B�\212\310 \210\311
\f\211
A@)\f\211
AA)@#\210\312>\203@�\313\f!\210)\314)\207" [article group gnus-async-current-prefetch-group gnus-async-current-prefetch-article entry buffer gnus-async-wait-for-article gnus-async-prefetched-article-entry gnus-async-set-buffer copy-to-buffer read gnus-async-delete-prefetched-entry t x gnus-prefetched-article-deletion-strategy] 5 (#$ . 8305)])
#@70 Wait until ARTICLE is no longer the currently-being-fetched article.
(defalias 'gnus-async-wait-for-article #[(article) "\212\306 \210p	;\203�\307!\202�\310\211\f\203;�\f\211A@\211\203;�\n\211A@)=\203�\n@\310\211\204�\205W�\311!\312>\203K�\202W�\313\314!!\210\315\n	\"\310-p\310\316\211\205u�\310\317\320\217\210\205u�\321\322\323\"-\207" [buffer nntp-connection-alist entry process alist x gnus-async-set-buffer get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq 0 (byte-code "	=\203%�\nT\305!\203�\306\f\204��\n\307U\203��\310\311\312\"\210\313\202��\305\207" [article gnus-async-current-prefetch-article tries proc nntp-have-messaged nntp-accept-process-output 0 3 gnus-message 5 "Waiting for async article..." t] 3) ((quit (byte-code "\302V\203�\303\304\305\303\"\207" [tries gnus-async-current-prefetch-article 3 nil signal quit] 3))) gnus-message 5 "" tries nntp-have-messaged nntp-server-buffer proc] 5 (#$ . 8890)])
#@37 Delete ENTRY from buffer and alist.
(defalias 'gnus-async-delete-prefetched-entry #[(entry) "\302\303\304\217\210\305\216\306\307!\210\310	\"\211)\207" [entry gnus-async-article-alist nil (byte-code "\211A@)\211AA)@|\210\211A@)\302\211\223\210\211AA)@\302\211\223\207" [entry x nil] 4) ((error)) ((byte-code "\300\301!\207" [gnus-async-release-semaphore gnus-async-article-semaphore] 2)) gnus-async-get-semaphore gnus-async-article-semaphore delq] 3 (#$ . 9889)])
#@66 Remove all articles belonging to GROUP from the prefetch buffer.
(defalias 'gnus-async-prefetch-remove-group #[(group) "\305!\2050�\306	>\2050�\212\307 \210\n\310\211\203.�\f@\3118\232\203'�\312!\210\fA\211\204�+\310\207" [group gnus-prefetched-article-deletion-strategy gnus-async-article-alist entry #1=#:--cl-dolist-temp-- gnus-group-asynchronous-p exit gnus-async-set-buffer nil 3 gnus-async-delete-prefetched-entry] 4 (#$ . 10369)])
#@66 Return the entry for ARTICLE in GROUP if it has been prefetched.
(defalias 'gnus-async-prefetched-article-entry #[(group article) "\212\306 \210\307\310\311	#\n\"\236)\211\2033�\f\211A@)\f\211AA)@U\2033�\312\313\314\217\210\315\f\"\312\2024�\f)\207" [group article gnus-async-hashtb gnus-async-article-alist entry x gnus-async-set-buffer intern format "%s-%d" nil (byte-code "\211A@)\302\211\223\210\211AA)@\302\211\223\207" [entry x nil] 4) ((error)) delq] 6 (#$ . 10822)])
#@39 Prefetch the headers for group GROUP.
(defalias 'gnus-async-prefetch-headers #[(group) "\212\306	\205=�\n\205=�\307!\205=�\f<\205=�\310!\211\205=�\311\312
\311\"\210\313 \210p\314\315\316\304BEE\317#**\207" [unread gnus-use-header-prefetch gnus-asynchronous group gnus-async-header-prefetched gnus-async-prefetch-headers-buffer nil gnus-group-asynchronous-p gnus-list-of-unread-articles t nnheader-set-temp-buffer erase-buffer lambda (arg) setq gnus-retrieve-headers nnheader-callback-function nntp-server-buffer gnus-fetch-old-headers] 7 (#$ . 11314)])
#@41 See whether we have prefetched headers.
(defalias 'gnus-async-retrieve-fetched-headers #[(articles group) "\2053�\306	!\2053�\n<\2053�	\n@\232\2053�\nA\232\2053�\212\307\f\310\"\210\311 \210\312
ed#\210\313 \210\314)\310\207" [gnus-use-header-prefetch group gnus-async-header-prefetched articles 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] 4 (#$ . 11889)])
(provide 'gnus-async)

${this.title}

Code Editor : gnus-async.elc