Gecko [ goons4good.org ]

Name	Size	Permission	Date
.dir-locals.el	105 B	-rw-r--r--	2012-04-13 21:33
auth-source.elc	51.28 KB	-rw-r--r--	2023-06-07 04:09
canlock.elc	5.89 KB	-rw-r--r--	2023-06-07 04:09
compface.elc	1.34 KB	-rw-r--r--	2023-06-07 04:09
deuglify.elc	8.04 KB	-rw-r--r--	2023-06-07 04:09
ecomplete.elc	4.59 KB	-rw-r--r--	2023-06-07 04:09
flow-fill.elc	4.74 KB	-rw-r--r--	2023-06-07 04:09
gmm-utils.elc	7.46 KB	-rw-r--r--	2023-06-07 04:09
gnus-agent.elc	121.05 KB	-rw-r--r--	2023-06-07 04:09
gnus-art.elc	256.06 KB	-rw-r--r--	2023-06-07 04:09
gnus-async.elc	12.05 KB	-rw-r--r--	2023-06-07 04:09
gnus-bcklg.elc	3.42 KB	-rw-r--r--	2023-06-07 04:09
gnus-bookmark.elc	24.2 KB	-rw-r--r--	2023-06-07 04:09
gnus-cache.elc	25.68 KB	-rw-r--r--	2023-06-07 04:09
gnus-cite.elc	27.02 KB	-rw-r--r--	2023-06-07 04:09
gnus-cus.elc	38.53 KB	-rw-r--r--	2023-06-07 04:09
gnus-delay.elc	4.79 KB	-rw-r--r--	2023-06-07 04:09
gnus-demon.elc	7.77 KB	-rw-r--r--	2023-06-07 04:09
gnus-diary.elc	8.86 KB	-rw-r--r--	2023-06-07 04:09
gnus-dired.elc	7.65 KB	-rw-r--r--	2023-06-07 04:09
gnus-draft.elc	11.72 KB	-rw-r--r--	2023-06-07 04:09
gnus-dup.elc	4.45 KB	-rw-r--r--	2023-06-07 04:09
gnus-eform.elc	3.43 KB	-rw-r--r--	2023-06-07 04:09
gnus-ems.elc	5.94 KB	-rw-r--r--	2023-06-07 04:09
gnus-fun.elc	8.5 KB	-rw-r--r--	2023-06-07 04:09
gnus-gravatar.elc	4.09 KB	-rw-r--r--	2023-06-07 04:09
gnus-group.elc	151.52 KB	-rw-r--r--	2023-06-07 04:09
gnus-html.elc	14.29 KB	-rw-r--r--	2023-06-07 04:09
gnus-int.elc	63.73 KB	-rw-r--r--	2023-06-07 04:10
gnus-kill.elc	17.78 KB	-rw-r--r--	2023-06-07 04:10
gnus-logic.elc	5.07 KB	-rw-r--r--	2023-06-07 04:10
gnus-mh.elc	2.83 KB	-rw-r--r--	2023-06-07 04:10
gnus-ml.elc	5.57 KB	-rw-r--r--	2023-06-07 04:10
gnus-mlspl.elc	6.3 KB	-rw-r--r--	2023-06-07 04:10
gnus-msg.elc	85.35 KB	-rw-r--r--	2023-06-07 04:10
gnus-notifications.elc	5.29 KB	-rw-r--r--	2023-06-07 04:10
gnus-picon.elc	8.41 KB	-rw-r--r--	2023-06-07 04:10
gnus-range.elc	12.41 KB	-rw-r--r--	2023-06-07 04:10
gnus-registry.elc	31.31 KB	-rw-r--r--	2023-06-07 04:10
gnus-salt.elc	24.04 KB	-rw-r--r--	2023-06-07 04:10
gnus-score.elc	73.99 KB	-rw-r--r--	2023-06-07 04:10
gnus-setup.elc	4.95 KB	-rw-r--r--	2023-06-07 04:10
gnus-sieve.elc	8.35 KB	-rw-r--r--	2023-06-07 04:10
gnus-spec.elc	14.81 KB	-rw-r--r--	2023-06-07 04:10
gnus-srvr.elc	48.21 KB	-rw-r--r--	2023-06-07 04:10
gnus-start.elc	144.43 KB	-rw-r--r--	2023-06-07 04:10
gnus-sum.elc	414.15 KB	-rw-r--r--	2023-06-07 04:10
gnus-sync.elc	21.49 KB	-rw-r--r--	2023-06-07 04:10
gnus-topic.elc	46.05 KB	-rw-r--r--	2023-06-07 04:10
gnus-undo.elc	4.29 KB	-rw-r--r--	2023-06-07 04:10
gnus-util.elc	52.93 KB	-rw-r--r--	2023-06-07 04:10
gnus-uu.elc	55.72 KB	-rw-r--r--	2023-06-07 04:10
gnus-vm.elc	2.57 KB	-rw-r--r--	2023-06-07 04:10
gnus-win.elc	10.58 KB	-rw-r--r--	2023-06-07 04:10
gnus.elc	156.43 KB	-rw-r--r--	2023-06-07 04:10
gravatar.elc	4.26 KB	-rw-r--r--	2023-06-07 04:10
gssapi.elc	2.41 KB	-rw-r--r--	2023-06-07 04:10
html2text.elc	10.47 KB	-rw-r--r--	2023-06-07 04:10
ietf-drums.elc	7.64 KB	-rw-r--r--	2023-06-07 04:10
legacy-gnus-agent.elc	6.54 KB	-rw-r--r--	2023-06-07 04:10
mail-parse.elc	2.39 KB	-rw-r--r--	2023-06-07 04:10
mail-prsvr.elc	1.23 KB	-rw-r--r--	2023-06-07 04:10
mail-source.elc	28.49 KB	-rw-r--r--	2023-06-07 04:10
mailcap.elc	24.93 KB	-rw-r--r--	2023-06-07 04:10
message.elc	227.03 KB	-rw-r--r--	2023-06-07 04:10
messcompat.elc	2.69 KB	-rw-r--r--	2023-06-07 04:10
mm-archive.elc	2.85 KB	-rw-r--r--	2023-06-07 04:10
mm-bodies.elc	5.99 KB	-rw-r--r--	2023-06-07 04:10
mm-decode.elc	50.6 KB	-rw-r--r--	2023-06-07 04:10
mm-encode.elc	6.2 KB	-rw-r--r--	2023-06-07 04:10
mm-extern.elc	4.28 KB	-rw-r--r--	2023-06-07 04:10
mm-partial.elc	3.37 KB	-rw-r--r--	2023-06-07 04:10
mm-url.elc	8.73 KB	-rw-r--r--	2023-06-07 04:10
mm-util.elc	39.65 KB	-rw-r--r--	2023-06-07 04:10
mm-uu.elc	18.9 KB	-rw-r--r--	2023-06-07 04:10
mm-view.elc	18.51 KB	-rw-r--r--	2023-06-07 04:10
mml-sec.elc	12.41 KB	-rw-r--r--	2023-06-07 04:10
mml-smime.elc	14.44 KB	-rw-r--r--	2023-06-07 04:10
mml.elc	42.01 KB	-rw-r--r--	2023-06-07 04:10
mml1991.elc	11.5 KB	-rw-r--r--	2023-06-07 04:10
mml2015.elc	33.95 KB	-rw-r--r--	2023-06-07 04:10
nnagent.elc	10.93 KB	-rw-r--r--	2023-06-07 04:10
nnbabyl.elc	17.15 KB	-rw-r--r--	2023-06-07 04:10
nndiary.elc	39.54 KB	-rw-r--r--	2023-06-07 04:10
nndir.elc	2.95 KB	-rw-r--r--	2023-06-07 04:11
nndoc.elc	30.11 KB	-rw-r--r--	2023-06-07 04:11
nndraft.elc	10.94 KB	-rw-r--r--	2023-06-07 04:11
nneething.elc	11.83 KB	-rw-r--r--	2023-06-07 04:11
nnfolder.elc	32.19 KB	-rw-r--r--	2023-06-07 04:11
nngateway.elc	3.04 KB	-rw-r--r--	2023-06-07 04:11
nnheader.elc	31.94 KB	-rw-r--r--	2023-06-07 04:11
nnimap.elc	68.59 KB	-rw-r--r--	2023-06-07 04:11
nnir.elc	56.96 KB	-rw-r--r--	2023-06-07 04:11
nnmail.elc	53.02 KB	-rw-r--r--	2023-06-07 04:11
nnmaildir.elc	97.58 KB	-rw-r--r--	2023-06-07 04:11
nnmairix.elc	72.67 KB	-rw-r--r--	2023-06-07 04:11
nnmbox.elc	18.82 KB	-rw-r--r--	2023-06-07 04:11
nnmh.elc	15.52 KB	-rw-r--r--	2023-06-07 04:11
nnml.elc	39.81 KB	-rw-r--r--	2023-06-07 04:11
nnnil.elc	1.77 KB	-rw-r--r--	2023-06-07 04:11
nnoo.elc	8.72 KB	-rw-r--r--	2023-06-07 04:11
nnregistry.elc	1.85 KB	-rw-r--r--	2023-06-07 04:11
nnrss.elc	30.01 KB	-rw-r--r--	2023-06-07 04:11
nnspool.elc	15.88 KB	-rw-r--r--	2023-06-07 04:11
nntp.elc	121.29 KB	-rw-r--r--	2023-06-07 04:11
nnvirtual.elc	18.42 KB	-rw-r--r--	2023-06-07 04:11
nnweb.elc	17.61 KB	-rw-r--r--	2023-06-07 04:11
plstore.elc	14.75 KB	-rw-r--r--	2023-06-07 04:11
pop3.elc	14.53 KB	-rw-r--r--	2023-06-07 04:11
qp.elc	4.35 KB	-rw-r--r--	2023-06-07 04:11
registry.elc	9.3 KB	-rw-r--r--	2023-06-07 04:11
rfc1843.elc	5.35 KB	-rw-r--r--	2023-06-07 04:11
rfc2045.elc	971 B	-rw-r--r--	2023-06-07 04:11
rfc2047.elc	24.75 KB	-rw-r--r--	2023-06-07 04:11
rfc2104.elc	1.43 KB	-rw-r--r--	2023-06-07 04:11
rfc2231.elc	6.84 KB	-rw-r--r--	2023-06-07 04:11
rtree.elc	4.3 KB	-rw-r--r--	2023-06-07 04:11
score-mode.elc	3.32 KB	-rw-r--r--	2023-06-07 04:11
shr-color.elc	9.11 KB	-rw-r--r--	2023-06-07 04:11
shr.elc	33.2 KB	-rw-r--r--	2023-06-07 04:11
sieve-manage.elc	17.1 KB	-rw-r--r--	2023-06-07 04:11
sieve-mode.elc	7.73 KB	-rw-r--r--	2023-06-07 04:11
sieve.elc	11.08 KB	-rw-r--r--	2023-06-07 04:11
smiley.elc	5.39 KB	-rw-r--r--	2023-06-07 04:11
smime.elc	19.61 KB	-rw-r--r--	2023-06-07 04:11
spam-report.elc	11.53 KB	-rw-r--r--	2023-06-07 04:11
spam-stat.elc	19.64 KB	-rw-r--r--	2023-06-07 04:11
spam-wash.elc	1.37 KB	-rw-r--r--	2023-06-07 04:11
spam.elc	83.9 KB	-rw-r--r--	2023-06-07 04:11
starttls.elc	6.42 KB	-rw-r--r--	2023-06-07 04:11
utf7.elc	5.83 KB	-rw-r--r--	2023-06-07 04:11
yenc.elc	3.62 KB	-rw-r--r--	2023-06-07 04:11

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:10:19 2023
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-range.el
;;; in Emacs version 24.3.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.

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

