;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:53 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-int.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


(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 (#$ . 2054))
#@68 Check whether a connection to GNUS-COMMAND-METHOD has been opened.
(defalias 'gnus-server-opened #[(gnus-command-method) "\306!\307=?\205
;\203\373\211\203	<\203	\206\371\310	\n\"A\206\371	\311\232\203/\206\342\310	\f\"A\206\342\310	
\"A\206\342\203f	\312\313@@@@@A@#\232\204f\211A@\210\202C\211@@*\206\342\203\232	\312\313\211@@)@A@#\232\204\232\211A@\210\202u@)\206\342A\314\211\203\337\315\211A@8\211;\204\254	\314\316\317\320\215+\232\203\254\314\211\204\261+\211\203\366\310	\n\"\204\366	B\nB))\321\322\"A@!\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist gnus-server-status denied assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-get-function server-opened gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result] 6 (#$ . 2167)])
#@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 (#$ . 3857)])
#@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\273\n\203\307\310\fB\306$\203U;\203U\311\230\204U\311\230\204/\312\230\2036\313\314 D\202T\315\316\"\203Q\317\320\321\322\323\306O\324\"!D\325\306DF\202T\326D
@\211\313=\203j\327\313!\210\330\331\332\"\210\202\200\317=\203|\327\317!\210\330\331\333\"\210\202\200\327\326!\210
\334\335!\210'\203\217\336
!\210\337
!\206\273\340
!\206\273(\206\273\341\342\343
@
\211)A@)\344
!$!\206\273\345\323\346
A@#)\207" [how gnus-current-select-method confirm gnus-nntp-server gnus-secondary-servers gnus-select-method nil gnus-completing-read "NNTP server" "" "::" nnspool system-name string-match "^:" nnmh nnmh-directory file-name-as-directory expand-file-name 1 "~/" nnmh-get-new-mail nntp 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 "%s (%s) open error: '%s'.  Continue? " gnus-status-message gnus-error "Couldn't open server on %s" gnus-agent gnus-batch-mode x] 9 (#$ . 4230)])
#@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 (#$ . 5484)])
#@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;\203\363\211\203<\203\206\361\307\f\"A\206\361\310\232\203.	\206\335\307
\"A\206\335\307\"A\206\335\203f\311\312@@@@@A@#\232\204f\211A@\210\202C\211 @@*\206\335!\"\"\203\232\311\312\"\211 @@)\"@A@#\232\204\232\"\211A\"@\210\202u\"@)\206\335#A\306\211$%%\203\332\313%\211A%@8\211;\204\253\306\314&'\315\316\215+\232\203\253$\306\211%\204\260$+\211\203\357\307\f\"\204\357\nB\fB\n))\317!\203\375\314\202Y
(\204
\320\321\322@A@\323\232\203
\323\202
\311\324A@\"$\210\325\326!\210\327!\211(\204Y
\320\n\2032
\321\2023
\330\331@A@\323\232\203B
\323\202H
\311\324A@\"\n\203P
\332\202W
\311\333\334@!\"%\210*\207" [method gnus-select-method result server gnus-server-method-cache gnus-server-alist nil assoc "native" format "%s:%s" 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1="") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) 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-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match alist no-enter-cache nocache silent] 11 (#$ . 5718)])
#@56 Return a function symbol based on METHOD and FUNCTION.
(defalias 'gnus-get-function #[(method function &optional noerror) "\204\306\307!\210;\203\365\211\203	<\203	\206\363\310	\n\"A\206\363	\311\232\203.\206\334\310	\f\"A\206\334\310	
\"A\206\334\203e	\312\313@@@@@A@#\232\204e\211A@\210\202B\211@@*\206\334\203\231	\312\313\211@@)@A@#\232\204\231\211A@\210\202t@)\206\334 A\314\211!\"\"\203\331\315\"\211A\"@8\211;\204\252	\314\316#$\317\320\215+\232\203\252!\314\211\"\204\257!+\211%\203\360\310	\n\"\204\360	%B\nB%))&\203
\321!\203
@\202\f
\322\323!\210\323)\202
@\211'\324N()(\236\211*\204=
)\325\312\326')#!B*\327'\324*(B#\210*A)+\330+!\204p
@\204S
\306\331!\210\322@!\210\330+!\204p
,\203j
\314+\202p
\306\332+\"\210++\207" [method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist error "Attempted use of a nil select method" assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) 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-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match alist no-enter-cache nocache result gnus-agent method-sym method-fns function method-fnlist-elt func noerror] 7 (#$ . 7828)])
(defalias 'gnus-method-denied-p #[(method) "\302	\"A@\303=\207" [method gnus-opened-servers assoc denied] 3])
(defvar gnus-backend-trace nil)
#@43 Open a connection to GNUS-COMMAND-METHOD.
(defalias 'gnus-open-server #[(gnus-command-method) ";\203\362\211\203	<\203	\206\360\306	\n\"A\206\360	\307\232\203&\206\331\306	\f\"A\206\331\306	
\"A\206\331*++\203]	\310\311+@@@+@@A@#\232\204]+\211A+@\210\202:+\211,@@*\206\331-..\203\221	\310\311.\211,@@).@A@#\232\204\221.\211A.@\210\202l.@)\206\331/A\312\2110122\203\326\3132\211A2@8\2111;\204\243	1\312\314341\315\316\215+\232\203\24310\312\2112\204\2500+\2115\203\355\306	\n\"\204\355	5B\nB5))6\203
r\317\320!q\210\321 \210db\210\322\323!\310\324\"\261\210)\306*\"1\310\3251@\"\306\310\3251@\"\326\327!\"\2043
\33017\"\205J
1A@\205J
1A@\331\230?\205J
\3321A@PP)\2118A@\333=\203a
\334\335\336	#\210\312\202\365
\337\340\"9\341\342\343\2175\312:8\204\200
\312D\2118*B*8A5\203\227
9\344=\203\223
\345\202\303
\346\202\303
;\203\302
\347!\203\302
<\203\262
<\345=:<\202\303
=\204\276
\314:\345\202\303
\333\202\303
\333\240\210:\203\324
\333<\350!)\202\364
8\211,A@)\346=\203\362
;\203\362
\347!\203\362
\212\351!\210)5+*\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil #1="") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) get-buffer-create "*gnus trace*" buffer-disable-undo format-time-string "%H:%M:%S" " %S\n" "%s" 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 err (byte-code "	A@	AA\"\207" [open-server-function gnus-command-method] 3) ((error (byte-code "\302\303\304\305	!$\210\306\207" [server err gnus-message 1 "Unable to open server %s due to: %s" error-message-string nil] 6)) (quit (byte-code "\203\302\303!\210\202\304\305\306	#\210\307\207" [debug-on-quit server debug "Quit" gnus-message 1 "Quit trying to open server %s" nil] 4))) nnagent-open-server offline ok gnus-agent-method-p gnus-open-server gnus-agent-possibly-synchronize-flags-server gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result gnus-backend-trace gnus-message-archive-method elem open-server-function open-offline gnus-agent gnus-server-unopen-status gnus-batch-mode] 7 (#$ . 10072)])
#@46 Close the connection to GNUS-COMMAND-METHOD.
(defalias 'gnus-close-server #[(gnus-command-method) ";\203\362\211\203	<\203	\206\360\306	\n\"A\206\360	\307\232\203&\206\331\306	\f\"A\206\331\306	
\"A\206\331\203]	\310\311@@@@@A@#\232\204]\211A@\210\202:\211@@*\206\331\203\221	\310\311\211@@)@A@#\232\204\221\211A@\210\202l@)\206\331A\312\211\203\326\313\211A@8\211;\204\243	\312\314\315\316\215+\232\203\243\312\211\204\250+\211\203\355\306	\n\"\204\355	B\nB))\317\320\"A@!\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-get-function close-server gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result] 6 (#$ . 13119)])
#@51 Request the active file from GNUS-COMMAND-METHOD.
(defalias 'gnus-request-list #[(gnus-command-method) ";\203\362\211\203	<\203	\206\360\306	\n\"A\206\360	\307\232\203&\206\331\306	\f\"A\206\331\306	
\"A\206\331\203]	\310\311@@@@@A@#\232\204]\211A@\210\202:\211@@*\206\331\203\221	\310\311\211@@)@A@#\232\204\221\211A@\210\202l@)\206\331A\312\211\203\326\313\211A@8\211;\204\243	\312\314\315\316\215+\232\203\243\312\211\204\250+\211\203\355\306	\n\"\204\355	B\nB))\317\320\"A@!\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-get-function request-list gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result] 6 (#$ . 14741)])
#@49 Read and update infos from GNUS-COMMAND-METHOD.
(defalias 'gnus-finish-retrieve-group-infos #[(gnus-command-method infos data) ";\203\362\211\203	<\203	\206\360\306	\n\"A\206\360	\307\232\203&\206\331\306	\f\"A\206\331\306	
\"A\206\331\203]	\310\311@@@@@A@#\232\204]\211A@\210\202:\211@@*\206\331\203\221	\310\311\211@@)@A@#\232\204\221\211A@\210\202l@)\206\331A\312\211\203\326\313\211A@8\211;\204\243	\312\314\315\316\215+\232\203\243\312\211\204\250+\211\203\355\306	\n\"\204\355	B\nB))\317\320\"A@#\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-get-function finish-retrieve-group-infos gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result infos data] 6 (#$ . 16368)])
#@63 Start early async retrieval of data from GNUS-COMMAND-METHOD.
(defalias 'gnus-retrieve-group-data-early #[(gnus-command-method infos) ";\203\362\211\203	<\203	\206\360\306	\n\"A\206\360	\307\232\203&\206\331\306	\f\"A\206\331\306	
\"A\206\331\203]	\310\311@@@@@A@#\232\204]\211A@\210\202:\211@@*\206\331\203\221	\310\311\211@@)@A@#\232\204\221\211A@\210\202l@)\206\331A\312\211\203\326\313\211A@8\211;\204\243	\312\314\315\316\215+\232\203\243\312\211\204\250+\211\203\355\306	\n\"\204\355	B\nB))\317\320\"A@\"\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-get-function retrieve-group-data-early gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result infos] 6 (#$ . 18049)])
#@55 Request the newsgroups file from GNUS-COMMAND-METHOD.
(defalias 'gnus-request-list-newsgroups #[(gnus-command-method) ";\203\362\211\203	<\203	\206\360\306	\n\"A\206\360	\307\232\203&\206\331\306	\f\"A\206\331\306	
\"A\206\331\203]	\310\311@@@@@A@#\232\204]\211A@\210\202:\211@@*\206\331\203\221	\310\311\211@@)@A@#\232\204\221\211A@\210\202l@)\206\331A\312\211\203\326\313\211A@8\211;\204\243	\312\314\315\316\215+\232\203\243\312\211\204\250+\211\203\355\306	\n\"\204\355	B\nB))\317\320\"A@!\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-get-function request-list-newsgroups gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result] 6 (#$ . 19729)])
#@61 Request all new groups since DATE from GNUS-COMMAND-METHOD.
(defalias 'gnus-request-newgroups #[(date gnus-command-method) ";\203\362\211\203	<\203	\206\360\306	\n\"A\206\360	\307\232\203&\206\331\306	\f\"A\206\331\306	
\"A\206\331\203]	\310\311@@@@@A@#\232\204]\211A@\210\202:\211@@*\206\331\203\221	\310\311\211@@)@A@#\232\204\221\211A@\210\202l@)\206\331A\312\211\203\326\313\211A@8\211;\204\243	\312\314\315\316\215+\232\203\243\312\211\204\250+\211\203\355\306	\n\"\204\355	B\nB))\317\320\314#\211\205
A@\")\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-get-function request-newgroups gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result func date] 6 (#$ . 21382)])
#@53 Request a data generation from GNUS-COMMAND-METHOD.
(defalias 'gnus-request-regenerate #[(gnus-command-method) ";\203\362\211\203	<\203	\206\360\306	\n\"A\206\360	\307\232\203&\206\331\306	\f\"A\206\331\306	
\"A\206\331\203]	\310\311@@@@@A@#\232\204]\211A@\210\202:\211@@*\206\331\203\221	\310\311\211@@)@A@#\232\204\221\211A@\210\202l@)\206\331A\312\211\203\326\313\211A@8\211;\204\243	\312\314\315\316\215+\232\203\243\312\211\204\250+\211\203\355\306	\n\"\204\355	B\nB))\317\320\"A@!\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-get-function request-regenerate gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result] 6 (#$ . 23065)])
(defalias 'gnus-request-compact-group #[(group) "\304!\211\305\n\306\"\307\310\"\203\311\225\312O\202)\nA@\313#*\207" [group method gnus-command-method gname gnus-find-method-for-group gnus-get-function request-compact-group string-match "^[^:]+:" 0 nil t] 5])
#@53 Request groups compaction from GNUS-COMMAND-METHOD.
(defalias 'gnus-request-compact #[(gnus-command-method) ";\203\362\211\203	<\203	\206\360\306	\n\"A\206\360	\307\232\203&\206\331\306	\f\"A\206\331\306	
\"A\206\331\203]	\310\311@@@@@A@#\232\204]\211A@\210\202:\211@@*\206\331\203\221	\310\311\211@@)@A@#\232\204\221\211A@\210\202l@)\206\331A\312\211\203\326\313\211A@8\211;\204\243	\312\314\315\316\215+\232\203\243\312\211\204\250+\211\203\355\306	\n\"\204\355	B\nB))\317\320\"A@!\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-get-function request-compact gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result] 6 (#$ . 24979)])
#@60 Request GROUP.  If DONT-CHECK, no information is required.
(defalias 'gnus-request-group #[(group &optional dont-check gnus-command-method info) "\206Q	\306\206P	\204\f\206P\307	
\"J\204N
	4\310\3114\"\203;\312\313\314\3154\"\314\3164\"\2067\317#\202G\312\313\f@\f\2115A@)#)\2116\203Y6<\203Y6\206D
\32067\"A\206D
6\321\232\203n\f\206(
\32068\"A\206(
\32069\"A\206(
:;;\203\2526\312\313;@@@;@@A@#\232\204\252;\211A;@\210\202\206;\2115@@*\206(
<==\203\3376\312\313=\2115@@)=@A@#\232\204\337=\211A=@\210\202\271=@)\206(
>A\306\211?@AA\203%
\322A\211AA@8\211@;\204\3616@\306\323BC@\324\325\215+\232\203\361@?\306\211A\204\366?+\211D\203A
\32067\"\204A
6DB7B7D))\206P\326	!\206P\n\206Y
\316\307	
\"J8\306@\211\203q
\322\n8\211@\203q
@\321\232\203u
\f\202O@;\203}@\2116\203\216
6<\203\216
6\206y\32067\"A\206y6\321\232\203\243
\f\206]\32068\"A\206]\32069\"A\206]:;;\203\337
6\312\313;@@@;@@A@#\232\204\337
;\211A;@\210\202\273
;\2115@@*\206]<==\2036\312\313=\2115@@)=@A@#\232\204=\211A=@\210\202\356
=@)\206]>A\306\211?@AA\203Z\322A\211AA@8\211@;\204&6@\306\323BC@\324\327\215+\232\203&@?\306\211A\204+?+\211D\203v\32067\"\204v6DB7B7D))\202\346@\2115A@);\203\344@@\330\331@@!\332P!\211E@\2115AA)\236\204\263\333@E@A@DC\"@)F\306\211GHIG\204I\211AI@\211H\203@@H@=\203\276@HJK\334K\2115AA)!\334J\2115AA)!\306\211LMNO\335\336\215.\203\276H\211G\203\303G,\206\346	@@@@:\306H;@\203i;\203i;\211A;@@H@@H@\232\203'@\2115A@)H\2115A@)\232\203'\337@H\"\204'\306\211@\204,@+\204z@\2115AA)\204@\202\340\330\312\340@@\"!\211P@\2115AA)\236\203\261@@@\2115A@)\341	Q@\2115AA)BB\202\325@@@\2115A@)\341	QP@\2115A@)D@\2115AA)BBB\211@FBF@)*\202\346@\211@\2115A@)\317\232\203\371@\202O@\2115A@)\204\f@@\317D\202O@@\331@@!Q\342\320QR\">\203L\330Q\332P!@\236\204L\343@@R\236>\203L\333@\330Q\332P!@A@DC\"\202N@***\211;\203V\2116\203i6<\203i6\206T\32067\"A\206T6\321\232\203~\f\2068\32068\"A\2068\32069\"A\2068:;;\203\2726\312\313;@@@;@@A@#\232\204\272;\211A;@\210\202\226;\2115@@*\2068<==\203\3576\312\313=\2115@@)=@A@#\232\204\357=\211A=@\210\202\311=@)\2068>A\306\211?@AA\2035\322A\211AA@8\211@;\204
6@\306\323BC@\324\344\215+\232\203
@?\306\211A\204?+\211D\203Q\32067\"\204Q6DB7B7D))\345\306ST\211@\204g\346\347!\210@;\203n@\2116\203\2006<\203\2006\206k\32067\"A\206k6\321\232\203\225\f\206O\32068\"A\206O\32069\"A\206O:;;\203\3216\312\313;@@@;@@A@#\232\204\321;\211A;@\210\202\255;\2115@@*\206O<==\2036\312\313=\2115@@)=@A@#\232\204=\211A=@\210\202\340=@)\206O>A\306\211?@AA\203L\322A\211AA@8\211@;\2046@\306\323BC@\324\350\215+\232\203@?\306\211A\204?+\211D\203h\32067\"\204h6DB7B7D))@U\203\215@@\351@!\203\204@@\202\211\352\353!\210\353)\202\220@@\211V\354NWTW\236\211X\204\273T\330\312\355VT#!BX\356V\354XWB#\210XA)Y\357Y!\204\360@@\204\322\346\360!\210\352@@!\210\357Y!\204\360S\203\352\306Y\202\360\346\361Y\"\210Y.	4\310\3624\"\2034\363\225\306O\202\n4)A@Z\n$)\207" [gnus-command-method group info gnus-override-method gnus-select-method gnus-newsrc-hashtb nil intern-soft string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 #1="" assoc "native" 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2=(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#3=(server-alist) "\301\302\"\207" [server-alist mapc #[#4=(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5=(nil #1#) format #6="%s" #7="%s:%s" assoc x name name-method no-enter-cache] 5) gnus-group-name-to-method (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#3# "\301\302\"\207" [server-alist mapc #[#4# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5# format #6# #7# assoc x name name-method no-enter-cache] 5) intern symbol-name "-address" append copy-sequence --cl-block-nil-- (byte-code "\211A@\211\203w	@\n\236\211\204\306\307\310\"\210\311\n\"	\232\204	\211A@);\2037\211A@);\204?\306\307\310\"\210\202	\211A@)\211A@)
\312\313
\"\203\\\314
!
\312\313
\"\203g\314
!

\232\204s\306\307\310\"\210*\202\n?\207" [p1 e1 p2 e2 x s2 throw --cl-block-nil-- nil delq string-match "/$" directory-file-name s1] 4) gnus-methods-sloppily-equal "%s-address" "+" address physical-address (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#3# "\301\302\"\207" [server-alist mapc #[#4# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5# format #6# #7# assoc x name name-method no-enter-cache] 5) request-group error "Attempted use of a nil select method" (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#3# "\301\302\"\207" [server-alist mapc #[#4# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5# format #6# #7# assoc x name name-method no-enter-cache] 5) gnus-online require nnagent gnus-method-functions "%s-%s" put fboundp "Trying to require a method that doesn't exist" "No such function: %s" "^[^:]+:" 0 gname x server gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result slot gnus-extended-servers found open methods m2 m1 e2 e1 p2 p1 address-slot method-name gnus-valid-select-methods noerror function gnus-agent method-sym method-fns method-fnlist-elt func dont-check] 7 (#$ . 26614)])
#@33 Request a description of GROUP.
(defalias 'gnus-request-group-description #[(group) "\304!\305	\306\307\310\217*\205-\311\n	\"\312\313\"\203'\314\225\306O\202()\nA@\"*\207" [group func gnus-command-method gname gnus-find-method-for-group request-group-description nil (byte-code ";\203\f\303!@\202
\304	!\204\305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) gnus-get-function string-match "^[^:]+:" 0] 4 (#$ . 33999)])
#@30 Request the GROUP be closed.
(defalias 'gnus-close-group #[(group) "\306\n\206H\204\206H\307\f\"J\204F
\310\311
\"\2033\312\313\314\315
\"\314\316
\"\206/\317#\202?\312\313@\211(A@)#)\211)\203Q)<\203Q)\206<
\320)*\"A\206<
)\321\232\203f\206 
\320)+\"A\206 
\320),\"A\206 
-..\203\242)\312\313.@@@.@@A@#\232\204\242.\211A.@\210\202~.\211(@@*\206 
/00\203\327)\312\3130\211(@@)0@A@#\232\204\3270\211A0@\210\202\2610@)\206 
1A\306\2112344\203
\3224\211A4@8\2113;\204\351)3\306\323563\324\325\215+\232\203\35132\306\2114\204\3562+\2117\2039
\320)*\"\2049
)7B*B*7))\206H\326!\206H	\206Q
\316\307\f\"J8\3063\211\203i
\322	8\2113\203i
3\321\232\203m
\202G3;\203u3\211)\203\206
)<\203\206
)\206q\320)*\"A\206q)\321\232\203\233
\206U\320)+\"A\206U\320),\"A\206U-..\203\327
)\312\313.@@@.@@A@#\232\204\327
.\211A.@\210\202\263
.\211(@@*\206U/00\203\f)\312\3130\211(@@)0@A@#\232\204\f0\211A0@\210\202\346
0@)\206U1A\306\2112344\203R\3224\211A4@8\2113;\204)3\306\323563\324\327\215+\232\20332\306\2114\204#2+\2117\203n\320)*\"\204n)7B*B*7))\202\3363\211(A@);\203\33433\330\3313@!\332P!\21183\211(AA)\236\204\253\333383A@DC\"3)9\306\211:;<:\204<\211A<@\211;\2033@;@=\203\2663;=>\334>\211(AA)!\334=\211(AA)!\306\211?@AB\335\336\215.\203\266;\211:\203\273:,\206\3363333-\306;.3\203a.\203a.\211A.@@;3@;@\232\2033\211(A@);\211(A@)\232\203\3373;\"\204\306\2113\204$3+\204r3\211(AA)\204w3\202\330\330\312\3403@\"!\211C3\211(AA)\236\203\2513@3\211(A@)\341Q3\211(AA)BB\202\3153@3\211(A@)\341QC3\211(A@)D3\211(AA)BBB\21139B93)*\202\3363\2113\211(A@)\317\232\203\3613\202G3\211(A@)\2043@\317D\202G33\3313@!D\342\320DE\">\203D\330D\332P!3\236\204D\3433@E\236>\203D\3333\330D\332P!3A@DC\"\202F3***F\344F\345\"\310\346
\"\203a
\347\225\306O\202b
)FA@\")\207" [group info gnus-override-method gnus-select-method gnus-newsrc-hashtb gname nil intern-soft string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" format "%s:%s" match-string 1 2 #1="" assoc "native" 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2=(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#3=(server-alist) "\301\302\"\207" [server-alist mapc #[#4=(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5=(nil #1#) format #6="%s" #7="%s:%s" assoc x name name-method no-enter-cache] 5) gnus-group-name-to-method (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[#2# "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[#3# "\301\302\"\207" [server-alist mapc #[#4# "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] #5# format #6# #7# assoc x name name-method no-enter-cache] 5) intern symbol-name "-address" append copy-sequence --cl-block-nil-- (byte-code "\211A@\211\203w	@\n\236\211\204\306\307\310\"\210\311\n\"	\232\204	\211A@);\2037\211A@);\204?\306\307\310\"\210\202	\211A@)\211A@)
\312\313
\"\203\\\314
!
\312\313
\"\203g\314
!

\232\204s\306\307\310\"\210*\202\n?\207" [p1 e1 p2 e2 x s2 throw --cl-block-nil-- nil delq string-match "/$" directory-file-name s1] 4) gnus-methods-sloppily-equal "%s-address" "+" address physical-address gnus-get-function close-group "^[^:]+:" 0 x server gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result slot gnus-extended-servers found open methods m2 m1 e2 e1 p2 p1 address-slot method-name gnus-valid-select-methods gnus-command-method] 7 (#$ . 34542)])
#@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\225\320O\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 "^[^:]+:" 0 nil gname] 5 (#$ . 39088)])
#@28 Request ARTICLES in GROUP.
(defalias 'gnus-retrieve-articles #[(articles group) "\304!\305	\306\"\n\307\310\"\203\311\225\312O\202)	A@#)\207" [group gnus-command-method articles gname gnus-find-method-for-group gnus-get-function retrieve-articles string-match "^[^:]+:" 0 nil] 5 (#$ . 39713)])
#@64 Request active information on GROUPS from GNUS-COMMAND-METHOD.
(defalias 'gnus-retrieve-groups #[(groups gnus-command-method) ";\203\362\211\203	<\203	\206\360\306	\n\"A\206\360	\307\232\203&\206\331\306	\f\"A\206\331\306	
\"A\206\331\203]	\310\311@@@@@A@#\232\204]\211A@\210\202:\211@@*\206\331\203\221	\310\311\211@@)@A@#\232\204\221\211A@\210\202l@)\206\331A\312\211\203\326\313\211A@8\211;\204\243	\312\314\315\316\215+\232\203\243\312\211\204\250+\211\203\355\306	\n\"\204\355	B\nB))\317\320\"A@\"\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-get-function retrieve-groups gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result groups] 6 (#$ . 40024)])
#@60 Return the type (`post' or `mail') of GROUP (and ARTICLE).
(defalias 'gnus-request-type #[(group &optional article) "\305!\306	@\307\310\311\217*\204\312\202.\313	\306\"\314\315\"\203*\316\225\307O\202+)\f\")\207" [group gnus-command-method func gname article gnus-find-method-for-group request-type nil (byte-code ";\203\f\303!@\202
\304	!\204\305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) unknown gnus-get-function string-match "^[^:]+:" 0] 4 (#$ . 41687)])
#@85 Change the status of a group.
Valid statuses include `subscribe' and `unsubscribe'.
(defalias 'gnus-request-update-group-status #[(group status) "\305!\306	@\307\310\311\217*\205-\312	\306\"\313\314\"\203&\315\225\307O\202')\f	A@#)\207" [group gnus-command-method func gname status gnus-find-method-for-group request-update-group-status nil (byte-code ";\203\f\303!@\202
\304	!\204\305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) gnus-get-function string-match "^[^:]+:" 0] 4 (#$ . 42274)])
#@40 Set marks on articles in the back end.
(defalias 'gnus-request-set-mark #[(group action) "\306!\307	@\310\311\312\217*\204\2027\313	\307\"\314\315\f\"\203*\f\316\225\310O\202+\f)	A@#\210\317
#)\207" [group gnus-command-method func action gname gnus-after-set-mark-hook gnus-find-method-for-group request-set-mark nil (byte-code ";\203\f\303!@\202
\304	!\204\305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) gnus-get-function string-match "^[^:]+:" 0 gnus-run-hook-with-args] 4 (#$ . 42888)])
#@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	@\310\311\312\217*\204\202:\313\f
$\210\314	\307\"\315\316\"\2034\317\225\310O\2026)
#)\207" [group gnus-command-method func mark gnus-before-update-mark-hook article gnus-find-method-for-group request-update-mark nil (byte-code ";\203\f\303!@\202
\304	!\204\305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) gnus-run-hook-with-args gnus-get-function string-match "^[^:]+:" 0 gname] 5 (#$ . 43505)])
#@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\225\313O\202)	A@\f$)\207" [group gnus-command-method article gname buffer gnus-find-method-for-group gnus-get-function request-article string-match "^[^:]+:" 0 nil] 5 (#$ . 44182)])
#@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\225\312O\202)\")\207" [group gnus-command-method header gname gnus-find-method-for-group gnus-get-function request-thread string-match "^[^:]+:" 0 nil] 5 (#$ . 44627)])
#@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) "\303\304\305#\306\304\307#\210\310\216\311\312\313\312\314\315&\210*\316!\317\320\321\217)\207" [group saved-display group-is-new gnus-group-get-parameter display :allow-list gnus-group-set-parameter 0 ((byte-code "\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 err (byte-code "\302!\211\204
\303\304\305\"\210\306\307\211\211	$\210	)\207" [message-id article-number gnus-summary-insert-subject signal error "message-id not in group" gnus-summary-select-article nil] 6) ((error (byte-code "\203\302 \210\303\304	\"\207" [group-is-new err gnus-summary-exit apply signal] 3)))] 7 (#$ . 44978)])
#@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\225\306O\202	)\307!\"\207" [group gname gnus-group-prefixed-name string-match "^[^:]+:" 0 nil gnus-group-method] 4 (#$ . 45970)])
#@106 Warps from an article in a virtual group to the article in its
real group. Does nothing on a real group.
(defalias 'gnus-warp-to-article #[nil "\305!\205,\306!\307	@\310\311\312\217*\203\313	\307\" \206+\314\304!\205+\f\205+\315 )\207" [gnus-newsgroup-name gnus-command-method group func gnus-registry-enabled gnus-virtual-group-p gnus-find-method-for-group warp-to-article nil (byte-code ";\203\f\303!@\202
\304	!\204\305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) gnus-get-function boundp gnus-try-warping-via-registry] 3 (#$ . 46300) 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\225\312O\202a)	A@#\202r\321\"\311\f\203\217rq\210eb\210\322\323\312\311#\203\213`Sd|\210\324 \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 "^[^:]+:" 0 gnus-request-article search-forward "\n\n" nnheader-fold-continuation-lines article gnus-override-method gname nntp-server-buffer] 6 (#$ . 46966)])
#@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\225\312O\202[)	A@#\202l\321\"\311\f\203\206rq\210eb\210\322\323\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 "^[^:]+:" 0 gnus-request-article search-forward "\n\n" article gname nntp-server-buffer] 6 (#$ . 47704)])
#@52 Post the current buffer using GNUS-COMMAND-METHOD.
(defalias 'gnus-request-post #[(gnus-command-method) ";\203\362\211\203	<\203	\206\360\306	\n\"A\206\360	\307\232\203&\206\331\306	\f\"A\206\331\306	
\"A\206\331\203]	\310\311@@@@@A@#\232\204]\211A@\210\202:\211@@*\206\331\203\221	\310\311\211@@)@A@#\232\204\221\211A@\210\202l@)\206\331A\312\211\203\326\313\211A@8\211;\204\243	\312\314\315\316\215+\232\203\243\312\211\204\250+\211\203\355\306	\n\"\204\355	B\nB))\317\320\"A@!\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-get-function request-post gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result] 6 (#$ . 48370)])
#@77 Expunge GROUP, which is removing articles that have been marked as deleted.
(defalias 'gnus-request-expunge-group #[(group gnus-command-method) ";\203\362\211\203	<\203	\206\360\306	\n\"A\206\360	\307\232\203&\206\331\306	\f\"A\206\331\306	
\"A\206\331\203]	\310\311@@@@@A@#\232\204]\211A@\210\202:\211@@*\206\331\203\221	\310\311\211@@)@A@#\232\204\221\211A@\210\202l@)\206\331A\312\211\203\326\313\211A@8\211;\204\243	\312\314\315\316\215+\232\203\243\312\211\204\250+\211\203\355\306	\n\"\204\355	B\nB))\317\320\" !\321\322!\"\203
!\323\225\312O\202

!)A@\"\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-get-function request-expunge-group string-match "^[^:]+:" 0 gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result group gname] 6 (#$ . 49998)])
#@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\225\316O\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 "^[^:]+:" 0 nil gname] 4 (#$ . 51760)])
(defalias 'gnus-request-update-info #[(info gnus-command-method) "\306@\307\310\311\217*\205$
;\203

\211\203!<\203!\206\377\312\f\"A\206\377\313\232\2033
\206\350\312\"A\206\350\312\"A\206\350\203l\314\315@@@@@A@#\232\204l\211A@\210\202I\211@@*\206\350\203\240\314\315\211@@)@A@#\232\204\240\211A@\210\202{@)\206\350A\307\211  \203\345\316 \211A @8\211;\204\262\307\317!\"\320\321\215+\232\203\262\307\211 \204\267+\211#\203\374\312\f\"\204\374#B\fB#))\322\306\"$@%\323\324%\"\203
%\325\225\307O\202
%)$A@#\207" [gnus-command-method group func server gnus-server-method-cache gnus-select-method request-update-info nil (byte-code ";\203\f\303!@\202
\304	!\204\305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) assoc "native" format "%s:%s" 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-get-function string-match "^[^:]+:" 0 gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result info gname] 6])
#@47 Request that GNUS-COMMAND-METHOD update INFO.
(defalias 'gnus-request-marks #[(info gnus-command-method) ";\203\362\211\203	<\203	\206\360\306	\n\"A\206\360	\307\232\203&\206\331\306	\f\"A\206\331\306	
\"A\206\331\203]	\310\311@@@@@A@#\232\204]\211A@\210\202:\211@@*\206\331\203\221	\310\311\211@@)@A@#\232\204\221\211A@\210\202l@)\206\331A\312\211 !\"\"\203\326\313\"\211A\"@8\211!;\204\243	!\312\314#$!\315\316\215+\232\203\243! \312\211\"\204\250 +\211%\203\355\306	\n\"\204\355	%B\nB%))\317@&'\312\320\321\217*\205l
(@&\322\317\"&)\323\324)\"\203
)\325\225\312O\202!
))(A@#\205k
\326&*\"J\211+@\211,\327V\203h
,\330U\203I
\327\202N
\327,SB-\330(8.\331.-C\"/(AA/\240\210+(*)\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) request-marks (byte-code ";\203\f\303!@\202
\304	!\204\305	!\210\306\307\310\311	\n#!!)\207" [group method func gnus-find-method-for-group featurep require fboundp intern format "%s-%s"] 6) ((error)) gnus-get-function string-match "^[^:]+:" 0 intern-soft 1 2 gnus-range-add gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result group func info gname gnus-active-hashtb active min range read new-read] 6 (#$ . 54237)])
(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$\f\320\225\310O\202%\f)	A@
$\203K\321	!\203K\322\n\"\211\203J\323\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 "^[^:]+:" 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\225\314O\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 "^[^:]+:" 0 nil 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) ";\203\362\211\203	<\203	\206\360\306	\n\"A\206\360	\307\232\203&\206\331\306	\f\"A\206\331\306	
\"A\206\331\203]	\310\311@@@@@A@#\232\204]\211A@\210\202:\211@@*\206\331 !!\203\221	\310\311!\211@@)!@A@#\232\204\221!\211A!@\210\202l!@)\206\331\"A\312\211#$%%\203\326\313%\211A%@8\211$;\204\243	$\312\314&'$\315\316\215+\232\203\243$#\312\211%\204\250#+\211(\203\355\306	\n\"\204\355	(B\nB())\204
);\203
\317)!\206
\320)!db\210n\204
\321c\210*\204.
++\322 \210\214\323 \210,-\324 \210*\325 \210)\2066
\317)!\326\327\");\203[
).\330\331.\"\203U
.\332\225\312O\202W
.)\202]
)\211A@)/#(0\203\204
\333!\203\204
(A\203\204
\334)(AC\"\210(*\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) 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 "^[^:]+:" 0 gnus-agent-method-p gnus-agent-regenerate-group gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result group no-encode message-options message-default-charset mail-parse-charset gname last gnus-agent] 6])
(defalias 'gnus-request-replace-article #[(article group buffer &optional no-encode) "\204	\306 \210\214\307 \210\n\310 \210*\311 \210)\312\f!@\313\314\315
\"!\f\316\317\"\2038\320\225\321O\202:)#\203S\322!\203S\323\fC\"\210*\207" [no-encode message-options message-default-charset mail-parse-charset group func 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 "^[^:]+:" 0 nil gnus-agent-method-p gnus-agent-regenerate-group article gname 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\225\312O\202)	A@#)\207" [group gnus-command-method article gname gnus-find-method-for-group gnus-get-function request-restore-buffer string-match "^[^:]+:" 0 nil] 5 (#$ . 60391)])
(defalias 'gnus-request-create-group #[(group &optional gnus-command-method args) ";\203\362\211\203	<\203	\206\360\306	\n\"A\206\360	\307\232\203&\206\331\306	\f\"A\206\331\306	
\"A\206\331\203]	\310\311@@@@@A@#\232\204]\211A@\210\202:\211@@*\206\331\203\221	\310\311\211@@)@A@#\232\204\221\211A@\210\202l@)\206\331A\312\211\203\326\313\211A@8\211;\204\243	\312\314\315\316\215+\232\203\243\312\211\204\250+\211 \203\355\306	\n\"\204\355	 B\nB ))\206\372\317!!\320\321\"!\"\322\323\"\"\203
\"\324\225\312O\202
\")A@##)\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) gnus-find-method-for-group gnus-get-function request-create-group string-match "^[^:]+:" 0 gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result group gname args] 6])
(defalias 'gnus-request-delete-group #[(group &optional force) "\305!\306	\307\"\310\311\n\"\203\n\312\225\313O\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 "^[^:]+:" 0 nil gnus-cache-delete-group gnus-agent-delete-group] 5])
(defalias 'gnus-request-rename-group #[(group new-name) "\305!\306	\307\"\310\311\n\"\203\n\312\225\313O\202\n)\310\311\n\"\203,\n\312\225\313O\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 "^[^:]+:" 0 nil gnus-cache-rename-group gnus-agent-rename-group] 6])
(defalias 'gnus-close-backends #[nil "\305\306\211\f\211A@\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) ";\203\362\211\203	<\203	\206\360\306	\n\"A\206\360	\307\232\203&\206\331\306	\f\"A\206\331\306	
\"A\206\331\203]	\310\311@@@@@A@#\232\204]\211A@\210\202:\211@@*\206\331\203\221	\310\311\211@@)@A@#\232\204\221\211A@\210\202l@)\206\331A\312\211\203\326\313\211A@8\211;\204\243	\312\314\315\316\215+\232\203\243\312\211\204\250+\211\203\355\306	\n\"\204\355	B\nB))\306\"\211\211A@)\211\317=\205

A\320\240*\207" [gnus-command-method server gnus-server-method-cache gnus-select-method gnus-server-alist gnus-predefined-server-alist assoc "native" format "%s:%s" nil 4 t server-name (byte-code "\206	\n\204\306\307\"\210\306\310\f
D\"\210\211A@)\311\235\203*\312\313@\"\2026\312\314@\211A@)#\211B\211\235\204V\204V\315@\"\204VB*\207" [method gnus-select-method nocache gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist mapc #[(name-method) "A	\232\205\f\302\303@\"\207" [name-method method throw server-name] 3] #[(server-alist) "\301\302\"\207" [server-alist mapc #[(name-method) "\303A	\"\205\n\235\204\nB\304\305@\"\207" [name-method method gnus-server-method-cache gnus-methods-equal-p throw server-name] 3]] 3] (nil "") format "%s" "%s:%s" assoc x name name-method no-enter-cache] 5) denied closed gnus-opened-servers opened x gnus-secondary-select-methods servers gnus-newsrc-alist match method alist no-enter-cache nocache result elem status] 6])
(provide 'gnus-int)