%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\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 (#$ . 783))
(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 (#$ . 973))
(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 (#$ . 1169))
(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 (#$ . 1378))
(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 A@\313\232\203 \314\202 A@Q!\312#D\315\316\317!D\320\316\321!D\322BBB\323\324\325 !\n#\210\307\310\311 @!\312 A@\313\232\203H \314\202K A@Q!\312#\326 \3271] \330
!0\202g #\331\332#\"\211)\204{ \333 \210\334\324\f\206w \331\335
\"\"\202\226 \336\337
!!\204\216 \333 \210\334\324\340
#\202\226 \334\324\341
$\210\342*\207" [gnus-agent-directory gnus-command-method defs server err dir 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 arg] 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) ";?\205] \305\306\n@\30718 \211;\203 \310!@\202 \211\311!\204& \312!\210\313\314\315\316#!!\2620\266\202\202< \210\305\266\202\204C \317\202\\ \320\n\306\" \321\322\f\"\203X \323\f\324\225\"\202Y \f)\")\207" [article gnus-agent gnus-command-method group gname nil request-type (error) gnus-find-method-for-group featurep require fboundp intern format "%s-%s" unknown gnus-get-function string-match "^[^:]+:" substring 0] 9])
(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\261\210\310 !\210\311\n\312\211C\3132\217 \211\242\206 \240\210\2042 \314\315\316\317\320\321!\322\"\323\324%\f\"\210
-D\211\203T \211@\314\315\316\325\320\321!\326\"\323\324%\"\210A\266\202\2026 \210\211\242A@\327\235\203g \330\331\242@\"\202q \330\332\242@\242A@#\211\242B\211\f\235\204\213 \204\213 \333@\f\"\204\213 \211\fB\266\2020\266\204\334\261\210\335c\210. /\336ed\337\340!\341\342%\210)\312 0\n@\343=\203\362 \344\n@\3451\341 \211;\203\304 \346!@\202\305 \211\347!\204\317 \350!\210\351\352\330\353#!!\2620\266\202\202\345 \210\312\266\202\203\362 \354\n\344\" 1#\210)\312\207" [group action gnus-command-method gnus-select-method gnus-server-method-cache gnus-server-alist "(gnus-agent-synchronize-group-flags \"" "\" '" gnus-pp " \"" nil server-name mapc make-byte-code 257 "\211A\300\242\232\205
\301\302@\"\207" vconcat vector [throw server-name] 4 "\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 "") 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 gnus-predefined-server-alist nnheader-file-coding-system coding-system-for-write gnus-agent server] 14])
(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\2035 \2035 @ W\2035 \211A\210\202\" q\210\315 \210 \316\f
@\"\210)eb\210m\204\260 \3171\240 \203\232 m\204\232 \320p!\211 @V\203h \321 \210 \203\204 \n @V\203\204 \322\323 @ @#c\210 \211A\210\202h \203\224 \n @U\203\224 \211A\210\324y\210\202R db0\202\254 \210\325\326\327\330e`\"#\210\324y\210\202J \203\305 \322\323 @ @#c\210 \211A\210\202\260 \203\320 \247\203\350 \331 \203\340 \324
@ Z]\202\342
@\332
!@\"\210-\333\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 (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 gnus-agent-article-alist nntp-server-buffer nnmail-pathname-coding-system file-name-coding-system fetch-old] 7])
(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 !\n F#\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)
Zerion Mini Shell 1.0