| Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/gnus/nnoo.elc |
;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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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)