;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:17 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/nnagent.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 "\302\303!\210\302\304!\210\302\305!\210\302\306!\210\307\236\203#\307\236A\310\311\312\"\240\210\202.\307\310\311\312\"\313\211FB\307	\236\204:\307\314D	B\313\207" [nnoo-definition-alist nnoo-state-alist require nnheader nnoo gnus-agent nnml nnagent mapcar list (nnml) nil "*internal-non-initialized-backend*"] 4)
(defconst nnagent-version "nnagent 1.0")
#@92 Internal variable.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnagent-directory nil (#$ . 930))
(nnoo-define 'nnagent-directory '(nnml-directory))
#@92 Internal variable.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnagent-active-file nil (#$ . 1120))
(nnoo-define 'nnagent-active-file '(nnml-active-file))
#@92 Internal variable.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnagent-newsgroups-file nil (#$ . 1317))
(nnoo-define 'nnagent-newsgroups-file '(nnml-newsgroups-file))
#@92 Internal variable.

This is a Gnus server variable.  See Info node `(gnus)Select Methods'.
(defvar nnagent-get-new-mail nil (#$ . 1526))
(byte-code "\300\301\302\"\210\303\304!\207" [nnoo-define nnagent-get-new-mail (nnml-get-new-mail) nnoo-define-basics-1 nnagent] 3)
(defalias 'nnagent-server #[(server) "\205\n\302\303	@#\207" [server gnus-command-method format "%s+%s"] 4])
(defalias 'nnagent-open-server #[(server &optional defs) "\306\307\310\311	@!\312	\211A@)\313\232\203\314\202	\211A@)Q!\312#D\315\316\317!D\320\316\321!D\322BBB\323\324\325\f!#\210\307\310\311	@!\312	\211A@)\313\232\203Q\314\202W	\211A@)Q!\312#\326#\327\330\331\217\204x\332 \210\333\324
\206t\334\335#\"\"\202\226\336\337#!!\204\215\332 \210\333\324\340##\202\226\333\324\341\f#$\210\342*\207" [gnus-agent-directory gnus-command-method x defs server err nnagent-directory nnheader-concat nnheader-translate-file-chars symbol-name "/" "" "unnamed" nnagent-active-file gnus-agent-lib-file "active" nnagent-newsgroups-file "newsgroups" ((nnagent-get-new-mail nil)) nnoo-change-server nnagent nnagent-server nil arg (file-exists-p dir) ((ftp-error (byte-code "\302\303\"\211\207" [arg err format "%s"] 3))) nnagent-close-server nnheader-report format "No such file or directory: %s" file-directory-p file-truename "Not a directory: %s" "Opened server %s using directory %s" t dir] 8])
(nnoo-register-function 'nnagent-open-server)
(defalias 'nnagent-retrieve-groups #[(groups &optional server) "\212\300\301\302!!\203\303\301\302!!\210\304\202&\300\301\305!!\203%\303\301\305!!\210\306\202&\307)\207" [file-exists-p gnus-agent-lib-file "groups" nnmail-find-file groups "active" active nil] 3])
(nnoo-register-function 'nnagent-retrieve-groups)
(defalias 'nnagent-request-type #[(group article) ";?\2053\306\307\n@\306\310\311\217*\204\312\2022\313\n\307\"\314\315
\"\203.
\316\225\306O\202/
)\")\207" [article gnus-agent gnus-command-method group func gname nil request-type (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])
(defalias 'nnagent-request-newgroups #[(date server) "\300\207" [nil] 1])
(nnoo-register-function 'nnagent-request-newgroups)
(defalias 'nnagent-request-update-info #[(group info &optional server) "\300\207" [nil] 1])
(nnoo-register-function 'nnagent-request-update-info)
(defalias 'nnagent-request-post #[(&optional server) "\301\302\"\210\303\304\305\306\211$\207" [gnus-command-method gnus-agent-insert-meta-information news gnus-request-accept-article "nndraft:queue" nil t] 5])
(nnoo-register-function 'nnagent-request-post)
(defalias 'nnagent-request-set-mark #[(group action server) "\306\307!rq\210\310\216\311 \210\312	\313\261\210\314\n!\210\315\316\211\317\320\215+\321\261\210\322c\210\323ed\324\325!\326\327%\210,\316 @\330>\203[\331@!\316\332\333\217*\203[\334\331\"	\n\"#\210)\316\207" [#1=#:temp-buffer group action gnus-command-method no-enter-cache nocache generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-disable-multibyte "(gnus-agent-synchronize-group-flags \"" "\" '" gnus-pp " \"" nil 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) "\"" ")\n" write-region gnus-agent-lib-file "flags" t silent (nntp) request-set-mark (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 method nnheader-file-coding-system coding-system-for-write gnus-agent func server] 6])
(nnoo-register-function 'nnagent-request-set-mark)
(defalias 'nnagent-retrieve-headers #[(articles &optional group server fetch-old) "\306\307\"\310\211\211\212\311!\210\312
\313\314\"\"\211@@)\211\203:\203:@	W\203:\211A@\210\202&q\210\315 \210\316\f
@\"\210)eb\210m\204[\310\317\320\217\210\202O\203q\321\322@@#c\210\211A@\210\202[\203|\247\203\224\323\203\214\324
@Z]\202\216
@\325
!@\"\210-\326\207" [group first n arts file articles gnus-agent-article-name ".overview" nil gnus-agent-load-alist gnus-sorted-difference mapcar car erase-buffer nnheader-insert-nov-file (byte-code "\203Jm\204J\302p!\211@V\203\303 \210\2033	@V\2033\304\305@@#c\210\211A@\210\202\203D	@U\203D\211A@\210\306y\210\202db\207" [arts n read beginning-of-line format "%d	[Undownloaded article %d]	Gnus Agent			\n" 1] 5) ((error (byte-code "\300\301\302\303e`\"#\210\304y\207" [gnus-error 4 "Invalid data on line %d" count-lines 1] 6))) format "%d	[Undownloaded article %d]	Gnus Agent			\n" nnheader-nov-delete-outside-range 1 last nov gnus-agent-article-alist x nntp-server-buffer nnmail-pathname-coding-system file-name-coding-system fetch-old] 6])
(nnoo-register-function 'nnagent-retrieve-headers)
(defalias 'nnagent-request-expire-articles #[(articles group &optional server force) "\207" [articles] 1])
(nnoo-register-function 'nnagent-request-expire-articles)
(defalias 'nnagent-request-group #[(group &optional server dont-check info) "\304\305\306\307	!\nF#\207" [group server dont-check info nnoo-parent-function nnagent nnml-request-group nnagent-server] 7])
(nnoo-register-function 'nnagent-request-group)
(defalias 'nnagent-close-group #[(group &optional server) "\302\303\304\305	!D#\207" [group server nnoo-parent-function nnagent nnml-close-group nnagent-server] 6])
(nnoo-register-function 'nnagent-close-group)
(defalias 'nnagent-request-accept-article #[(group &optional server last) "\303\304\305\306	!\nE#\207" [group server last nnoo-parent-function nnagent nnml-request-accept-article nnagent-server] 6])
(nnoo-register-function 'nnagent-request-accept-article)
(defalias 'nnagent-request-article #[(id &optional group server buffer) "\304\305\306	\307\n!F#\207" [id group server buffer nnoo-parent-function nnagent nnml-request-article nnagent-server] 7])
(nnoo-register-function 'nnagent-request-article)
(defalias 'nnagent-request-create-group #[(group &optional server args) "\303\304\305\306	!\nE#\207" [group server args nnoo-parent-function nnagent nnml-request-create-group nnagent-server] 6])
(nnoo-register-function 'nnagent-request-create-group)
(defalias 'nnagent-request-delete-group #[(group &optional force server) "\303\304\305	\306\n!E#\207" [group force server nnoo-parent-function nnagent nnml-request-delete-group nnagent-server] 7])
(nnoo-register-function 'nnagent-request-delete-group)
(defalias 'nnagent-request-list #[(&optional server) "\301\302\303\304!C#\207" [server nnoo-parent-function nnagent nnml-request-list nnagent-server] 5])
(nnoo-register-function 'nnagent-request-list)
(defalias 'nnagent-request-list-newsgroups #[(&optional server) "\301\302\303\304!C#\207" [server nnoo-parent-function nnagent nnml-request-list-newsgroups nnagent-server] 5])
(nnoo-register-function 'nnagent-request-list-newsgroups)
(defalias 'nnagent-request-move-article #[(article group server accept-form &optional last move-is-internal) "\306\307\310	\311\n!\f
\257#\207" [article group server accept-form last move-is-internal nnoo-parent-function nnagent nnml-request-move-article nnagent-server] 9])
(nnoo-register-function 'nnagent-request-move-article)
(defalias 'nnagent-request-rename-group #[(group new-name &optional server) "\303\304\305	\306\n!E#\207" [group new-name server nnoo-parent-function nnagent nnml-request-rename-group nnagent-server] 7])
(nnoo-register-function 'nnagent-request-rename-group)
(defalias 'nnagent-request-scan #[(&optional group server) "\302\303\304\305	!D#\207" [group server nnoo-parent-function nnagent nnml-request-scan nnagent-server] 6])
(nnoo-register-function 'nnagent-request-scan)
(defalias 'nnagent-set-status #[(article name value &optional group server) "\305\306\307	\n\310\f!\257#\207" [article name value group server nnoo-parent-function nnagent nnml-set-status nnagent-server] 9])
(nnoo-register-function 'nnagent-set-status)
(defalias 'nnagent-server-opened #[(&optional server) "\301\302\303\304!C#\207" [server nnoo-parent-function nnagent nnml-server-opened nnagent-server] 5])
(nnoo-register-function 'nnagent-server-opened)
(defalias 'nnagent-status-message #[(&optional server) "\301\302\303\304!C#\207" [server nnoo-parent-function nnagent nnml-status-message nnagent-server] 5])
(nnoo-register-function 'nnagent-status-message)
(defalias 'nnagent-request-regenerate #[(server) "\301\302\303\304!C#\207" [server nnoo-parent-function nnagent nnml-request-regenerate nnagent-server] 5])
(nnoo-register-function 'nnagent-request-regenerate)
(defalias 'nnagent-retrieve-group-data-early #[(server infos) "\300\207" [nil] 1])
(byte-code "\300\301!\210\302\303\304\"\210\305\303!\207" [nnoo-register-function nnagent-retrieve-group-data-early nnoo-import-1 nnagent ((nnml)) provide] 3)