;ELC   
;;; Compiled
;;; in Emacs version 27.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.

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


(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\\ \211A\266\202\202? \211@@\262\206:\211\203\201 \312\313@@@A@#\232\204\201 \211A\266\202\202f \211@\262\206:A\314\211\2038\211A\262\242\3158\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%\"\210A\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	\"\204KB	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)" "\302A\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 \330D@\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\\ \211A\266\202\202? \211@@\262\206:)\211\203\201 \311\312@@@A@#\232\204\201 \211A\266\202\202f \211@\262\206:*A\306\211\2038\211A\262\242\3138\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%\"\210A\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#\211B\266\2020\262\266\203\232\203\215 \262\306\262\202\215 \266\202\211\203K\307\"\204KBB\211\262\262\332!\203[\314\202\267+\204y\333\334\335@A@\336\232\203q\336\202w\311\337A@\"$\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\337A@\"\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)" "\302A\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[ \211A\266\202\202> \211@@\262\2069&\211\203\200 \312\313@@@A@#\232\204\200 \211A\266\202\202e \211@\262\2069'A\314\211\2037\211A\262\242\3158\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%\"\210A\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	\"\204JB	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)" "\302A\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 \211A\266\202\2026 \211@@\262\20615\211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\20616A\312\211\203/\211A\262\242\3138\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%\"\210A\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	\"\204BB	B\211\262\262\332\333\"\210\306\"\310\331@\"\306\310\331@\"\334\335!\"\204l\3367\"\205\200A@\205\200A@\337\230?\205\200\340A@PP\2628\2119A@\341=\203\232\342\343\3448#\210\312\202i\345\346\":\3471\311\3501\266:A@AA\"00\202\3400;\342\343\3518\352;!$\210)\312\202\340;<\203\327\353\354!\210\202\336\342\343\3558#\210)\312=\312>9\204\363\312D\2119B9A=\203\n:\356=\203\357\2026\360\2026?\2035\361!\2035@\203%@\357=>@\2026A\2041\314>\357\2026\341\2026\341\240\210>\203G\341@\362!)\202h9A@\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)" "\302A\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 \211A\266\202\2026 \211@@\262\2061\211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\2061A\312\211\203/\211A\262\242\3138\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%\"\210A\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	\"\204BB	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)" "\302A\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 \211A\266\202\2026 \211@@\262\2061\211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\2061A\312\211\203/\211A\262\242\3138\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%\"\210A\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	\"\204BB	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)" "\302A\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 \211A\266\202\2026 \211@@\262\2061\211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\2061 A\312\211\203/\211A\262\242\3138\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%\"\210A\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	\"\204BB	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)" "\302A\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 \211A\266\202\2026 \211@@\262\2061\211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\2061A\312\211\203/\211A\262\242\3138\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%\"\210A\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	\"\204BB	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)" "\302A\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 \211A\266\202\2026 \211@@\262\2061\211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\2061A\312\211\203/\211A\262\242\3138\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%\"\210A\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	\"\204BB	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)" "\302A\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 \211A\266\202\2026 \211@@\262\2061\211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\2061A\312\211\203/\211A\262\242\3138\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%\"\210A\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	\"\204BB	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)" "\302A\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 \211A\266\202\2026 \211@@\262\2061\211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\2061A\312\211\203/\211A\262\242\3138\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%\"\210A\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	\"\204BB	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)" "\302A\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 \211A\266\202\2026 \211@@\262\2061\211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\2061A\312\211\203/\211A\262\242\3138\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%\"\210A\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	\"\204BB	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)" "\302A\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 \211A\266\202\202p \211@@\262\206mC\211\203\262 \312\313@@@A@#\232\204\262 \211A\266\202\202\227 \211@\262\206mDA\306\211\203k\211A\262\242\3228\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%\"\210A\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\347B\211\203\312\313@@@@@A@#\232\204\211A\266\202\202\352\211@@\262\206\347C\211\203,\312\313@@@A@#\232\204,\211A\266\202\202\211@\262\206\347DA\306\211\203\345\211A\262\242\3228\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%\"\210A\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\370BB\211\262\262\202^\211A@;\203]\211\342\343@!\344P!\211AA\236\204#\345A@DC\"\262\210E\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\204RA@;\203\207\211A@;\204\217\350\347\306\"\210\202RA@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^\211B\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@\356QAABB\202M@A@\356QA@DAABBB\262EBE\262\266\202\202^\211\262\211A@\317\232\203l\211\202\261\211A@\204y\211@\317D\202\261\211\343@!\357\320F\">\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\354B\211\203\f\312\313@@@@@A@#\232\204\f\211A\266\202\202\357\211@@\262\206\354C\211\2031\312\313@@@A@#\232\2041\211A\266\202\202\211@\262\206\354DA\306\211\203\352\211A\262\242\3228\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%\"\210A\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\306GH\211I\204\362\363!\210I;\203dI\211\203)\211<\203)\211\206`\320\"A\206`\211\321\232\203;\206L\320@\"A\206L\320A\"A\206LB\211\203l\312\313@@@@@A@#\232\204l\211A\266\202\202O\211@@\262\206LC\211\203\221\312\313@@@A@#\232\204\221\211A\266\202\202v\211@\262\206LDA\306\211\203J\211A\262\242\3228\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%\"\210A\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IJ\203\203II\364I!\203zI@\202\365\366!\210\366)\202\206I@\211K\367NLHL\236\211M\204\261H\342\312\370KH#!BM\371K\367MLB#\210MA)N\372N!\204\346I@\204\310\362\373!\210\365I@!\210\372N!\204\346G\203\340\306N\202\346\362\374N\"\210N.	O\310\375O\"\203\376\376O\377\225\"\202 O)A@PQ$)\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)" "\302A\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#!!\2620\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#!!\2620\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 \211A\266\202\202k \211@@\262\206g8\211\203\255 \312\313@@@A@#\232\204\255 \211A\266\202\202\222 \211@\262\206g9A\306\211\203e\211A\262\242\3228\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%\"\210A\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\"\204xB\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\3377\211\203 \312\313@@@@@A@#\232\204 \211A\266\202\202\343\211@@\262\206\3378\211\203%\312\313@@@A@#\232\204%\211A\266\202\202\n\211@\262\206\3379A\306\211\203\335\211A\262\242\3228\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%\"\210A\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\360B\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\204JA@;\203\211A@;\204\207\350\347\306\"\210\202JA@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\2117\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@\356QAABB\202E@A@\356QA@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)" "\302A\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 \211A\266\202\2026 \211@@\262\2061\211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\2061A\312\211\203/\211A\262\242\3138\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%\"\210A\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	\"\204BB	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)" "\302A\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#!!\2620\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#!!\2620\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#!!\2620\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#!!\2620\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#!!\2620\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\217 rq\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\206 rq\210eb\210\323\324\312\311#\203\205 e`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 \211A\266\202\2026 \211@@\262\2061\211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\2061A\312\211\203/\211A\262\242\3138\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%\"\210A\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	\"\204BB	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)" "\302A\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 \211A\266\202\2026 \211@@\262\2061 \211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\2061!A\312\211\203/\211A\262\242\3138\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%\"\210A\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	\"\204BB	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)" "\302A\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#!!\2620\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 \211A\266\202\202m \211@@\262\206h'\211\203\257 \315\322@@@A@#\232\204\257 \211A\266\202\202\224 \211@\262\206h(A\317\211\203f\211A\262\242\3238\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%\"\210A\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	\"\204yB	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)" "\302A\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 \211A\266\202\2026 \211@@\262\2061+\211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\2061,A\312\211\203/\211A\262\242\3138\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%\"\210A\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	\"\204BB	B\211\262\262\332@\3331x\211;\203[\334!@\202\\\211\335!\204f\336!\210\337\340\310\341#!!\2620\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\"\2111@\2112\350V\203\3502\351U\203\306\350\202\313\3502SB3\351-84\35243C\"5-AA\21165\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)" "\302A\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 \211A\266\202\2026 \211@@\262\2061)\211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\2061*A\312\211\203/\211A\262\242\3138\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%\"\210A\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	\"\204BB	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@/#01\203\322\347!\203\3220A\203\322\350+0AC\"\2100*\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)" "\302A\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 \211A\266\202\2026 \211@@\262\2061!\211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\2061\"A\312\211\203/\211A\262\242\3138\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%\"\210A\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	\"\204BB	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)" "\302A\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 \211A\266\202\2026 \211@@\262\2061\211\203x \310\311@@@A@#\232\204x \211A\266\202\202] \211@\262\2061A\312\211\203/\211A\262\242\3138\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%\"\210A\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	\"\204BB	B\211\262\262\306\"\211A@\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)" "\302A\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)