Current File : //kunden/usr/share/emacs/27.2/lisp/gnus/gnus-int.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\300\303!\210\304\305\306\"\210\304\307\310\"\210\304\311\310\"\210\304\312\310\"\210\304\313\310\"\210\314\315\316\317\320\321\322\323&\210\314\324\316\325\326\327\320\321\322\323&	\210\314\330\316\331\326\327\320\321\322\323&	\210\314\332\316\333\326\334\320\321\322\335&	\210\314\336\316\337\320\340\322\341&\210\342\336\343\327#\207" [require gnus message gnus-range autoload gnus-run-hook-with-args "gnus-util" gnus-agent-expire "gnus-agent" gnus-agent-regenerate-group gnus-agent-read-servers-validate-native gnus-agent-possibly-synchronize-flags-server custom-declare-variable gnus-open-server-hook nil "Hook called just before opening connection to the news server." :group gnus-start :type hook gnus-after-set-mark-hook "Hook called just after marks are set in a group." :version "24.1" gnus-before-update-mark-hook "Hook called just before marks are updated in a group." gnus-server-unopen-status "The default status if the server is not able to open.\nIf the server is covered by Gnus agent, the possible values are\n`denied', set the server denied; `offline', set the server offline;\nnil, ask user.  If the server is not covered by Gnus agent, set the\nserver denied." "22.1" (choice (const :tag "Ask" nil) (const :tag "Deny server" denied) (const :tag "Unplug Agent" offline)) gnus-nntp-server "The name of the host running the NNTP server." gnus-server (choice (const :tag "disable" nil) string) make-obsolete-variable gnus-select-method] 10)
#@39 The current method, for the registry.
(defvar gnus-internal-registry-spool-current-method nil (#$ . 1906))
#@68 Check whether a connection to GNUS-COMMAND-METHOD has been opened.
(defalias 'gnus-server-opened #[(gnus-command-method) "\306!\307=?\205Y
;\203Q
\211\203\211<\203\211\206N
\310
	\"A\206N
\211\311\232\203.\n\206:
\310
\"A\206:
\310
\f\"A\206:

\211\203\\
\312\313@@@@@A@#\232\204\\\211
A\266\202\202?\211@@\262
\206:
\211\203\201
\312\313@@@A@#\232\204\201\211
A\266\202\202f\211@\262
\206:
A\314\211\2038
\211A\262\242\315
8\262
\262
;\204\215\314\316C\3172'
\211
\242\206\264\n\240\210\204\313\320\321\322\323\324\325!\326\"\315\327%	\"\210\fD\211\203\354\211@\320\321\322\330\324\325!\331\"\315\327%\"\210
A\266\202\202\316\210\211\242A@\332\235\203\377\312\333\242@\"\202	
\312\313\242@\242A@#\211\242B\211	\235\204#
\204#
\310
@	\"\204#
\211	B
\266\2020\262
\266\203\232\203\215
\262
\314\262\202\215\266\202\211\203K
\310	\"\204K


B	B\211\262
\262
\334\335\"A@!\207" [gnus-command-method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-server-status denied 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)" "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-get-function server-opened gnus-secondary-select-methods gnus-newsrc-alist] 18 (#$ . 2019)])
#@169 Return the status message from GNUS-COMMAND-METHOD.
If GNUS-COMMAND-METHOD is a string, it is interpreted as a group
name.  The method this group uses will be queried.
(defalias 'gnus-status-message #[(gnus-command-method) ";\203\301!\202\f\302\303\"A@!)\207" [gnus-command-method gnus-find-method-for-group gnus-get-function status-message] 3 (#$ . 3530)])
#@99 Open a method for getting news.
If CONFIRM is non-nil, the user will be asked for an NNTP server.
(defalias 'gnus-start-news-server #[(&optional confirm) "\306	?\205\267\n\203\307\310\311\304!\205\fB\306$\203[;\203[\312\230\204[\312\230\2045\313\230\203<\314\315 D\202Z\316\317\"\203W\320\321\322\323\324\325\"\326\"!D\327\306DF\202Z\330D
@\211\331\267\202|\332\314!\210\333\334\335\"\210\202\200\332\320!\210\333\334\336\"\210\202\200\332\330!\210
\337\340!\210*\203\217\341
!\210\342
!\206\267\343
!\206\267+\206\267\344\345\346
@
A@\347
!$!\206\267\350\325\351
A@#)\207" [how gnus-current-select-method confirm gnus-nntp-server gnus-secondary-servers gnus-select-method nil gnus-completing-read "NNTP server" boundp "" "::" nnspool system-name string-match "^:" nnmh nnmh-directory file-name-as-directory expand-file-name substring 1 "~/" nnmh-get-new-mail nntp #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nnspool 100 nnmh 112)) require gnus-message 5 "Looking up local news spool..." "Looking up mh spool..." gnus-run-hooks gnus-open-server-hook gnus-agent-read-servers-validate-native gnus-server-opened gnus-open-server gnus-y-or-n-p format-message "%s (%s) open error: `%s'.  Continue? " gnus-status-message gnus-error "Couldn't open server on %s" gnus-agent gnus-batch-mode] 9 (#$ . 3903)])
#@63 Try to make sure that the server where GROUP exists is alive.
(defalias 'gnus-check-group #[(group) "\302!\303	!\206
\304	!)\207" [group method gnus-find-method-for-group gnus-server-opened gnus-open-server] 2 (#$ . 5289)])
#@129 Check whether the connection to METHOD is down.
If METHOD is nil, use `gnus-select-method'.
If it is down, start it up (again).
(defalias 'gnus-check-server #[(&optional method silent) "\206	\306\211;\203Q
\211\203\211<\203\211\206N
\307
\"A\206N
\211\310\232\203-	\206:
\307
\f\"A\206:
\307

\"A\206:
(\211\203\\
\311\312@@@@@A@#\232\204\\\211
A\266\202\202?\211@@\262
\206:
)\211\203\201
\311\312@@@A@#\232\204\201\211
A\266\202\202f\211@\262
\206:
*A\306\211\2038
\211A\262\242\313
8\262
\262
;\204\215\306\314C\3152'
\211
\242\206\264	\240\210\204\313\316\317\320\321\322\323!\324\"\313\325%\"\210\f
D\211\203\354\211@\316\317\320\326\322\323!\327\"\313\325%\"\210
A\266\202\202\316\210\211\242A@\330\235\203\377\311\331\242@\"\202	
\311\312\242@\242A@#\211\242B\211\235\204#
\204#
\307
@\"\204#
\211B
\266\2020\262
\266\203\232\203\215
\262
\306\262\202\215\266\202\211\203K
\307\"\204K


BB\211\262
\262
\332!\203[
\314\202\267
+\204y
\333\334\335@A@\336\232\203q
\336\202w
\311\337A@\"$\210\340\341!\210\342!\211+\204\267
\333\n\203\220
\334\202\221
\343\344@A@\336\232\203\240
\336\202\246
\311\337A@\"\n\203\256
\345\202\265
\311\346\347@!\"%\210*\207" [method gnus-select-method result gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist nil assoc "native" format "%s:%s" 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)" "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1="") "%s" gnus-server-opened gnus-message 5 "Opening %s server%s..." #1# " on %s" gnus-run-hooks gnus-open-server-hook gnus-open-server 3 "Opening %s server%s...%s" "done" "failed: %s" nnheader-get-report-string gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist silent] 19 (#$ . 5523)])
#@56 Return a function symbol based on METHOD and FUNCTION.
(defalias 'gnus-get-function #[(method function &optional noerror) "\204\306\307!\210;\203P
\211\203\211<\203\211\206M
\310
	\"A\206M
\211\311\232\203-\n\2069
\310
\"A\2069
\310
\f\"A\2069

\211\203[
\312\313@@@@@A@#\232\204[\211
A\266\202\202>\211@@\262
\2069
&\211\203\200
\312\313@@@A@#\232\204\200\211
A\266\202\202e\211@\262
\2069
'A\314\211\2037
\211A\262\242\315
8\262
\262
;\204\214\314\316C\3172&
\211
\242\206\263\n\240\210\204\312\320\321\322\323\324\325!\326\"\315\327%	\"\210\fD\211\203\353\211@\320\321\322\330\324\325!\331\"\315\327%\"\210
A\266\202\202\315\210\211\242A@\332\235\203\376\312\333\242@\"\202
\312\313\242@\242A@#\211\242B\211	\235\204\"
\204\"
\310
@	\"\204\"
\211	B
\266\2020\262
\266\203\232\203\214
\262
\314\262\202\214\266\202\211\203J
\310	\"\204J


B	B\211\262
\262
(\203k
\334!\203b
@\202g
\335\336!\210\336)\202m
@\211)\337N*+*\236\211,\204\230
+\340\312\341)+#!B,\342)\337,*B#\210,A)-\343-!\204\313
@\204\256
\306\344!\210\335@!\210\343-!\204\313
.\203\305
\314-\202\313
\306\345-\"\210-+\207" [method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers error "Attempted use of a nil select method" 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)" "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-online require nnagent gnus-method-functions intern "%s-%s" put fboundp "Trying to require a method that doesn't exist" "No such function: %s" gnus-secondary-select-methods gnus-newsrc-alist gnus-agent method-sym method-fns function method-fnlist-elt func noerror] 19 (#$ . 7486)])
(defalias 'gnus-method-denied-p #[(method) "\302	\"A@\303=\207" [method gnus-opened-servers assoc denied] 3])
(defvar gnus-backend-trace nil)
(defvar gnus-backend-trace-elapsed nil)
(defalias 'gnus-backend-trace #[(type form) "\205.r\304\305!q\210\306 \210db\210\307\310!\311\312	\247\203\"\313\314	!!\202#\315\n$\261\210\313 \211)\207" [gnus-backend-trace gnus-backend-trace-elapsed type form get-buffer-create "*gnus trace*" buffer-disable-undo format-time-string "%H:%M:%S" format " %.2fs %s %S\n" float-time time-since 0] 6])
#@43 Open a connection to GNUS-COMMAND-METHOD.
(defalias 'gnus-open-server #[(gnus-command-method) ";\203H
\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\211
A\266\202\2026\211@@\262
\2061
5\211\203x
\310\311@@@A@#\232\204x\211
A\266\202\202]\211@\262
\2061
6A\312\211\203/
\211A\262\242\313
8\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%\"\210
A\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	\"\204B


B	B\211\262
\262
\332\333\"\210\306
\"\310\331@\"\306\310\331@\"\334\335!\"\204l
\3367\"\205\200

A@\205\200

A@\337\230?\205\200
\340A@PP\262
8\2119A@\341=\203\232
\342\343\3448#\210\312\202i\345\346\":\3471\311
\3501\266
:A@AA\"00\202\340
0;\342\343\3518\352;!$\210)\312\202\340
;<\203\327
\353\354!\210\202\336
\342\343\3558#\210)\312=\312>9\204\363
\312D\2119
B9A=\203\n:\356=\203\357\2026\360\2026?\2035\361!\2035@\203%@\357=>@\2026A\2041\314>\357\2026\341\2026\341\240\210>\203G\341@\362!)\202h9A@\360=\203a?\203a\361!\203a\212\363!\210)\332\364\"\210=+*\207" [gnus-command-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)" "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1="") "%s" gnus-backend-trace :opening gnus-methods-using address gnus-server-equal #1# "+" denied gnus-message 1 "Server %s previously determined to be down; not retrying" gnus-get-function open-server (quit) (error) "Unable to open server %s due to: %s" error-message-string debug "Quit" "Quit trying to open server %s" nnagent-open-server offline ok gnus-agent-method-p gnus-open-server gnus-agent-possibly-synchronize-flags-server :opened gnus-secondary-select-methods gnus-newsrc-alist gnus-message-archive-method server elem open-server-function err debug-on-quit result open-offline gnus-agent gnus-server-unopen-status gnus-batch-mode] 19 (#$ . 9971)])
#@46 Close the connection to GNUS-COMMAND-METHOD.
(defalias 'gnus-close-server #[(gnus-command-method) ";\203H
\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\211
A\266\202\2026\211@@\262
\2061
\211\203x
\310\311@@@A@#\232\204x\211
A\266\202\202]\211@\262
\2061
A\312\211\203/
\211A\262\242\313
8\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%\"\210
A\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	\"\204B


B	B\211\262
\262
\332\333\"A@AA\"\207" [gnus-command-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)" "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-get-function close-server gnus-secondary-select-methods gnus-newsrc-alist] 18 (#$ . 12551)])
#@51 Request the active file from GNUS-COMMAND-METHOD.
(defalias 'gnus-request-list #[(gnus-command-method) ";\203H
\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\211
A\266\202\2026\211@@\262
\2061
\211\203x
\310\311@@@A@#\232\204x\211
A\266\202\202]\211@\262
\2061
A\312\211\203/
\211A\262\242\313
8\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%\"\210
A\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	\"\204B


B	B\211\262
\262
\332\333\"A@!\207" [gnus-command-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)" "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-get-function request-list gnus-secondary-select-methods gnus-newsrc-alist] 18 (#$ . 13990)])
#@49 Read and update infos from GNUS-COMMAND-METHOD.
(defalias 'gnus-finish-retrieve-group-infos #[(gnus-command-method infos data) ";\203H
\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\211
A\266\202\2026\211@@\262
\2061
\211\203x
\310\311@@@A@#\232\204x\211
A\266\202\202]\211@\262
\2061
 A\312\211\203/
\211A\262\242\313
8\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%\"\210
A\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	\"\204B


B	B\211\262
\262
\332\333\"\210\334\335\"A@!\"#\332\336\"\210\207" [gnus-command-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)" "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-backend-trace :finishing gnus-get-function finish-retrieve-group-infos :finished gnus-secondary-select-methods gnus-newsrc-alist infos data] 18 (#$ . 15430)])
#@63 Start early async retrieval of data from GNUS-COMMAND-METHOD.
(defalias 'gnus-retrieve-group-data-early #[(gnus-command-method infos) ";\203H
\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\211
A\266\202\2026\211@@\262
\2061
\211\203x
\310\311@@@A@#\232\204x\211
A\266\202\202]\211@\262
\2061
A\312\211\203/
\211A\262\242\313
8\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%\"\210
A\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	\"\204B


B	B\211\262
\262
\332\333\"A@\"\207" [gnus-command-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)" "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-get-function retrieve-group-data-early gnus-secondary-select-methods gnus-newsrc-alist infos] 18 (#$ . 16995)])
#@55 Request the newsgroups file from GNUS-COMMAND-METHOD.
(defalias 'gnus-request-list-newsgroups #[(gnus-command-method) ";\203H
\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\211
A\266\202\2026\211@@\262
\2061
\211\203x
\310\311@@@A@#\232\204x\211
A\266\202\202]\211@\262
\2061
A\312\211\203/
\211A\262\242\313
8\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%\"\210
A\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	\"\204B


B	B\211\262
\262
\332\333\"A@!\207" [gnus-command-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)" "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-get-function request-list-newsgroups gnus-secondary-select-methods gnus-newsrc-alist] 18 (#$ . 18488)])
#@61 Request all new groups since DATE from GNUS-COMMAND-METHOD.
(defalias 'gnus-request-newgroups #[(date gnus-command-method) ";\203H
\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\211
A\266\202\2026\211@@\262
\2061
\211\203x
\310\311@@@A@#\232\204x\211
A\266\202\202]\211@\262
\2061
A\312\211\203/
\211A\262\242\313
8\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%\"\210
A\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	\"\204B


B	B\211\262
\262
\332\333\314#\211\205[
A@\")\207" [gnus-command-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)" "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-get-function request-newgroups gnus-secondary-select-methods gnus-newsrc-alist func date] 19 (#$ . 19954)])
#@53 Request a data generation from GNUS-COMMAND-METHOD.
(defalias 'gnus-request-regenerate #[(gnus-command-method) ";\203H
\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\211
A\266\202\2026\211@@\262
\2061
\211\203x
\310\311@@@A@#\232\204x\211
A\266\202\202]\211@\262
\2061
A\312\211\203/
\211A\262\242\313
8\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%\"\210
A\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	\"\204B


B	B\211\262
\262
\332\333\"A@!\207" [gnus-command-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)" "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-get-function request-regenerate gnus-secondary-select-methods gnus-newsrc-alist] 18 (#$ . 21450)])
(defalias 'gnus-request-compact-group #[(group) "\304!\211\305\n\306\"\307\310\"\203\311\312\225\"\202)\nA@\313#*\207" [group method gnus-command-method gname gnus-find-method-for-group gnus-get-function request-compact-group string-match "^[^:]+:" substring 0 t] 5])
#@53 Request groups compaction from GNUS-COMMAND-METHOD.
(defalias 'gnus-request-compact #[(gnus-command-method) ";\203H
\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\211
A\266\202\2026\211@@\262
\2061
\211\203x
\310\311@@@A@#\232\204x\211
A\266\202\202]\211@\262
\2061
A\312\211\203/
\211A\262\242\313
8\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%\"\210
A\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	\"\204B


B	B\211\262
\262
\332\333\"A@!\207" [gnus-command-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)" "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-get-function request-compact gnus-secondary-select-methods gnus-newsrc-alist] 18 (#$ . 23184)])
#@60 Request GROUP.  If DONT-CHECK, no information is required.
(defalias 'gnus-request-group #[(group &optional dont-check gnus-command-method info) "\206\265	\306\n\206\263
\204\206\263\307\f\"\204\214

\310\311\"\2033\312\313\314\315\"\314\316\"\206/\317#\202;\312\313@A@#\262
\211\203J\211<\203J\211\206\201
\320

\"A\206\201
\211\321\232\203\\\206m
\320
@\"A\206m
\320
A\"A\206m
B\211\203\215
\312\313@@@@@A@#\232\204\215\211
A\266\202\202p\211@@\262
\206m
C\211\203\262
\312\313@@@A@#\232\204\262\211
A\266\202\202\227\211@\262
\206m
DA\306\211\203k
\211A\262\242\322
8\262
\262
;\204\276\306\323C\3242Z
\211
\242\206\345\240\210\204\374\325\326\327\330\331\332!\333\"\322\334%
\"\210@AD\211\203
\211@\325\326\327\335\331\332!\336\"\322\334%\"\210
A\266\202\202

\210\211\242A@\337\235\2032
\312\340\242@\"\202<
\312\313\242@\242A@#\211\242B\211
\235\204V
\204V
\320
@
\"\204V
\211
B
\266\2020\262
\266\203\232\203\276
\262
\306\262\202\276\266\202\211\203~
\320
\"\204~


B
B\211\262
\262
\206\263\341!\206\263\211\206\231

\307
\f\"A@\262
\306
\203\255
\3228\211\262\203\255
\211\321\232\203\261
\202\261\211;\203\211\211\203\304
\211<\203\304
\211\206\373\320

\"A\206\373\211\321\232\203\326
\206\347\320
@\"A\206\347\320
A\"A\206\347B\211\203
\312\313@@@@@A@#\232\204\211
A\266\202\202\352
\211@@\262
\206\347C\211\203,
\312\313@@@A@#\232\204,\211
A\266\202\202\211@\262
\206\347DA\306\211\203\345\211A\262\242\322
8\262
\262
;\2048\306\323C\3242\324\211
\242\206_\240\210\204v\325\326\327\330\331\332!\333\"\322\334%
\"\210@AD\211\203\231\211@\325\326\327\335\331\332!\336\"\322\334%\"\210
A\266\202\202{\210\211\242A@\337\235\203\254\312\340\242@\"\202\266\312\313\242@\242A@#\211\242B\211
\235\204\320\204\320\320
@
\"\204\320\211
B
\266\2020\262
\266\203\232\2038
\262
\306\262\2028\266\202\211\203\370\320
\"\204\370

B
B\211\262
\262
\202^\211A@;\203]\211\342\343@!\344P!\211AA\236\204#\345A@DC\"\262\210E\306\211\211\204\313\211A\262\242\211\262\203\313@@=\203(\346AA!\346AA!\306\211\3472\300\211A\262\242\211\262\203\275
@\236\211\262\204m\350\347\306\"\210\351
\"\262

\232\204R
A@;\203\207\211A@;\204\217\350\347\306\"\210\202R
A@
A@\310\352\"\203\241\353!\262\310\352\"\203\255\353
!\262


\232\204\270\350\347\306\"\210\266\202R?0\266\206\203(
\262
\202(\266\202\262
\206^
\211B\306\203
\203
\211A\262\242@\262
@
@\232\203\330A@
A@\232\203\330\354\"\204\330\306\262\202\330?\266\202\262
\203\211AA\204\211\202X\342\312\355@\"!\211AA\236\203:
@A@\356QAABB\202M
@A@\356QA@DAABBB\262
EBE
\262
\266\202\202^\211\262
\211A@\317\232\203l\211\202\261\211A@\204y\211@\317D\202\261\211\343
@!\357\320F\">\203\254\342
\344P!\236\204\254\360@F\236>\203\254\345\342\344P!A@DC\"\202\255
\262
\262
\266\202\266\202\211;\203\211\203\311\211<\203\311\211\206\320

\"A\206\211\321\232\203\333\206\354\320
@\"A\206\354\320
A\"A\206\354B\211\203\f
\312\313@@@@@A@#\232\204\f\211
A\266\202\202\357\211@@\262
\206\354C\211\2031
\312\313@@@A@#\232\2041\211
A\266\202\202\211@\262
\206\354DA\306\211\203\352\211A\262\242\322
8\262
\262
;\204=\306\323C\3242\331\211
\242\206d\240\210\204{\325\326\327\330\331\332!\333\"\322\334%
\"\210@AD\211\203\236\211@\325\326\327\335\331\332!\336\"\322\334%\"\210
A\266\202\202\200\210\211\242A@\337\235\203\261\312\340\242@\"\202\273\312\313\242@\242A@#\211\242B\211
\235\204\325\204\325\320
@
\"\204\325\211
B
\266\2020\262
\266\203\232\203=
\262
\306\262\202=\266\202\211\203\375\320
\"\204\375

B
B\211\262
\262
\361\306GH\211I\204\362\363!\210I;\203dI\211\203)\211<\203)\211\206`\320

\"A\206`\211\321\232\203;\206L\320
@\"A\206L\320
A\"A\206LB\211\203l
\312\313@@@@@A@#\232\204l\211
A\266\202\202O\211@@\262
\206LC\211\203\221
\312\313@@@A@#\232\204\221\211
A\266\202\202v\211@\262
\206LDA\306\211\203J\211A\262\242\322
8\262
\262
;\204\235\306\323C\32429\211
\242\206\304\240\210\204\333\325\326\327\330\331\332!\333\"\322\334%
\"\210@AD\211\203\376\211@\325\326\327\335\331\332!\336\"\322\334%\"\210
A\266\202\202\340\210\211\242A@\337\235\203\312\340\242@\"\202\312\313\242@\242A@#\211\242B\211
\235\2045\2045\320
@
\"\2045\211
B
\266\2020\262
\266\203\232\203\235
\262
\306\262\202\235\266\202\211\203]\320
\"\204]

B
B\211\262
\262
IJ\203\203II\364I!\203zI@\202\365\366!\210\366)\202\206I@\211K\367NLHL\236\211M\204\261H\342\312\370KH#!BM\371K\367MLB#\210MA)N\372N!\204\346I@\204\310\362\373!\210\365I@!\210\372N!\204\346G\203\340\306N\202\346\362\374N\"\210N.	O\310\375O\"\203\376\376O\377\225\"\202O)A@PQ$)\207" [gnus-command-method group gnus-override-method gnus-select-method gnus-newsrc-hashtb gnus-server-method-cache nil gethash string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 #1="" assoc "native" 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)" "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) "%s" gnus-group-name-to-method intern symbol-name "-address" append copy-sequence --cl-block-nil-- throw delq "/\\'" directory-file-name gnus-methods-sloppily-equal "%s-address" "+" address physical-address request-group error "Attempted use of a nil select method" gnus-online require nnagent gnus-method-functions "%s-%s" put fboundp "Trying to require a method that doesn't exist" "No such function: %s" "^[^:]+:" substring 0 gnus-server-alist gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist gnus-extended-servers gnus-valid-select-methods noerror function method gnus-agent method-sym method-fns method-fnlist-elt func gname dont-check info] 23 (#$ . 24632)])
#@33 Request a description of GROUP.
(defalias 'gnus-request-group-description #[(group) "\304!\305	\30615\211;\203\304
!@\202\211\307
!\204#\310
!\210\311\312\313\314#!!\262
0\266\202\2029\210\315\266\202\205W\316\n	\"\317\320\"\203Q\321\322\225\"\202R)\nA@\"*\207" [group func gnus-command-method gname gnus-find-method-for-group request-group-description (error) featurep require fboundp intern format "%s-%s" nil gnus-get-function string-match "^[^:]+:" substring 0] 9 (#$ . 30765)])
#@43 Request that GROUP get a complete rescan.
(defalias 'gnus-request-group-scan #[(group info) "\305!\306	\30715\211;\203\305
!@\202\211\310
!\204#\311
!\210\312\313\314\315#!!\262
0\266\202\2029\210\316\266\202\205X\317\n	\"\320\321\"\203Q\322\323\225\"\202R)\nA@\f#*\207" [group func gnus-command-method gname info gnus-find-method-for-group request-group-scan (error) featurep require fboundp intern format "%s-%s" nil gnus-get-function string-match "^[^:]+:" substring 0] 9 (#$ . 31276)])
#@30 Request the GROUP be closed.
(defalias 'gnus-close-group #[(group) "\306	\206\253
\204\n\206\253\307\"\204\206

\310\311\"\203/\312\313\314\315\"\314\316\"\206+\317#\2027\312\313\n@\nA@#\262
\211\203F\211<\203F\211\206{
\320
\f\"A\206{
\211\321\232\203X\n\206g
\320

\"A\206g
\320
6\"A\206g
7\211\203\210
\312\313@@@@@A@#\232\204\210\211
A\266\202\202k\211@@\262
\206g
8\211\203\255
\312\313@@@A@#\232\204\255\211
A\266\202\202\222\211@\262
\206g
9A\306\211\203e
\211A\262\242\322
8\262
\262
;\204\271\306\323C\3242T
\211
\242\206\340\n\240\210\204\367\325\326\327\330\331\332!\333\"\322\334%\f\"\210
6D\211\203
\211@\325\326\327\335\331\332!\336\"\322\334%\"\210
A\266\202\202\373\210\211\242A@\337\235\203,
\312\340\242@\"\2026
\312\313\242@\242A@#\211\242B\211\f\235\204P
\204P
\320
@\f\"\204P
\211\fB
\266\2020\262
\266\203\232\203\271
\262
\306\262\202\271\266\202\211\203x
\320\f\"\204x


B\fB\211\262
\262
\206\253\341!\206\253\211\206\223

\307
\"A@\262
\306
\203\247
\3228\211\262\203\247
\211\321\232\203\253
\n\202\251\211;\203\370\211\211\203\276
\211<\203\276
\211\206\363\320
\f\"A\206\363\211\321\232\203\320
\n\206\337\320

\"A\206\337\320
6\"A\206\3377\211\203
\312\313@@@@@A@#\232\204\211
A\266\202\202\343
\211@@\262
\206\3378\211\203%
\312\313@@@A@#\232\204%\211
A\266\202\202\n\211@\262
\206\3379A\306\211\203\335\211A\262\242\322
8\262
\262
;\2041\306\323C\3242\314\211
\242\206X\n\240\210\204o\325\326\327\330\331\332!\333\"\322\334%\f\"\210
6D\211\203\221\211@\325\326\327\335\331\332!\336\"\322\334%\"\210
A\266\202\202s\210\211\242A@\337\235\203\244\312\340\242@\"\202\256\312\313\242@\242A@#\211\242B\211\f\235\204\310\204\310\320
@\f\"\204\310\211\fB
\266\2020\262
\266\203\232\2031
\262
\306\262\2021\266\202\211\203\360\320\f\"\204\360

B\fB\211\262
\262
\202V\211A@;\203U\211\342\343@!\344P!\211AA\236\204\345A@DC\"\262\210:\306\211\211\204\303\211A\262\242\211\262\203\303@@=\203 \346AA!\346AA!\306\211\3472\270\211A\262\242\211\262\203\265
@\236\211\262\204e\350\347\306\"\210\351
\"\262

\232\204J
A@;\203\211A@;\204\207\350\347\306\"\210\202J
A@
A@\310\352\"\203\231\353!\262\310\352\"\203\245\353
!\262


\232\204\260\350\347\306\"\210\266\202J?0\266\206\203 
\262
\202 \266\202\262
\206V
\2117\306\203
\203
\211A\262\242@\262
@
@\232\203\320A@
A@\232\203\320\354\"\204\320\306\262\202\320?\266\202\262
\203\211AA\204\211\202P\342\312\355@\"!\211AA\236\2032
@A@\356QAABB\202E
@A@\356QA@DAABBB\262
:B:
\262
\266\202\202V\211\262
\211A@\317\232\203d\211\202\251\211A@\204q\211@\317D\202\251\211\343
@!\357\320;\">\203\244\342
\344P!\236\204\244\360@;\236>\203\244\345\342\344P!A@DC\"\202\245
\262
\262
\266\202\266\202<\361<\362\"=\310\363=\"\203\310\364=\365\225\"\202\312=)<A@\")\207" [group gnus-override-method gnus-select-method gnus-newsrc-hashtb gnus-server-method-cache gnus-server-alist nil gethash string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 #1="" assoc "native" 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)" "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil #1#) "%s" gnus-group-name-to-method intern symbol-name "-address" append copy-sequence --cl-block-nil-- throw delq "/\\'" directory-file-name gnus-methods-sloppily-equal "%s-address" "+" address physical-address gnus-get-function close-group "^[^:]+:" substring 0 gnus-predefined-server-alist gnus-opened-servers gnus-secondary-select-methods gnus-newsrc-alist gnus-extended-servers gnus-valid-select-methods gnus-command-method gname] 22 (#$ . 31794)])
#@114 Request headers for ARTICLES in GROUP.
If FETCH-OLD, retrieve all headers (or some subset thereof) in the group.
(defalias 'gnus-retrieve-headers #[(articles group &optional fetch-old) "\306!\n\203@\247\203\307\f#\202O
\203.\310	!\203.\311	!\203.\312\f#\202O\313	\314\"\315\316\"\203G\317\320\225\"\202I)	A@\f$)\207" [group gnus-command-method gnus-use-cache articles fetch-old gnus-agent gnus-find-method-for-group gnus-cache-retrieve-headers gnus-online gnus-agent-method-p gnus-agent-retrieve-headers gnus-get-function retrieve-headers string-match "^[^:]+:" substring 0 gname] 5 (#$ . 35722)])
#@28 Request ARTICLES in GROUP.
(defalias 'gnus-retrieve-articles #[(articles group) "\304!\305	\306\"\n\307\310\"\203\311\312\225\"\202)	A@#)\207" [group gnus-command-method articles gname gnus-find-method-for-group gnus-get-function retrieve-articles string-match "^[^:]+:" substring 0] 5 (#$ . 36354)])
#@64 Request active information on GROUPS from GNUS-COMMAND-METHOD.
(defalias 'gnus-retrieve-groups #[(groups gnus-command-method) ";\203H
\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\211
A\266\202\2026\211@@\262
\2061
\211\203x
\310\311@@@A@#\232\204x\211
A\266\202\202]\211@\262
\2061
A\312\211\203/
\211A\262\242\313
8\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%\"\210
A\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	\"\204B


B	B\211\262
\262
\332\333\"A@\"\207" [gnus-command-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)" "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-get-function retrieve-groups gnus-secondary-select-methods gnus-newsrc-alist groups] 18 (#$ . 36672)])
#@60 Return the type (`post' or `mail') of GROUP (and ARTICLE).
(defalias 'gnus-request-type #[(group &optional article) "\304!\305	@\30614\211;\203\304
!@\202\211\307
!\204\"\310
!\210\311\312\313\314#!!\262
0\266\202\2028\210\315\266\202\204?\316\202X\317	\305\"\320\321\n\"\203T\322\n\323\225\"\202U\n)\")\207" [group gnus-command-method gname article gnus-find-method-for-group request-type (error) featurep require fboundp intern format "%s-%s" nil unknown gnus-get-function string-match "^[^:]+:" substring 0] 9 (#$ . 38148)])
#@85 Change the status of a group.
Valid statuses include `subscribe' and `unsubscribe'.
(defalias 'gnus-request-update-group-status #[(group status) "\304!\305	@\30614\211;\203\304
!@\202\211\307
!\204\"\310
!\210\311\312\313\314#!!\262
0\266\202\2028\210\315\266\202\205W\316	\305\"\317\320\n\"\203P\321\n\322\225\"\202Q\n)	A@#)\207" [group gnus-command-method gname status gnus-find-method-for-group request-update-group-status (error) featurep require fboundp intern format "%s-%s" nil gnus-get-function string-match "^[^:]+:" substring 0] 9 (#$ . 38701)])
#@40 Set marks on articles in the back end.
(defalias 'gnus-request-set-mark #[(group action) "\305!\306	@\30714\211;\203\305
!@\202\211\310
!\204\"\311
!\210\312\313\314\315#!!\262
0\266\202\2028\210\316\266\202\204?\n\202a\317	\306\"\320\321\"\203T\322\323\225\"\202U)\n	A@#\210\324\f\n#)\207" [group gnus-command-method action gname gnus-after-set-mark-hook gnus-find-method-for-group request-set-mark (error) featurep require fboundp intern format "%s-%s" nil gnus-get-function string-match "^[^:]+:" substring 0 gnus-run-hook-with-args] 9 (#$ . 39281)])
#@76 Allow the back end to change the mark the user tries to put on an article.
(defalias 'gnus-request-update-mark #[(group article mark) "\306!\307	@\31014\211;\203\306
!@\202\211\311
!\204\"\312
!\210\313\314\315\316#!!\262
0\266\202\2028\210\317\266\202\204?\n\202`\320\f\n$\210\321	\307\"\322\323
\"\203[\324
\325\225\"\202\\
)\f\n#)\207" [group gnus-command-method mark gnus-before-update-mark-hook article gname gnus-find-method-for-group request-update-mark (error) featurep require fboundp intern format "%s-%s" nil gnus-run-hook-with-args gnus-get-function string-match "^[^:]+:" substring 0] 9 (#$ . 39863)])
#@142 Request the ARTICLE in GROUP.
ARTICLE can either be an article number or an article Message-ID.
If BUFFER, insert the article in that group.
(defalias 'gnus-request-article #[(article group &optional buffer) "\305!\306	\307\"\n\310\311\"\203\312\313\225\"\202)	A@\f$)\207" [group gnus-command-method article gname buffer gnus-find-method-for-group gnus-get-function request-article string-match "^[^:]+:" substring 0] 5 (#$ . 40505)])
#@79 Request the headers in the thread containing the article specified by HEADER.
(defalias 'gnus-request-thread #[(header group) "\304!\305	\306\"\n\307\310\"\203\311\312\225\"\202)\")\207" [group gnus-command-method header gname gnus-find-method-for-group gnus-get-function request-thread string-match "^[^:]+:" substring 0] 5 (#$ . 40957)])
#@199 Activate and select GROUP with the given MESSAGE-ID selected.
Returns the article number of the message.

If GROUP is not already selected, the message will be the only one in
the group's summary.

(defalias 'gnus-select-group-with-message-id #[(group message-id) "\306\307\310#\311\307\312#\210\313\216\314\315\316\315\317\320&\210*\321!\3221;\323!\211\204.\324\325\326\"\210\327\315\211\211\f$\210\f)0\202H\n\203C\330 \210\331\324
\"))\207" [group saved-display group-is-new message-id article-number err gnus-group-get-parameter display :allow-list gnus-group-set-parameter 0 #[nil "\302\303	#\207" [group saved-display gnus-group-set-parameter display] 4] gnus-summary-read-group-1 nil :no-article :no-display (-1) gnus-summary-setup-buffer (error) gnus-summary-insert-subject signal error "message-id not in group" gnus-summary-select-article gnus-summary-exit apply] 8 (#$ . 41315)])
#@115 Return the simplest representation of the name of GROUP.
This is the string that Gnus uses to identify the group.
(defalias 'gnus-simplify-group-name #[(group) "\302\303\304	\"\203\305	\306\225\"\202	)\307!\"\207" [group gname gnus-group-prefixed-name string-match "^[^:]+:" substring 0 gnus-group-method] 4 (#$ . 42227)])
#@192 Look up the current article in the group where it originated.
This command only makes sense for groups shows articles gathered
from other groups -- for instance, search results and the like.
(defalias 'gnus-warp-to-article #[nil "\303!\304	@\30514\211;\203\303
!@\202\211\306
!\204\"\307
!\210\310\311\312\313#!!\262
0\266\202\2028\210\314\266\202\203C\315	\304\" \206O\316\302!\205O\n\205O\317 )\207" [gnus-newsgroup-name gnus-command-method gnus-registry-enabled gnus-find-method-for-group warp-to-article (error) featurep require fboundp intern format "%s-%s" nil gnus-get-function boundp gnus-try-warping-via-registry] 9 (#$ . 42564) nil])
#@39 Request the head of ARTICLE in GROUP.
(defalias 'gnus-request-head #[(article group) "\306!\307	\310\311#\312\211
\203*\247\203*\313\"\203*B\311\202r\314\"\203<B\311\202r\315\n!\203j\n?\205b\316\317\"\203_\320\321\225\"\202a)	A@#\202r\322\"\311\f\203\217rq\210eb\210\323\324\312\311#\203\213`Sd|\210\325 \210),\207" [group gnus-command-method head res clean-up gnus-use-cache gnus-find-method-for-group gnus-get-function request-head t nil gnus-cache-request-article gnus-agent-request-article fboundp string-match "^[^:]+:" substring 0 gnus-request-article search-forward "\n\n" nnheader-fold-continuation-lines article gnus-override-method gname nntp-server-buffer] 6 (#$ . 43230)])
#@39 Request the body of ARTICLE in GROUP.
(defalias 'gnus-request-body #[(article group) "\306!\307	\310\311#\312\211
\203*\247\203*\313\"\203*B\311\202l\314\"\203<B\311\202l\315\n!\203d\n\316\317\"\203Y\320\321\225\"\202[)	A@#\202l\322\"\311\f\203\206rq\210eb\210\323\324\312\311#\203\205e`S|\210),\207" [group gnus-command-method head res clean-up gnus-use-cache gnus-find-method-for-group gnus-get-function request-body t nil gnus-cache-request-article gnus-agent-request-article fboundp string-match "^[^:]+:" substring 0 gnus-request-article search-forward "\n\n" article gname nntp-server-buffer] 6 (#$ . 43979)])
#@52 Post the current buffer using GNUS-COMMAND-METHOD.
(defalias 'gnus-request-post #[(gnus-command-method) ";\203H
\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\211
A\266\202\2026\211@@\262
\2061
\211\203x
\310\311@@@A@#\232\204x\211
A\266\202\202]\211@\262
\2061
A\312\211\203/
\211A\262\242\313
8\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%\"\210
A\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	\"\204B


B	B\211\262
\262
\332\333\"A@!\207" [gnus-command-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)" "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-get-function request-post gnus-secondary-select-methods gnus-newsrc-alist] 18 (#$ . 44656)])
#@77 Expunge GROUP, which is removing articles that have been marked as deleted.
(defalias 'gnus-request-expunge-group #[(group gnus-command-method) ";\203H
\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\211
A\266\202\2026\211@@\262
\2061
 \211\203x
\310\311@@@A@#\232\204x\211
A\266\202\202]\211@\262
\2061
!A\312\211\203/
\211A\262\242\313
8\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%\"\210
A\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	\"\204B


B	B\211\262
\262
\332\333\"\"#\334\335#\"\203a
\336#\337\225\"\202c
#)A@\"\207" [gnus-command-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)" "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-get-function request-expunge-group string-match "^[^:]+:" substring 0 gnus-secondary-select-methods gnus-newsrc-alist group gname] 18 (#$ . 46097)])
#@131 Request a SCAN being performed in GROUP from GNUS-COMMAND-METHOD.
If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned.
(defalias 'gnus-request-scan #[(group gnus-command-method) "\203\n\306!\202	\307\n\n\204\310	!?\205@	\311	\312\"\205<\313\314\"\2039\315\316\225\"\202;)	A@\"+\207" [group gnus-command-method gnus-plugged mail-source-plugged gnus-inhibit-demon gnus-internal-registry-spool-current-method gnus-find-method-for-group t gnus-agent-method-p gnus-get-function request-scan string-match "^[^:]+:" substring 0 gname] 4 (#$ . 47684)])
(defalias 'gnus-request-update-info #[(info gnus-command-method) "\306@\30710\211;\203\310
!@\202\211\311
!\204\312
!\210\313\314\315\316#!!\262
0\266\202\2024\210\317\266\202\205\242
;\203
\211\203J\211<\203J\211\206|
\320
	\"A\206|
\211\321\232\203\\\n\206h
\320
\"A\206h
\320
\f\"A\206h

\211\203\212
\315\322@@@@@A@#\232\204\212\211
A\266\202\202m\211@@\262
\206h
'\211\203\257
\315\322@@@A@#\232\204\257\211
A\266\202\202\224\211@\262
\206h
(A\317\211\203f
\211A\262\242\323
8\262
\262
;\204\273\317\324C\3252U
\211
\242\206\342\n\240\210\204\371\326\327\330\331\332\333!\334\"\323\335%	\"\210\fD\211\203
\211@\326\327\330\336\332\333!\337\"\323\335%\"\210
A\266\202\202\374\210\211\242A@\340\235\203-
\315\341\242@\"\2027
\315\322\242@\242A@#\211\242B\211	\235\204Q
\204Q
\320
@	\"\204Q
\211	B
\266\2020\262
\266\203\232\203\273
\262
\317\262\202\273\266\202\211\203y
\320	\"\204y


B	B\211\262
\262
\342\306\")@*\343\344*\"\203\231
\345*\346\225\"\202\233
*))A@#\207" [gnus-command-method gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-opened-servers request-update-info (error) gnus-find-method-for-group featurep require fboundp intern format "%s-%s" nil assoc "native" "%s:%s" 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)" "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-get-function string-match "^[^:]+:" substring 0 gnus-secondary-select-methods gnus-newsrc-alist info gname] 18])
#@47 Request that GNUS-COMMAND-METHOD update INFO.
(defalias 'gnus-request-marks #[(info gnus-command-method) ";\203H
\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\211
A\266\202\2026\211@@\262
\2061
+\211\203x
\310\311@@@A@#\232\204x\211
A\266\202\202]\211@\262
\2061
,A\312\211\203/
\211A\262\242\313
8\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%\"\210
A\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	\"\204B


B	B\211\262
\262
\332@\3331x
\211;\203[
\334
!@\202\\
\211\335
!\204f
\336
!\210\337\340\310\341#!!\262
0\266\202\202|
\210\312\266\202\205\354
-@.\342\332\"./\343\344/\"\203\235
\345/\346\225\"\202\237
/)-A@#\205\353
\347.0\"\2111@\2112\350V\203\350
2\351U\203\306
\350\202\313
\3502SB3\351-84\35243C\"5-AA\21165\240\210,-*)\207" [gnus-command-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)" "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" request-marks (error) gnus-find-method-for-group featurep require fboundp intern "%s-%s" gnus-get-function string-match "^[^:]+:" substring 0 gethash 1 2 gnus-range-add gnus-secondary-select-methods gnus-newsrc-alist info group gname gnus-active-hashtb active min range read new-read #1=#:c] 19 (#$ . 49978)])
(put 'gnus-request-marks 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'gnus-request-expire-articles #[(articles group &optional force) "\306!\307\310\311\312\n\"\"\313\314	\315\"\n\316\317\f\"\203$\320\f\321\225\"\202%\f)	A@
$\203K\322	!\203K\323\n\"\211\203J\324\305#\210),\207" [group gnus-command-method articles gnus-inhibit-demon gname force gnus-find-method-for-group delq nil mapcar #[(n) "\301Y\205\207" [n 0] 2] t gnus-get-function request-expire-articles string-match "^[^:]+:" substring 0 gnus-agent-method-p gnus-sorted-difference gnus-agent-expire not-deleted gnus-agent expired-articles] 6])
(defalias 'gnus-request-move-article #[(article group server accept-function &optional last move-is-internal) "\306!\307	\310\"\n\311\312\"\203\313\314\225\"\202)	A@\f
&\211\203<\203<\315	!\203<\316\nC\"\210*\207" [group gnus-command-method article gname accept-function last gnus-find-method-for-group gnus-get-function request-move-article string-match "^[^:]+:" substring 0 gnus-agent-method-p gnus-agent-unfetch-articles move-is-internal result gnus-agent] 8])
(defalias 'gnus-request-accept-article #[(group &optional gnus-command-method last no-encode) ";\203H
\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\211
A\266\202\2026\211@@\262
\2061
)\211\203x
\310\311@@@A@#\232\204x\211
A\266\202\202]\211@\262
\2061
*A\312\211\203/
\211A\262\242\313
8\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%\"\210
A\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	\"\204B


B	B\211\262
\262
\204^
+;\203^
\332+!\206]
\333+!db\210n\204h
\334c\210,\204\200
--\335 \210\214\336 \210\337 \210)\340 \210)\206\210
\332+!\341\342\"+;\203\255
+.\343\344.\"\203\247
\345.\346\225\"\202\251
.)\202\257
+A@/#01\203\322
\347!\203\322
0A\203\322
\350+0AC\"\2100*\207" [gnus-command-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)" "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-find-method-for-group gnus-group-name-to-method "\n" message-options-set-recipient message-narrow-to-head mail-encode-encoded-word-buffer message-encode-message-body gnus-get-function request-accept-article string-match "^[^:]+:" substring 0 gnus-agent-method-p gnus-agent-regenerate-group gnus-secondary-select-methods gnus-newsrc-alist group no-encode message-options gname last result gnus-agent] 18])
(defalias 'gnus-request-replace-article #[(article group buffer &optional no-encode) "\204	\306 \210\214\307 \210\310 \210)\311 \210)\312\n!@\313\314\315\"!\f\n\316\317
\"\2032\320
\321\225\"\2023
)#\203K\322!\203K\323\n\fC\"\210*\207" [no-encode message-options group func article gname message-options-set-recipient message-narrow-to-head mail-encode-encoded-word-buffer message-encode-message-body gnus-group-name-to-method intern format "%s-request-replace-article" string-match "^[^:]+:" substring 0 gnus-agent-method-p gnus-agent-regenerate-group buffer result gnus-agent gnus-command-method] 5])
#@56 Request a new buffer restored to the state of ARTICLE.
(defalias 'gnus-request-restore-buffer #[(article group) "\304!\305	\306\"\n\307\310\"\203\311\312\225\"\202)	A@#)\207" [group gnus-command-method article gname gnus-find-method-for-group gnus-get-function request-restore-buffer string-match "^[^:]+:" substring 0] 5 (#$ . 55720)])
(defalias 'gnus-request-create-group #[(group &optional gnus-command-method args) ";\203H
\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\211
A\266\202\2026\211@@\262
\2061
!\211\203x
\310\311@@@A@#\232\204x\211
A\266\202\202]\211@\262
\2061
\"A\312\211\203/
\211A\262\242\313
8\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%\"\210
A\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	\"\204B


B	B\211\262
\262
\206P
\332#!\333\334\"#$\335\336$\"\203j
\337$\340\225\"\202l
$)A@%#)\207" [gnus-command-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)" "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" gnus-find-method-for-group gnus-get-function request-create-group string-match "^[^:]+:" substring 0 gnus-secondary-select-methods gnus-newsrc-alist group gname args] 18])
(defalias 'gnus-request-delete-group #[(group &optional force) "\305!\306	\307\"\310\311\n\"\203\312\n\313\225\"\202\n)	A@#\211\203-\314!\210\315!\210\f*\207" [group gnus-command-method gname force result gnus-find-method-for-group gnus-get-function request-delete-group string-match "^[^:]+:" substring 0 gnus-cache-delete-group gnus-agent-delete-group] 5])
(defalias 'gnus-request-rename-group #[(group new-name) "\305!\306	\307\"\310\311\n\"\203\312\n\313\225\"\202\n)\310\311\n\"\203,\312\n\313\225\"\202-\n)	A@#\211\203A\314\"\210\315\"\210\f*\207" [group gnus-command-method gname new-name result gnus-find-method-for-group gnus-get-function request-rename-group string-match "^[^:]+:" substring 0 gnus-cache-rename-group gnus-agent-rename-group] 6])
(defalias 'gnus-close-backends #[nil "\305\306\211\f\211A\242\211\205%\307\310	@\311P!\211!\203\n \210\202,\207" [gnus-valid-select-methods gnus-command-method func gnus-inhibit-demon methods t nil fboundp intern "-request-close"] 4])
(defalias 'gnus-asynchronous-p #[(gnus-command-method) "\302\303\304#\305	!\205	 )\207" [gnus-command-method func gnus-get-function asynchronous-p t fboundp] 4])
(defalias 'gnus-remove-denial #[(gnus-command-method) ";\203H
\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\211
A\266\202\2026\211@@\262
\2061
\211\203x
\310\311@@@A@#\232\204x\211
A\266\202\202]\211@\262
\2061
A\312\211\203/
\211A\262\242\313
8\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%\"\210
A\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	\"\204B


B	B\211\262
\262
\306
\"\211A@\211\332=\205^
A\333\240*\207" [gnus-command-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)" "\302
A\300\242\"\205\211	\235\204\211	B\303\304@\"\207" [gnus-server-method-cache gnus-methods-equal-p throw server-name] (nil "") "%s" denied closed gnus-secondary-select-methods gnus-newsrc-alist elem status] 19])
(provide 'gnus-int)