%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/url/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/url/url-news.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\"\210\305\310\311\"\207" [require url-vars url-util url-parse nntp autoload url-warn "url" gnus-group-read-ephemeral-group "gnus-group"] 3)
(defalias 'url-news-open-host #[(host port user pass) "\306\307!\203	\307 \210\310	C\"\210\n\205\234\205\234\311\312\nD\f\204(
\204(\313@!\210\314\315\316#@A;\203<\317!\202=\320\211\203a\211A\262\242\211\262\203aA@=\203?\211@\262\320\262\202?\205\321!\322>\203q\202\323\324!!\210\325A\"A\320\266\205\211\205\210\324!\211\205\222r\211q\210`)\203\302BC@	\f\320A;\203\257\317!\202\260\320\211\203\324\211A\262\242\211\262\203\324A@=\203\262\211@\262\320\262\202\262\205\362\321!\322>\203\344\202\362\323\324!!\210\325A\"A\320\266\205\206\372\326!\211\203\201D\204
\f\204
\313\324!!\210\3271l\3301]\3311Q\203F\211\332 E\211FG\2031\333!\210\334HP\"\210\321!\335>\206D\336\337!\266\340=\203P\341\202K\203f\203f\342%\210\341\202K\203J\211\320r\324!q\210eb\210`f\343>\203\206\344\345!\203\310\321!\346>\203\310\344\347!\203\233\350!\210\202\276\344\351!\203\261\352\353\354\355\356N#\210\357\355\320\"\210\202\276\344\360!\203\276`\361y\210`|\210\362!\210eb\210\202y\344\363!\203\325\364 \210\320\202=\321!\365>\204\343\336\337!\202=db\210e\320\366\341#\204\362!\210d\367Ze]\262db\210\202\350\370\371!\262r@q\210\211I)\266\372?!\210\211\204<rq\210db\210r\324!q\210\373 )c\210J\203;\320J\374\375\376\"\210)\341\204D\377 \210)\266\205\202K\341000\202\21100\357\355A\"\262\202\2110\352\353\201N\n$\262\202\211\201O\201P!\210\357\201Q\320\"\210\320\262\202\211\352\353\201R	#\266\210\204\312K\204\312LM>\204\312\201S \210rq\210b\210\344\201T!!\203\276\361y\210\201U |\210)\202\312\352\353\201VB#\266\311\201WD\f\204\337
\204\337\313@!\210\314\315\316#@A;\203\363\317!\202\364\320\211\203\211A\262\242\211\262\203A@=\203\366\211@\262\320\262\202\366\2056\321!\322>\203(\2026\323\324!!\210\325A\"A\320\266\205\211\205?\324!\211\205Ir\211q\210`)\203yBC@	\f\320A;\203f\317!\202g\320\211\203\213\211A\262\242\211\262\203\213A@=\203i\211@\262\320\262\202i\205\251\321!\322>\203\233\202\251\323\324!!\210\325A\"A\320\266\205\206\261\326!\211\2038D\204\304\f\204\304\313\324!!\210\3271#\3301\3311\203\375\211\332 E\211FG\203\350\333!\210\334HP\"\210\321!\335>\206\373\336\337!\266\340=\203\341\202\203\203\342%\210\341\202\203\211\320r\324!q\210eb\210`f\343>\203=\344\345!\203\321!\346>\203\344\347!\203R\350!\210\202u\344\351!\203h\352\353\354\355\356N#\210\357\355\320\"\210\202u\344\360!\203u`\361y\210`|\210\362!\210eb\210\2020\344\363!\203\214\364 \210\320\202\364\321!\365>\204\232\336\337!\202\364db\210e\320\366\341#\204\272\362!\210d\367Ze]\262db\210\202\237\370\371!\262r@q\210\211I)\266\372?!\210\211\204\363rq\210db\210r\324!q\210\373 )c\210J\203\362\320J\374\375\376\"\210)\341\204\373\377 \210)\266\205\202\341000\202@00\357\355A\"\262\202@0\352\353\201N\n$\262\202@\201O\201P!\210\357\201Q\320\"\210\320\262\202@\352\353\201R	#\266\210\204\201K\204\201LM>\204\201\201S \210rq\210b\210\344\201T!!\203u\361y\210\201U |\210)\202\201\352\353\201VB#\266\201X!?\205\234\201Y\201Z\201[\201\\\n#\"\207" [host port user pass nnheader-callback-function nntp-inhibit-output fboundp nnheader-init-server-buffer nntp-open-server "^.*
?\n" "AUTHINFO USER" nntp-erase-buffer mapconcat identity " " get-buffer nil process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection (quit) (error) (nntp-authinfo-rejected) current-time nntp-record-command process-send-string (open run) nntp-report "Server closed connection" ignore t nntp-async-wait (50 51 52 53) looking-at "48[02]" (open run) "480" nntp-handle-authinfo "482" nnheader-report nntp "%s" nntp-authinfo-rejected error-message signal "^.*\n" 1 nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) re-search-backward 1000 match-string 0 nntp-decode-text buffer-string nnheader-message 5 "" erase-buffer nntp-server-buffer nntp-connection-alist nntp-address nntp-port-number nntp-inhibit-erase nntp-last-command-time nntp-last-command nntp-record-commands nntp-end-of-line nntp-process-response nntp-have-messaged nntp-never-echoes-commands nntp-open-connection-function nntp-open-connection-functions-never-echo-commands "Couldn't open connection to %s: %s" message "Quit retrieving data from nntp" quit "Couldn't open connection to %s" nntp-accept-response regexp-quote point-at-bol "Couldn't open connection to %s." "AUTHINFO PASS" nntp-server-opened url-warn url format "NNTP authentication to `%s' as `%s' failed"] 25])
(defalias 'url-news-fetch-message-id #[(host message-id) "\304\305!	\211GSH\306=\204\307	\310Q\311	\312\n$\243\204>rq\210\313\314\315\316\317\320\321\322\323\324\325\326\327 \330\331\323\332\331\333\334\335\336\337\261\210))\207" [buf message-id host url-version generate-new-buffer " *url-news*" 62 "<" ">" nntp-request-article nil "Content-type: text/html\n\n" "<html>\n" " <head>\n" "  <title>Error</title>\n" " </head>\n" " <body>\n" "  <div>\n" "   <h1>Error requesting article...</h1>\n" "   <p>\n" "    The status message returned by the NNTP server was:" "<br><hr>\n" "    <xmp>\n" nntp-status-message "    </xmp>\n" "   </p>\n" "    If you feel this is an error, M-x report-emacs-bug RET.\n" "  </div>\n" " </body>\n" "</html>\n" "<!-- Automatically generated by URL v" " -->\n"] 24])
(defalias 'url-news-fetch-newsgroup #[(newsgroup host) "\305\306\"\203
\307\310\225\"\305\311\"\203\307\310\211\224#\312	!\203,r	q\210\n)\313=\204/\314 \210	q\210eb\210\315\316\304\fDE\317p\320B$\207" [newsgroup gnus-group-buffer major-mode host nntp-open-connection-function string-match "^/+" substring 0 "/+$" get-buffer gnus-group-mode gnus gnus-group-read-ephemeral-group nntp nil browse] 6])
(defalias 'url-news #[(url) "\306!	>\204\307\310\300D\"\210\311H\206\n\306!	>\204'\307\310\300D\"\210\211\312H\206W\306!	>\204<\307\310\300D\"\210\211\313H\205W\314\306!	>\204R\307\310\300D\"\210\313H\315\"\262\316\211\317\306!	>\204o\307\310\300D\"\210\320H!\321\f\306!	>\204\207\307\310\300D\"\210\322H\306!	>\204\231\307\310\300D\"\210\323H$\210\324\325\"\203\260\326\"\202\303\327\230\203\275\330 \210\202\303\331\"\210-\207" [url cl-struct-url-tags url-news-server host port article-brackets type-of signal wrong-type-argument 4 5 1 url-scheme-get-property default-port nil url-unhex-string 6 url-news-open-host 2 3 string-match "@" url-news-fetch-message-id "" gnus url-news-fetch-newsgroup buf article] 9])
(defalias 'url-snews #[(url) "\303=\203\n\304\202\305\306\n!)\207" [url-gateway-method nntp-open-connection-function url ssl nntp-open-ssl-stream nntp-open-tls-stream url-news] 2])
(provide 'url-news)

Zerion Mini Shell 1.0