| Server IP : 217.160.0.212 / Your IP : 216.73.216.203 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/url/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\"\207" [require url-vars url-util url-parse nntp autoload gnus-group-read-ephemeral-group "gnus-group"] 3) #@28 (fn HOST PORT USER PASS) (defalias 'url-news-open-host #[1028 "\300\301!\203 \301 \210\302C\"\210\2054 \211\2054 \303\304\305#\210\303\304\306#\210\307!?\2054 \310\311\312\313#\"\207" [fboundp nnheader-init-server-buffer nntp-open-server nntp-send-command "^.* ?\n" "AUTHINFO USER" "AUTHINFO PASS" nntp-server-opened display-warning url format "NNTP authentication to `%s' as `%s' failed"] 10 (#$ . 268)]) #@24 (fn HOST MESSAGE-ID) (defalias 'url-news-fetch-message-id #[514 "\301\302!\211GSH\303=\204 \304\305Q\262\306\307$\243\204> r\211q\210\310\311\312\313\314\315\316\317\320\321\322\323\324 \325\326\320\327\326\330\331\332\333\334\261\210)\207" [emacs-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 in Emacs " " -->\n"] 27 (#$ . 693)]) #@23 (fn NEWSGROUP HOST) (defalias 'url-news-fetch-newsgroup #[514 "\303\304\"\203 \305\225\306O\262\303\307\"\203 \305\211\224O\262\310!\203- rq\210 )\311=\2040 \312 \210q\210eb\210\313\314\302\nDE\306p\315B$\207" [gnus-group-buffer major-mode nntp-open-connection-function string-match "^/+" 0 nil "/+$" get-buffer gnus-group-mode gnus gnus-group-read-ephemeral-group nntp browse] 8 (#$ . 1516)]) #@12 (fn URL) (defalias 'url-news #[257 "\302!>\204 \303\304\305D\"\210\211\306H\206 \302!>\204& \303\304\305D\"\210\211\307H\206V \302!>\204; \303\304\305D\"\210\211\310H\205V \311\302!>\204Q \303\304\305D\"\210\310H\312\"\262\313\314\302!>\204j \303\304\305D\"\210\315H!\316\302!>\204\202 \303\304\305\nD\"\210\317H\302 !>\204\227 \303\304\305 D\"\210\320H$\210\321\322\"\203\255 \323\"\262\202\276 \211\324\230\203\271 \325 \210\202\276 \326\"\210\207" [cl-struct-url-tags url-news-server type-of signal wrong-type-argument url 4 5 1 url-scheme-get-property default-port nil url-unhex-string 6 url-news-open-host 2 3 string-search "@" url-news-fetch-message-id "" gnus url-news-fetch-newsgroup] 13 (#$ . 1931)]) #@12 (fn URL) (defalias 'url-snews #[257 "\302=\203\n \303\202 \304\305!)\207" [url-gateway-method nntp-open-connection-function ssl nntp-open-ssl-stream nntp-open-tls-stream url-news] 3 (#$ . 2692)]) (provide 'url-news)