HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/gnus/nnoo.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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\310DEE\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\205WA\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\303!\305\211\225SO!\207" [symbol string-match "^[^-]+-" symbol-name intern 0] 4])
(defalias 'nnoo-rest-symbol #[(symbol) "\301\302\303!\"\210\304\303!\305\225\306O!\207" [symbol string-match "^[^-]+-" symbol-name intern 0 nil] 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\"\210AA\311\3128\236\3128\"\240\210AA\211JB\3128B\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\fAA\"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\306A\"\203<\307\240\210\310\fA\"\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 \205 \307!\207" [backend server nnoo-parent-backend nntp-server-buffer nnoo-current-server format "%s+%s" buffer-name] 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 (#$ . 7141)]))
(defalias 'nnoo-define-basics-1 #[(backend) "\302\203\"\303\304\305	@\"\306\305\307\211A\242\"\310	D\311BBF!\210\202)\303\304\305	\312\"\313\314\310	D\315BBF!\207" [functions backend (close-server server-opened status-message) eval deffoo nnoo-symbol (&optional server) nnoo quote (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 (#$ . 7727)]))
(defalias 'nnoo-define-skeleton-1 #[(backend) "\304\305\211\n\211A\242\211\205/\306\307	\"\211!\204\310\311\312\313\314D\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)