;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (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 (#$ . 459)) (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 (#$ . 649)) (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 (#$ . 845)) (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 (#$ . 1053)) (byte-code "\300\301\302\"\210\303\304\305\"\210\306\304!\210\303\307\310\"\210\306\307!\210\303\311\312\"\210\306\311!\210\303\313\314\"\210\306\313!\207" [nnoo-define nnagent-get-new-mail (nnml-get-new-mail) defalias nnagent-server-opened #[256 "\300\301\"\207" [nnoo-server-opened nnagent] 4 "\n\n(fn &optional SERVER)"] nnoo-register-function nnagent-status-message #[256 "\300\301\"\207" [nnoo-status-message nnagent] 4 "\n\n(fn &optional SERVER)"] nnagent-close-server #[512 "\300\301\"\207" [nnoo-close-server nnagent] 5 "\n\n(fn &optional SERVER DEFS)"] nnagent-open-server #[513 "\300\301#\207" [nnoo-change-server nnagent] 6 "\n\n(fn SERVER &optional DEFS)"]] 3) #@15 (fn SERVER) (defalias 'nnagent-server #[257 "\211\205\n\301\302@#\207" [gnus-command-method format "%s+%s"] 5 (#$ . 1874)]) #@30 (fn SERVER &optional DEFS) (defalias 'nnagent-open-server #[513 "\302\303\304\305 @!\306 A@\307\232\203\310\202 A@Q!\306#D\311\312\313!D\314\312\315!D\316BBB\262\317\320\321!#\210\303\304\305 @!\306 A@\307\232\203I\310\202L A@Q!\306#\322\3231\\\324!0\202e\325\326\"\211\262\262\204w\327 \210\330\320\206u\325\331\"\"\207\332\333!!\204\210\327 \210\330\320\334#\207\330\320\335$\210\336\207" [gnus-agent-directory gnus-command-method 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 (ftp-error) file-exists-p format "%s" nnagent-close-server nnheader-report "No such file or directory: %s" file-directory-p file-truename "Not a directory: %s" "Opened server %s using directory %s" t] 10 (#$ . 2009)]) (nnoo-register-function 'nnagent-open-server) #@32 (fn GROUPS &optional SERVER) (defalias 'nnagent-retrieve-groups #[513 "\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] 5 (#$ . 2995)]) (nnoo-register-function 'nnagent-retrieve-groups) #@22 (fn GROUP ARTICLE) (defalias 'nnagent-request-type #[514 "\211;?\205Y\302\303 @\30418\211;\203\305!@\202\211\306!\204&\307!\210\310\311\312\313#!!\2620\266\202\202;\266\302\204B\314\202X\315 \303\"\316\317\"\203U\320\225\302O\202V\")\207" [gnus-agent gnus-command-method nil request-type (error) gnus-find-method-for-group featurep require fboundp intern format "%s-%s" unknown gnus-get-function string-match "^[^:]+:" 0] 11 (#$ . 3340)]) #@20 (fn DATE SERVER) (defalias 'nnagent-request-newgroups #[514 "\300\207" [nil] 3 (#$ . 3812)]) (nnoo-register-function 'nnagent-request-newgroups) #@36 (fn GROUP INFO &optional SERVER) (defalias 'nnagent-request-update-info #[770 "\300\207" [nil] 4 (#$ . 3965)]) (nnoo-register-function 'nnagent-request-update-info) #@25 (fn &optional SERVER) (defalias 'nnagent-request-post #[256 "\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] 6 (#$ . 4138)]) (nnoo-register-function 'nnagent-request-post) #@28 (fn GROUP ACTION SERVER) (defalias 'nnagent-request-set-mark #[771 "\306\307\261\210\310!\210\311\312\211C\3132|\211\242\206 \240\210\204)\314\315\316\"\n\"\210 \fD\211\203A\211@\314\315\317\"\"\210A\266\202\202,\210\211\242A@\320\235\203T\321\322\242@\"\202^\321\323\242@\242A@#\211\242B\204x\211\n\235\204x\324@\n\"\204x\211\nB\266\2020\266\204\325\261\210\326c\210 &\327ed\330\331!\332\333%\210)\312'@\334=\203\334\335@\3361\315\211;\203\260\337!@\202\261\211\340!\204\273\341!\210\342\343\321\344#!!\2620\266\202\202\320\266\312\203\334\345\335\"#\210)\312\207" [gnus-command-method gnus-select-method gnus-server-method-cache gnus-server-alist gnus-predefined-server-alist nnheader-file-coding-system "(gnus-agent-synchronize-group-flags \"" "\" '" gnus-pp " \"" nil server-name mapc make-closure #[257 "\211A\300\242\232\205 \301\302@\"\207" [V0 throw server-name] 4 "\n\n(fn NAME-METHOD)"] #[257 "\302A\300\242\"\205\211 \235\204\211 B\303\304@\"\207" [V0 gnus-server-method-cache gnus-methods-equal-p throw server-name] 4 "\n\n(fn NAME-METHOD)"] (nil "") format "%s" "%s:%s" assoc "\"" ")\n" write-region gnus-agent-lib-file "flags" t silent nntp request-set-mark (error) gnus-find-method-for-group featurep require fboundp intern "%s-%s" gnus-get-function coding-system-for-write gnus-agent] 14 (#$ . 4424)]) (nnoo-register-function 'nnagent-request-set-mark) #@50 (fn ARTICLES &optional GROUP SERVER FETCH-OLD) (defalias 'nnagent-retrieve-headers #[1025 "\304\305\"\306\211\211\212\307!\210\310\311\312\"\"\262@@\262\211\2032\2032@W\2032A\262\202 q\210\313 \210\n\314 @\"\210)eb\210m\204\253\3151\233\203\224m\204\224\316p!\262@V\203d\317 \210\203@V\203\320\321@@#c\210A\262\202d\203\216@U\203\216A\262\322y\210\202Mdb0\210\202E\210\323\324\325\326e`\"#\210\322y\210\202E\203\277\320\321@@#c\210A\262\202\253\203\310\247\203\342\327\203\330\322 @Z]\202\333@\330\n!@\"\210)\331\207" [gnus-agent-article-alist nntp-server-buffer nnmail-pathname-coding-system file-name-coding-system gnus-agent-article-name ".overview" nil gnus-agent-load-alist gnus-sorted-difference mapcar car erase-buffer nnheader-insert-nov-file (error) read beginning-of-line format "%d [Undownloaded article %d] Gnus Agent \n" 1 gnus-error 4 "Invalid data on line %d" count-lines nnheader-nov-delete-outside-range last nov] 14 (#$ . 5864)]) (nnoo-register-function 'nnagent-retrieve-headers) #@46 (fn ARTICLES GROUP &optional SERVER FORCE) (defalias 'nnagent-request-expire-articles #[1026 "\207" [] 5 (#$ . 6946)]) (nnoo-register-function 'nnagent-request-expire-articles) #@47 (fn GROUP &optional SERVER DONT-CHECK INFO) (defalias 'nnagent-request-group #[1025 "\300\301\302\303!F#\207" [nnoo-parent-function nnagent nnml-request-group nnagent-server] 11 (#$ . 7132)]) (nnoo-register-function 'nnagent-request-group) #@31 (fn GROUP &optional SERVER) (defalias 'nnagent-close-group #[513 "\300\301\302\303!D#\207" [nnoo-parent-function nnagent nnml-close-group nnagent-server] 8 (#$ . 7388)]) (nnoo-register-function 'nnagent-close-group) #@36 (fn GROUP &optional SERVER LAST) (defalias 'nnagent-request-accept-article #[769 "\300\301\302\303!E#\207" [nnoo-parent-function nnagent nnml-request-accept-article nnagent-server] 9 (#$ . 7614)]) (nnoo-register-function 'nnagent-request-accept-article) #@41 (fn ID &optional GROUP SERVER BUFFER) (defalias 'nnagent-request-article #[1025 "\300\301\302\303!F#\207" [nnoo-parent-function nnagent nnml-request-article nnagent-server] 11 (#$ . 7880)]) (nnoo-register-function 'nnagent-request-article) #@36 (fn GROUP &optional SERVER ARGS) (defalias 'nnagent-request-create-group #[769 "\300\301\302\303!E#\207" [nnoo-parent-function nnagent nnml-request-create-group nnagent-server] 9 (#$ . 8136)]) (nnoo-register-function 'nnagent-request-create-group) #@37 (fn GROUP &optional FORCE SERVER) (defalias 'nnagent-request-delete-group #[769 "\300\301\302\303!E#\207" [nnoo-parent-function nnagent nnml-request-delete-group nnagent-server] 10 (#$ . 8396)]) (nnoo-register-function 'nnagent-request-delete-group) #@25 (fn &optional SERVER) (defalias 'nnagent-request-list #[256 "\300\301\302\303!C#\207" [nnoo-parent-function nnagent nnml-request-list nnagent-server] 6 (#$ . 8658)]) (nnoo-register-function 'nnagent-request-list) #@25 (fn &optional SERVER) (defalias 'nnagent-request-list-newsgroups #[256 "\300\301\302\303!C#\207" [nnoo-parent-function nnagent nnml-request-list-newsgroups nnagent-server] 6 (#$ . 8880)]) (nnoo-register-function 'nnagent-request-list-newsgroups) #@73 (fn ARTICLE GROUP SERVER ACCEPT-FORM &optional LAST MOVE-IS-INTERNAL) (defalias 'nnagent-request-move-article #[1540 "\300\301\302\303 !\257#\207" [nnoo-parent-function nnagent nnml-request-move-article nnagent-server] 15 (#$ . 9135)]) (nnoo-register-function 'nnagent-request-move-article) #@40 (fn GROUP NEW-NAME &optional SERVER) (defalias 'nnagent-request-rename-group #[770 "\300\301\302\303!E#\207" [nnoo-parent-function nnagent nnml-request-rename-group nnagent-server] 10 (#$ . 9446)]) (nnoo-register-function 'nnagent-request-rename-group) #@31 (fn &optional GROUP SERVER) (defalias 'nnagent-request-scan #[512 "\300\301\302\303!D#\207" [nnoo-parent-function nnagent nnml-request-scan nnagent-server] 8 (#$ . 9711)]) (nnoo-register-function 'nnagent-request-scan) #@50 (fn ARTICLE NAME VALUE &optional GROUP SERVER) (defalias 'nnagent-set-status #[1283 "\300\301\302\303!\257#\207" [nnoo-parent-function nnagent nnml-set-status nnagent-server] 14 (#$ . 9940)]) (nnoo-register-function 'nnagent-set-status) #@25 (fn &optional SERVER) (defalias 'nnagent-server-opened #[256 "\300\301\302\303!C#\207" [nnoo-parent-function nnagent nnml-server-opened nnagent-server] 6 (#$ . 10196)]) (nnoo-register-function 'nnagent-server-opened) #@25 (fn &optional SERVER) (defalias 'nnagent-status-message #[256 "\300\301\302\303!C#\207" [nnoo-parent-function nnagent nnml-status-message nnagent-server] 6 (#$ . 10422)]) (nnoo-register-function 'nnagent-status-message) #@15 (fn SERVER) (defalias 'nnagent-request-regenerate #[257 "\300\301\302\303!C#\207" [nnoo-parent-function nnagent nnml-request-regenerate nnagent-server] 6 (#$ . 10651)]) (nnoo-register-function 'nnagent-request-regenerate) #@21 (fn SERVER INFOS) (defalias 'nnagent-retrieve-group-data-early #[514 "\300\207" [nil] 3 (#$ . 10882)]) (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)