;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:45:10 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/gnus/nnagent.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`nnagent.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\304\305!\210\304\306!\210\304\307!\210\304\310!\210\311\312\313\314\"\315\211FB\311\316D B\303\nB\317\315\207" [nnoo-definition-alist nnoo-state-alist current-load-list nnagent-version require nnheader nnoo gnus-agent nnml nnagent mapcar #[(p) "C\207" [p] 1] (nnml) nil "*internal-non-initialized-backend*" "nnagent 1.0"] 4) #@20 Internal variable. (defvar nnagent-directory nil (#$ . 965)) (nnoo-define 'nnagent-directory '(nnml-directory)) #@20 Internal variable. (defvar nnagent-active-file nil (#$ . 1083)) (nnoo-define 'nnagent-active-file '(nnml-active-file)) #@20 Internal variable. (defvar nnagent-newsgroups-file nil (#$ . 1208)) (nnoo-define 'nnagent-newsgroups-file '(nnml-newsgroups-file)) #@20 Internal variable. (defvar nnagent-get-new-mail nil (#$ . 1345)) (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] 9]) (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@\310\311\312\217*\204\313\2022\314\n\307\" \315\316 \"\203. \317\225\320O\202/ )\")\207" [article gnus-plugged gnus-command-method group func gname t request-type #1=#:G97269 (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 nil] 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) "\305\306\307!!\310\216rq\210\311\312 @\n \f\206 A@%c\210\313ed\314\315!#\210+\316\207" [#1=#:temp-buffer gnus-command-method group action server get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) format "(%s-request-set-mark \"%s\" '%s \"%s\")\n" append-to-file gnus-agent-lib-file "flags" nil] 6]) (nnoo-register-function 'nnagent-request-set-mark) (defalias 'nnagent-request-group #[(group &optional server dont-check) "\303\304\305\306 !\nE#\207" [group server dont-check nnoo-parent-function nnagent nnml-request-group nnagent-server] 6]) (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-expire-articles #[(articles group &optional server force) "\304\305\306 \307\n! F#\207" [articles group server force nnoo-parent-function nnagent nnml-request-expire-articles nnagent-server] 7]) (nnoo-register-function 'nnagent-request-expire-articles) (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) "\305\306\307 \310\n! \f\257#\207" [article group server accept-form last nnoo-parent-function nnagent nnml-request-move-article nnagent-server] 8]) (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-retrieve-headers #[(sequence &optional group server fetch-old) "\304\305\306 \307\n! F#\207" [sequence group server fetch-old nnoo-parent-function nnagent nnml-retrieve-headers nnagent-server] 7]) (nnoo-register-function 'nnagent-retrieve-headers) (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]) (byte-code "\300\301!\210\302\303\304\"\210\305\303!\207" [nnoo-register-function nnagent-status-message nnoo-import-1 nnagent ((nnml)) provide] 3)