;ELC ;;; Compiled ;;; in Emacs version 27.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'nnheader) (defvar nnoo-definition-alist nil) (defvar nnoo-state-alist nil) (defvar nnoo-parent-backend nil) #@63 The same as `defvar', only takes list of variables to MAP to. (defalias 'defvoo '(macro . #[(var init &optional doc &rest map) "\304\203\305 \n\306PF\202\305 \nE\307\310 D\310 DEE\207" [doc var init map prog1 defvar "\n\nThis is a Gnus server variable. See Info node `(gnus)Select Methods'." nnoo-define quote] 6 (#$ . 526)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put defvoo lisp-indent-function 2 edebug-form-spec (var init &optional doc &rest map)] 4) #@42 The same as `defun', only register FUNC. (defalias 'deffoo '(macro . #[(func args &rest forms) "\303\304 \nBBB\305\306DDE\207" [func args forms prog1 defun nnoo-register-function quote] 5 (#$ . 1013)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put deffoo lisp-indent-function 2 edebug-form-spec (&define name lambda-list def-body)] 4) (defalias 'nnoo-register-function #[(func) "\303\304\305! \"\233\211\204\306\307\"\210\n\n@B\240)\207" [func nnoo-definition-alist funcs 3 assoc nnoo-backend error "%s belongs to a backend that hasn't been declared"] 5]) (defalias 'nnoo-declare '(macro . #[(backend &rest parents) "\302\303\304\305D\306BB\307\310\304\305D\311BBD\312\313\305 DEE\314\315\305D\312\316\305 DE\317BBB\320BBF\321\304\305D\322BB\314\315\305D\323BB\324BBEE\207" [backend parents eval-and-compile if assq quote (nnoo-definition-alist) setcar cdr (nnoo-definition-alist) mapcar 'list push list 'list (nil nil) (nnoo-definition-alist) unless (nnoo-state-alist) ("*internal-non-initialized-backend*") (nnoo-state-alist)] 11])) (put 'nnoo-declare 'lisp-indent-function 1) (defalias 'nnoo-parents #[(backend) "\302 \"A@\207" [backend nnoo-definition-alist assoc] 3]) (defalias 'nnoo-variables #[(backend) "\302\303 \"8\207" [backend nnoo-definition-alist 2 assoc] 4]) (defalias 'nnoo-functions #[(backend) "\302\303 \"8\207" [backend nnoo-definition-alist 3 assoc] 4]) (defalias 'nnoo-import '(macro . #[(backend &rest imports) "\302\303D\303 DE\207" [backend imports nnoo-import-1 quote] 4])) (put 'nnoo-import 'lisp-indent-function 1) (defalias 'nnoo-import-1 #[(backend imports) "@9\203\211A\242\202\306\307\211\211\211A\242\211\205W A\206)\310 @!\n\203\311\312 \313\n@!\"\211!\204O\314\315 \316\f\317 D\317\n@D\320BBBF!\210\n\211A\210\202*,\207" [imports function functions imp call-function backend nnoo-parent-function nil nnoo-functions fboundp nnoo-symbol nnoo-rest-symbol eval deffoo (&rest args) quote (args)] 8]) (defalias 'nnoo-parent-function #[(backend function args) "\306! \307 \310 ! \311 !\236A#\210\312\f\" \311 !\236A\211\2033 @A@ @@JL\210 A\211\204\"+\207" [function backend nnoo-parent-backend pbackend args vars nnoo-backend nnoo-change-server nnoo-current-server nnoo-parents apply] 7]) #@40 Execute FUNCTION on behalf of BACKEND. (defalias 'nnoo-execute #[(backend function &rest args) "\306! \307 \310 ! \311 !\236A#\210\312\f\" \311 !\236A\211\2033 @A@ @@JL\210 A\211\204\"+\207" [function backend nnoo-parent-backend pbackend args vars nnoo-backend nnoo-change-server nnoo-current-server nnoo-parents apply] 7 (#$ . 3300)]) (defalias 'nnoo-map-functions '(macro . #[(backend &rest maps) "\302\303D\303 DE\207" [backend maps nnoo-map-functions-1 quote] 4])) (put 'nnoo-map-functions 'lisp-indent-function 1) (defalias 'nnoo-map-functions-1 #[(backend maps) "\305\211\211 \211A\242\211\205Z\306\305\nAGW\203=\nA8\247\203/\307\310BB B\2026\nA8 BT\211\202\311\312\313\f\314\n@!\"\315\316\317\fD\317\n@D\320 \237BFF!\210\202+\207" [i margs m maps backend nil 0 nth (args) eval deffoo nnoo-symbol nnoo-rest-symbol (&rest args) nnoo-parent-function quote list] 10]) (defalias 'nnoo-backend #[(symbol) "\301\302\303!\"\210\304\305\303!\306\211\225S#!\207" [symbol string-match "^[^-]+-" symbol-name intern substring 0] 5]) (defalias 'nnoo-rest-symbol #[(symbol) "\301\302\303!\"\210\304\305\303!\306\225\"!\207" [symbol string-match "^[^-]+-" symbol-name intern substring 0] 4]) (defalias 'nnoo-symbol #[(backend symbol) "\302\303\304 #!\207" [backend symbol intern format "%s-%s"] 5]) (defalias 'nnoo-define #[(var map) "\306!\211\n\236\211A@ \204\307\310\"\210 AA\311\312 8\236\312 8\"\240\210 AA\211JB\312 8B\240\210 \205H\306 @!\f\236 \211A\242DC\244\210\2021+\207" [var backend nnoo-definition-alist def parents map nnoo-backend error "%s belongs to a backend that hasn't been declared" delq 2] 6]) (defalias 'nnoo-change-server #[(backend server defs) " \236A\211@\306! \203\307\310 #\202\311!\312\211\n\2049\312D\211 B\n\210\nA \232\204\347\313 \"\210\314\nAA\"A\206S\311!\203n@@@AL\210\211A\210\202U\n\240\210\314\nAA\"A\204\311\211A\242\211\203\311@\236\204\251@\315@!\205\245@JBC\244\210\316\232\203\275@A@JL\210\202~@A@L\210\202~\f\203\347\317\f@@\307\310#\320\321\f@A\"#\210\f\211A\210\202\311.\322\207" [backend nnoo-state-alist bstate current parents nnoo-parent-backend nnoo-parents format "%s+%s" nnoo-variables nil nnoo-push-server assoc boundp "*internal-non-initialized-backend*" nnoo-change-server mapcar #[(def) "@A@JD\207" [def] 2] t server bvariables state def defs] 7]) (defalias 'nnoo-push-server #[(backend current) " \236\306!\211A\307\310\f AA\" AA\"\241\210\f\311\232\203:\306!\312  \211A \242\211\2039 \211@J\241\210\202$*\312\f\n\203V\n@@\n@@JB\fB\f\n\211A\210\202= \f\fBC\244+\207" [backend nnoo-state-alist defs bstate current def nnoo-variables delq assoc "*internal-non-initialized-backend*" nil defaults state] 6]) (defalias 'nnoo-current-server-p #[(backend server) "\303! \203\304\305 \n#\202\n\232\207" [backend nnoo-parent-backend server nnoo-current-server format "%s+%s"] 5]) (put 'nnoo-current-server-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'nnoo-current-server #[(backend) " \236A@\207" [backend nnoo-state-alist] 2]) (defalias 'nnoo-close-server #[(backend &optional server) "\204\305 !\203= \n\236A\306 A\" \203< \307\240\210 \310\f A\"\241\210\f\210\fA\f\203<\f\211A\242@\307L\210\202,*\311\207" [server backend nnoo-state-alist bstate defs nnoo-current-server assoc nil delq t] 4]) (defalias 'nnoo-close #[(backend) "\302 \236 \"\303\207" [backend nnoo-state-alist delq t] 3]) (defalias 'nnoo-status-message #[(backend server) "\301!\207" [backend nnheader-get-report] 2]) (defalias 'nnoo-server-opened #[(backend server) " \304!\n\203\305\306\n #\202 \232*\205\307 !\207" [backend server nnoo-parent-backend nntp-server-buffer nnoo-current-server format "%s+%s" buffer-live-p] 5]) #@62 Define `close-server', `server-opened' and `status-message'. (defalias 'nnoo-define-basics '(macro . #[(backend) "\301\302\303DDD\207" [backend eval-and-compile nnoo-define-basics-1 quote] 4 (#$ . 7157)])) (defalias 'nnoo-define-basics-1 #[(backend) "\303\304\211\203& @\305\306\307\n\"\310\307\311\"\312\nD\313BBF!\210 A\211\204*\314\304\211\203M @\305\306\307\n\"\315\307\311\"\312\nD\316BBF!\210 A\211\204/*\305\306\307\n\317\"\320\321\312\nD\322BBF!\207" [function --dolist-tail-- backend (server-opened status-message) nil eval deffoo nnoo-symbol (&optional server) nnoo quote (server) (close-server) (&optional server defs) (server) open-server (server &optional defs) nnoo-change-server (server defs)] 8]) #@103 Define all required backend functions for BACKEND. All functions will return nil and report an error. (defalias 'nnoo-define-skeleton '(macro . #[(backend) "\301\302\303DDD\207" [backend eval-and-compile nnoo-define-skeleton-1 quote] 4 (#$ . 7895)])) (defalias 'nnoo-define-skeleton-1 #[(backend) "\304\305\211\n\211A\242\211\205/\306\307 \"\211!\204\310\311\312\313\314 D\315\316 #EF!\210\202+\207" [fun function functions backend (retrieve-headers request-close request-article request-group close-group request-list request-post request-list-newsgroups) nil fboundp nnoo-symbol eval deffoo (&rest args) nnheader-report quote format "%s-%s not implemented"] 10]) (defalias 'nnoo-set #[(server &rest args) "\304@!@\n\203 \305\n@@A@\n@A#\210\n\211A\210\202*\305@A@AA#\210 \205? \211A\242 \211A\242L\210\202,\207" [server nnoo-parent-backend parents args nnoo-parents nnoo-change-server] 4]) (provide 'nnoo)