#@87 Normalize RANGE.
If RANGE is a single range, return (RANGE). Otherwise, return RANGE.
(defalias 'gnus-range-normalize #[(range) "\243<\203�\207C\207" [range] 1 (#$ . 554)])
(put 'gnus-range-normalize 'byte-optimizer 'byte-compile-inline-expand)
#@30 Return last element of LIST.
(defalias 'gnus-last-element #[(list) "A\203\f�A\211\202�@\207" [list] 2 (#$ . 809)])
#@38 Do a complete, total copy of a list.
(defalias 'gnus-copy-sequence #[(list) "\302	:\203%�	@:\203�\303	\211A@!B\202�	\211A@B\202�	\2030�\237	\244\2022�\237)\207" [out list nil gnus-copy-sequence] 3 (#$ . 935)])
#@65 Return a list of elements of LIST1 that do not appear in LIST2.
(defalias 'gnus-set-difference #[(list1 list2) "\306\307\310\"\311\n\311\211\203�\f@\312\313	#\210\fA\211\204�*
\311\211\203=�\f@\314	\"\2046�B\fA\211\204(�*\237*\207" [result hash2 list2 elt --dolist-tail-- list1 make-hash-table :test eq nil puthash t gethash] 5 (#$ . 1163)])
#@103 Return a range comprising all the RANGES, which are pre-sorted.
RANGES will be destructively altered.
(defalias 'gnus-range-nconcat #[(&rest ranges) "\306\307\"\211\211A@\211\243<\203�	\202�	C)\303\n!\307\211\203\270�\f@\211\211\243<\2034�	\2026�	C)@\247\203F�\211@@B\240\210	@\247\203T�	\211@	@B\240\210\211@A)T	\211@@)U\203w�@	\211@A)\241\210	A\241\210\202\255�	\241\210	\211@@)	\211@A)U\203\224�	\211\211@@)\240\210\211@@)\211@A)U\203\255�\211\211@@)\240\210\303!\fA\211\204%�*\n@:\203\313�\nG\310U\203\313�\n@\202\314�\n*\207" [ranges range result last --dolist-tail-- x delete nil 1] 4 (#$ . 1530)])
#@110 Return the range of elements in RANGE1 that do not appear in RANGE2.
Both ranges must be in ascending order.
(defalias 'gnus-range-difference #[(range1 range2) "\211\243<\203\f�	\202�	C)\n\211\243<\203�	\202�	C)\306\307!B\211\310\fA\203\f\211	A@)\n\n@\n\247\203G�\n\202J�\n@\f\n\247\203W�\n\202Z�\nA
\247\203g�\202j�@\247\203w�\202z�A\f
V\203\221�\f\211	\211AA)\241\210\202	\f
U\203\250�\n<\203\250�\fA\f\240\210\202	\204\262�\306\202	
W\203\303�\f\211A@\210\202	\fW\203\324�\n\211A@\210\202	\fX\203\361�
X\203\361�\f\211	\211AA)\241\210\202	\f\fSBT
BD\f\211	AA)\244\241\210.\202*�A+\207" [range1 range range2 new-range r safe nil copy-sequence t x r1 r2 min1 max1 min2 max2] 5 (#$ . 2178)])
#@135 Return a list of elements of LIST1 that do not appear in LIST2.
Both lists have to be sorted over <.
The tail of LIST1 is not copied.
(defalias 'gnus-sorted-difference #[(list1 list2) "\303	\2035�\n\2035�	@\n@U\203�	A\nA\202�	@\n@W\203/�	@B	A\211\202�\nA\202�\237	\244)\207" [out list1 list2 nil] 3 (#$ . 2959)])
#@121 Return a list of elements of LIST1 that do not appear in LIST2.
Both lists have to be sorted over <.
LIST1 is modified.
(defalias 'gnus-sorted-ndifference #[(list1 list2) "\304B\211\203;�\203;�@@U\203$�\nA\241\210AA\202�@@W\2035�A\211\202�A\202�	A*\207" [list1 top prev list2 nil] 3 (#$ . 3291)])
#@105 Return a list of elements that are in LIST1 or LIST2 but not both.
Both lists have to be sorted over <.
(defalias 'gnus-sorted-complement #[(list1 list2) "\303	\203\n�\n\204�	\206R�\n\202R�	\203J�\n\203J�	@\n@U\203+�	A\nA\202�	@\n@W\203?�	@B	A\211\202�\n@B\nA\202�\237	\206Q�\n\244)\207" [out list1 list2 nil] 3 (#$ . 3618)])
(defalias 'gnus-intersection #[(list1 list2) "\303	\203�	@\n>\203�	@B	A\211\204�)\207" [result list2 list1 nil] 3])
#@83 Return intersection of LIST1 and LIST2.
LIST1 and LIST2 have to be sorted over <.
(defalias 'gnus-sorted-intersection #[(list1 list2) "\303	\2035�\n\2035�	@\n@U\203 �	@B	A\nA\202�	@\n@W\203/�	A\211\202�\nA\202�\237)\207" [out list1 list2 nil] 3 (#$ . 4088)])
#@87 Return intersection of RANGE1 and RANGE2.
RANGE1 and RANGE2 have to be sorted over <.
(defalias 'gnus-sorted-range-intersection #[(range1 range2) "\306	@\211\247\203�	A\247\203�	A\306\202 �\n\202 �\nA\n@\f@\211\247\203:�\fA\247\2036�\fA\306\202?�
\202?�
A
@	A\fA\n\203\322�
\203\322�
W\203]�	A\306\202\234�\nW\203l�\fA\306\202\234�\n
]^\211	U\203\205�	B\202\214�	BB*W\203\232�\306\202\234�\306\n\204\265�	@\211\247\203\254�\n\202\261�\nA\n@	A
\204G�\f@\211\247\203\305�
\202\312�
A
@\fA\202G�A\203\334�\237\202\350�@\247\203\346�\202\350�@-\207" [out range1 min1 max1 range2 min2 nil max2 max min] 4 (#$ . 4364)])
(defalias 'gnus-set-sorted-intersection 'gnus-sorted-nintersection)
#@118 Return intersection of LIST1 and LIST2 by modifying cdr pointers of LIST1.
LIST1 and LIST2 have to be sorted over <.
(defalias 'gnus-sorted-nintersection #[(list1 list2) "\304B\211\203;�\203;�@@U\203!�AA\202�@@W\2035�\nA\241\210A\211\202�A\202�\n\304\241\210	A*\207" [list1 top prev list2 nil] 3 (#$ . 5108)])
#@76 Return union of LIST1 and LIST2.
LIST1 and LIST2 have to be sorted over <.
(defalias 'gnus-sorted-union #[(list1 list2) "\303	\203?�\n\203?�	@\n@U\203 �	@B	A\nA\202�	@\n@W\2034�	@B	A\211\202�\n@B\nA\202�	\203O�	@B	A\211\204C�\n\203_�\n@B\nA\211\204S�\237)\207" [out list1 list2 nil] 3 (#$ . 5447)])
#@111 Return union of LIST1 and LIST2 by modifying cdr pointers of LIST1.
LIST1 and LIST2 have to be sorted over <.
(defalias 'gnus-sorted-nunion #[(list1 list2) "\304B\211\203E�\203E�@@U\203!�AA\202�@@W\2032�A\211\202�\n@C\241\210\nAA\n\241\210\202�\203Y�\n@C\241\210\nAA\211\204I�	A*\207" [list1 top prev list2 nil] 3 (#$ . 5774)])
#@150 Convert sorted list of numbers to a list of ranges or a single range.
If ALWAYS-LIST is non-nil, this function will always release a list of
ranges.
(defalias 'gnus-compress-sequence #[(numbers &optional always-list) "@@\305\205u�A<\204�\202u�\203L�\n@U\204E�\nT@U\203/�@\202E�	\nU\2039�	\202<�	\nBB@@A\211\204�\f\204e�\204e�	\nU\203_�	C\202u�	\nB\202u�	\nU\203o�	\202r�	\nBB\237+\207" [numbers first last result always-list nil] 3 (#$ . 6141)])
(defalias 'gnus-uncompress-sequence 'gnus-uncompress-range)
#@134 Expand a list of ranges into a list of numbers.
RANGES is either a single range on the form `(num . num)' or a list of
these ranges.
(defalias 'gnus-uncompress-range #[(ranges) "\305\211\211\204�\305\202p�A<\2040�@A\n	X\203+�\nB\nT\211\202�\237\202p�\203n�@:\204H�@\247\203g�@B\202g�\211@@)\211@A)\n	X\203g�\nB\nT\211\202W�A\211\2044�\237+\207" [result last first ranges x nil] 4 (#$ . 6679)])
#@112 Return a list of ranges that has all articles from both RANGES and LIST.
Note: LIST has to be sorted over `<'.
(defalias 'gnus-add-to-range #[(ranges list) "\204	�\306	\307\"\207\310	!A<\204�C\311\211\211\211\f\203\237�	\203\237�	@:\2046�@\206=�\211
@@)	\203Z�	A\203Z�	\211
A@)\fW\203Z�	A\211\204B�
@\fW\203s�		A\n\311\241\210\306
\307\"\f\244\f@:\204~�@\206\205�\211
@A)	\203\230�	@X\203\230�	A\211\204\212�A\211\204%�	\203\254�\306	\307\"\f\244\f\312\f\313\"\211\f\211\203\210@:\204$A\203\201\211
A@):\204\367�@T\211
A@)U\203\201\211@\211
A@)B\240\210\211
\211AA)\241\210\202\201@TA@@U\203\201\211
A@)@\240\210\211
\211A@)\240\210\211
\211AA)\241\210\202\201A\203\201\211
A@):\204_\211
@A)T\211
A@)U\203\201@\211
A@)\241\210\211
\211AA)\241\210\202\201\211
@A)TA@@U\203\201@A@A\241\210\211
\211AA)\241\210A\211\204\271�\f-\207" [ranges list temp highest lowest ilist gnus-compress-sequence t copy-sequence nil sort #[(r1 r2) ":\204	�\206�@	:\204�	\206�	@W\207" [r1 r2] 2] out x] 6 (#$ . 7113)])
#@218 Return a range that has all articles from RANGE2 removed from RANGE1.
The returned range is always a list.  RANGE2 can also be a unsorted
list of articles.  RANGE1 is modified by side effects, RANGE2 is not
modified.
(defalias 'gnus-remove-from-range #[(range1 range2) "\203�	\204\n�\207\306\211\211\211\211\211\211\307	!\n\fA<\203)�\202+�C\310	A<\2037�	\2029�	C\311\"@	@\n:\203P�@\202R�:\203_�A\202a�\n:\203n�\n@\202p�\n\n:\203}�\nA\202�\n\2038	\2038\n
W\203\267�	\210	A\211@\211\n:\203\242�\n@\202\244�\n\n:\203\261�\nA\202\263�\n\202\200�
X\203\354�\f\nX\203\354�\210A\211@\211:\203\327�@\202\331�:\203\346�A\202\350�\202\200�
X\203$\n\fX\203$	\210	A\nT	@\211\n:\203\n@\202\n\n:\203\nA\202 \n\202\200�
X\203\244\n\fX\203\244
S=\203@
\fB\f\202I
SB\fB\f	\210	A\n\fW\203Z\nT\202\200\210A\211@\211:\203n@\202p:\203}A\202	@\211\n:\203\217\n@\202\221\n\n:\203\236\nA\202\240\n\202\200�\fX\203\362\f\nX\203\362
S=\203\300
\fB\f\202\311
SB\fB\f\210A\211@\211:\203\335@\202\337:\203\354A\202\356\202\200�\fW\203\200�\210A
\f=\203\f
\fB\f\202
\fB\fB\f@\211:\203#@\202%:\2032A\2024\202\200�\203Y
\f=\203L
\fB\f\202T
\fB\fB\f\210A\203j\211A@\fB\f\202Y\f\237.\207" [range1 range2 r2_max r2_min r1_max r1_min nil gnus-copy-sequence sort #[(e1 e2) ":\203\n�@\202�	:\203�	@\202�	W\207" [e1 e2] 2] r2 r1 out] 10 (#$ . 8217)])
(defalias 'gnus-member-of-range #[(number ranges) "A<\204�	@Y\205c�	AX\207\304\203`�@\247\203%�	@Y\202-�	\211@@)Y\203`�\n\203`�@\247\203A�	@U\202T�	\211@@)Y\203Y�	\211@A)X\203Y�\305A\211\204�\n)?\207" [ranges number not-stop x t nil] 3])
#@85 Return a list of numbers in LIST that are members of RANGES.
LIST is a sorted list.
(defalias 'gnus-list-range-intersection #[(list ranges) "\211\243<\203\f�	\202�	C)\306\211\f\211A@\211\203d�\203A�@\247\203/�@W\2027�\211@A)W\203A�A\211\204\"�\203�@\247\203R�@U\202Z�\211@@)Y\203�\nB\202�\n\237*\207" [ranges range result number list x nil] 3 (#$ . 10025)])
(defalias 'gnus-inverse-list-range-intersection 'gnus-list-range-difference)
#@89 Return a list of numbers in LIST that are not members of RANGES.
LIST is a sorted list.
(defalias 'gnus-list-range-difference #[(list ranges) "\211\243<\203\f�	\202�	C)\306\211\f\211A@\211\203e�\203A�@\247\203/�@W\2027�\211@A)W\203A�A\211\204\"�\203^�@\247\203S�@U?\202[�\211@@)W\203�\nB\202�\n\237*\207" [ranges range result number list x nil] 3 (#$ . 10495)])
#@53 Return the length RANGE would have if uncompressed.
(defalias 'gnus-range-length #[(range) "\204�\304\207A<\204�\305A@\306#\207\304\307\211\203;�@	\n:\2031�\305\nA\n@\306#\2022�\310\\A\211\204�\307	+\207" [range sum x --dolist-tail-- 0 - -1 nil 1] 6 (#$ . 10891)])
#@42 Add RANGE2 to RANGE1 (nondestructively).
(defalias 'gnus-range-add #[(range1 range2) "A<\204	�C	A<\204�	C\211A@	\211A@\306\211\211		\204.�
\203\276	\2047�\306\202r�
\204?�\307\202r�	\247\203Q�
\247\203Q�	
W\202r�	\247\203_�	
@W\202r�
\247\203l�	@
W\202r�	@
@W\n\203}�	\202~�
\n\211\204\213�\n\202\217\n\204\225�\202\217\247\203\324�\n\247\203\324�\n=\203\256�\202\217T\n=\203\277�\nB\202\217\nT=\203\320�\nB\202\217\306\202\217\247\203\n@Y\203\361�\nAX\203\361�\n\202\217T\n@=\203\nAB\202\217S\nA=\203\n@B\202\217\306\202\217\n\247\203b\n@Y\2038\nAX\2038\202\217\nT@=\203K\nAB\202\217\nSA=\203^@\nB\202\217\306\202\217AT\n@W\203q\306\202\217\nAT@W\203\200\306\202\217@\n@^A\nA]B*\206\245\203\233\fB\n\203\244	\202\245
\n\203\265\211A@\211	\202'�	\211A@\202%�\203\306\fB\310\f!-\207" [range1 range2 selector item range item2 nil t reverse item1 tmp2 tmp1] 6 (#$ . 11179)])
#@42 Add NUM into sorted LIST by side effect.
(defalias 'gnus-add-to-sorted-list #[(list num) "\304B\211\203�@W\203�A\211\204\n�@=\204'�\nB\241\210	A*\207" [list top prev num nil] 4 (#$ . 12211)])
#@46 Apply FUNC to each value contained by RANGE.
(defalias 'gnus-range-map #[(func range) "\211\243<\203\f�\202�C)\205B�\211A@\211\247\203&�\n	!\210\202>�	@	A\211X\203=�\n\f!\210\fT\211\202-�*)\202�\207" [range span func last first] 3 (#$ . 12425)])
(provide 'gnus-range)