;ELC ;;; compiled by amu@tux.mit.edu on Sun Nov 15 14:43:31 1998 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.6.44/lisp/nnagent.el ;;; emacs version 19.34.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (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 "!!!!\"ɉF\nB\nD\fB\fBɇ" [require nnheader nnoo gnus-agent nnml nnagent mapcar #[(p) "C" [p] 1] (nnml) nil nnoo-definition-alist "*internal-non-initialized-backend*" nnoo-state-alist "nnagent 1.0" nnagent-version current-load-list] 4) #@20 Internal variable. (defvar nnagent-directory nil (#$ . 775)) (nnoo-define (quote nnagent-directory) (quote (nnml-directory))) #@20 Internal variable. (defvar nnagent-active-file nil (#$ . 907)) (nnoo-define (quote nnagent-active-file) (quote (nnml-active-file))) #@20 Internal variable. (defvar nnagent-newsgroups-file nil (#$ . 1045)) (nnoo-define (quote nnagent-newsgroups-file) (quote (nnml-newsgroups-file))) #@20 Internal variable. (defvar nnagent-get-new-mail nil (#$ . 1196)) (byte-code "\"!" [nnoo-define nnagent-get-new-mail (nnml-get-new-mail) nnoo-define-basics-1 nnagent] 3) (defalias 'nnagent-open-server #[(server &optional defs) "\n @! A@ǚȂ A@Q!#D!D!DBBB#\n @! A@ǚIȂL A@Q!#؏k g\"!! #$*" [nnagent-directory nnheader-concat gnus-agent-directory nnheader-translate-file-chars symbol-name gnus-command-method "/" "" "unnamed" nnagent-active-file gnus-agent-lib-file "active" nnagent-newsgroups-file "newsgroups" ((nnagent-get-new-mail nil)) defs nnoo-change-server nnagent server nil err dir arg (file-exists-p dir) ((ftp-error (byte-code "\n\"" [format "%s" arg err] 3))) 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] 8]) (nnoo-register-function (quote nnagent-open-server)) (defalias 'nnagent-retrieve-groups #[(groups &optional server) "!!!!Ă&!!%!!Ƃ&)" [file-exists-p gnus-agent-lib-file "groups" nnmail-find-file groups "active" active nil] 3]) (nnoo-register-function (quote nnagent-retrieve-groups)) (defalias 'nnagent-request-type #[(group article) ";?8\f@ɏ*ʂ7\f\" \f\f\"2\fϕO4\f)\")" [article t gnus-plugged request-type gnus-command-method group func G99238 (byte-code ";\f!@ \n!\n!\n #!!)" [group gnus-find-method-for-group method featurep require fboundp intern format "%s-%s" func] 6) ((error)) unknown gnus-get-function gname string-match "^[^:]+:" 0 nil] 4]) (defalias 'nnagent-request-newgroups #[(date server) "" [nil] 1]) (nnoo-register-function (quote nnagent-request-newgroups)) (defalias 'nnagent-request-update-info #[(group info &optional server) "" [nil] 1]) (nnoo-register-function (quote nnagent-request-update-info)) (defalias 'nnagent-request-post #[(&optional server) "\n\"!" [gnus-agent-insert-meta-information news gnus-command-method gnus-request-accept-article "nndraft:queue"] 3]) (byte-code "!\"!" [nnoo-register-function nnagent-request-post nnoo-import-1 nnagent ((nnml)) provide] 3)