;ELC ;;; Compiled by amu@daemon on Thu Jan 11 15:03:50 2001 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.8/lisp/nndb.el ;;; in Emacs version 20.7.2 ;;; with bytecomp version 2.56 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`nndb.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303\304\305\306\307%\210\310\311!\210\310\312!\210\310\313!\210\314\315!\204\310\316!\210\317\320\321\"\210\317\322\321\"\210\317\323\324\"\210\317\325\326\327\330$\210\317\331\326\327\330$\210\317\302\332\"\210\333\334\335\336\"\327\211FB\333\337D B\327\207" [nnoo-definition-alist nnoo-state-alist gnus-declare-backend "nndb" mail respool address prompt-address require nnmail nnheader nntp fboundp open-network-stream tcp autoload news-setup "rnewspost" news-reply-mode cancel-timer "timer" telnet "telnet" nil t telnet-send-input "gnus-start" nndb mapcar #[(p) "C\207" [p] 1] (nntp) "*internal-non-initialized-backend*"] 6) #@54 *The program used to put a message in an NNDB group. (defvar nndb-deliver-program "nndel" (#$ . -1269)) (nnoo-define 'nndb-deliver-program nil) #@57 If t, expiry calculation will occur on the server side. (defvar nndb-server-side-expiry nil (#$ . 1419)) (nnoo-define 'nndb-server-side-expiry nil) #@163 If t, the expiry date for a given article will be set to the time it was marked as expireable; otherwise the date will be the time the article was posted to nndb (defvar nndb-set-expire-date-on-mark nil (#$ . 1574)) (nnoo-define 'nndb-set-expire-date-on-mark nil) #@31 Like nntp-server-opened-hook. (defvar nndb-server-opened-hook '(nntp-send-authinfo-from-file) (#$ . 1844)) (nnoo-define 'nndb-server-opened-hook '(nntp-server-opened-hook)) #@31 *The name of the NNDB server. (defvar nndb-address "localhost" (#$ . -2023)) (nnoo-define 'nndb-address '(nntp-address)) #@29 *Port number to connect to. (defvar nndb-port-number 9000 (#$ . -2150)) (byte-code "\302\303\304\"\210\305\300!\204 \306\300 B\302\300\307\"\207" [nndb-article-type current-load-list nnoo-define nndb-port-number (nntp-port-number) boundp mail nil] 3) #@2  (defvar nndb-status-string nil (#$ . 2409)) (nnoo-define 'nndb-status-string '(nntp-status-string)) #@42 Version numbers of this version of NNDB. (defconst nndb-version "nndb 0.7" (#$ . 2516)) (nnoo-define-basics-1 'nndb) (defalias 'nndb-build-article-string #[(articles) "\303\211\n\203\n\211A@ \304Q\202 *\207" [art art-string articles nil " "] 3]) (defalias 'nndb-build-expire-rest-list #[(total expire) "\304\211\n\203\n\211A@\211 >\204 B\202*\207" [rest art total expire nil] 3]) (defalias 'nndb-request-type #[(group &optional article) "\207" [nndb-article-type] 1]) (nnoo-register-function 'nndb-request-type) (defalias 'nndb-touch-article #[(group article) "\306\307D \204\f\204\212 q\210\310 \210)\311\312 \313# \n \306 !;\203C\314!\202E\306\211\"#$$\203w$\211A$@\211\"\203w\"A@=\203O\"@#\306\211$\204T#\205\232\315#!\316>\203\212#\202\232\317\320#!!\210\321\"!\"!\306-\206\242\322!\211#\204\261\323\324\325#\202\311%\204\305 \204\305\212\320#!q\210\310 \210)\326\327\330\217.\n\207" [article strings wait-for nnheader-callback-function nntp-inhibit-output nntp-server-buffer nil "X-TOUCH" erase-buffer mapconcat identity " " get-buffer process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" err (byte-code "\203 \306 \n \203\307\n!\210\310 \n#P\"\210*$\311=\203'\312\207$\203?%\203?\313 %&'$%\210\312\207%\203\371 %&'\314('&%\212\315 !q\210eb\210`f\316>\203k\317\320!\203\207\321 !\322>\203\207\317\320!\203}\323 !\210\324 !\210eb\210\202^\317\325!\203\224\326 \210\314\202\356\321 !\327>\204\243\330\331\332\"\202\356db\210e)\333%)\312#\204\304\324 !\210d\334Ze])db\210\202\251)\335'?!\210(?\205\356\212&q\210db\210\336\315 !!\210*\203\354\314*\337\340\341\"\210)\312(\204\366\342 \210.\207\312\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string ignore t nntp-async-wait nil process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nnheader-report nntp "Server closed connection" re-search-backward 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard limit nntp-have-messaged] 6) ((error (byte-code "\302\303\304 $\207" [address err nnheader-report nntp "Couldn't open connection to %s: %s"] 5)) (quit (byte-code "\300\301!\210\302\303\304\"\210\304\207" [message "Quit retrieving data from nntp" signal quit nil] 3))) nntp-address nntp-port-number decode callback buffer port address command nntp-connection-alist entry process alist nntp-inhibit-erase] 8]) #@70 Sets the expiry date for ARTICLE in GROUP to now, if the mark is 'E' (defalias 'nndb-request-update-mark #[(group article mark) "\203 \304\230\203\305\n \"\210 \207" [nndb-set-expire-date-on-mark mark group article "E" nndb-touch-article] 3 (#$ . 5313)]) (nnoo-register-function 'nndb-request-update-mark) #@59 Let gnus do the date check and issue the delete commands. (defalias 'nndb-request-expire-articles-local #[(articles &optional group server force) "\306\211\211\307\306\310 .\"\210/\203//\211A/@\311\312 D012\20483\2048\2124q\210\313 \210)\314\3150\316#56412\3067819:;<99=9;\203j\3179!\202l9\306\211>?9@@\203\236@\211A@@\211>\203\2369>A@=\203v>@?\306\211@\204{?\205\301\320?!\321>\203\261?\202\301\322\323?!!\210\324>=\"=\306-\206\311\3259!\211?\204\331\326\327\330;#\210\202\363A\204\3562\204\356\212\323?!q\210\313 \210)\331\332\333\217\210.\n\334 \335\336\f\"\204\335\337\f\"\204 \340\341\f\"\210\342 \343\f\344\224\344\225O!B#\203(\n\316\345 !Q T\202 B\202\nG\307V\203\346\347\350\345 ! $\210\351\352\nD012\204Z3\204Z\2124q\210\313 \210)\314\3150\316#56412\3067819:;<99=9;\203\214\3179!\202\2169\306\211>?9@@\203\300@\211A@@\211>\203\3009>A@=\203\230>@?\306\211@\204\235?\205\343\320?!\321>\203\323?\202\343\322\323?!!\210\324>=\"=\306-\206\353\3259!\211?\204\373\326\327\330;#\210\202A\2042\204\212\323?!q\210\313 \210)\331\353\354\217\210.\n\346\347\355\"\210/\244-\207" [rest num-delete delete-list art msg group nil 0 nntp-possibly-change-group "^\\([23]\\|^423\\).*\n" "X-DATE" erase-buffer mapconcat identity " " get-buffer process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" err (byte-code "\203 \306 \n \203\307\n!\210\310 \n#P\"\210*$\311=\204\365$\203>%\203>\312 %&'$%\210\202\365%\203\365 %&'\313('&%\212\314 !q\210eb\210`f\315>\203j\316\317!\203\206\320 !\321>\203\206\316\317!\203|\322 !\210\323 !\210eb\210\202]\316\324!\203\222\325 \210\202\353\320 !\326>\204\242\327\330\331\"\210\202\353db\210e)\332%)\333#\204\303\323 !\210d\334Ze])db\210\202\250)\335'?!\210(\204\353\212&q\210db\210\336\314 !!\210*\203\352\313*\337\340\341\"\210)(\204\363\342 \210.\313\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string ignore nntp-async-wait nil process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nnheader-report nntp "Server closed connection" re-search-backward t 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard limit nntp-have-messaged] 6) ((error (byte-code "\302\303\304 $\207" [address err nnheader-report nntp "Couldn't open connection to %s: %s"] 5)) (quit (byte-code "\300\301!\210\302\303\304\"\207" [message "Quit retrieving data from nntp" signal quit nil] 3))) nndb-status-message string-match "^423" "'\\(.+\\)'" error "Not a valid response for X-DATE command: %s" nnmail-expired-article-p date-to-time 1 int-to-string nnheader-message 5 "Deleting %s article(s) from %s" "^[23].*\n" "X-DELETE" (byte-code "\203 \306 \n \203\307\n!\210\310 \n#P\"\210*$\311=\204\365$\203>%\203>\312 %&'$%\210\202\365%\203\365 %&'\313('&%\212\314 !q\210eb\210`f\315>\203j\316\317!\203\206\320 !\321>\203\206\316\317!\203|\322 !\210\323 !\210eb\210\202]\316\324!\203\222\325 \210\202\353\320 !\326>\204\242\327\330\331\"\210\202\353db\210e)\332%)\333#\204\303\323 !\210d\334Ze])db\210\202\250)\335'?!\210(\204\353\212&q\210db\210\336\314 !!\210*\203\352\313*\337\340\341\"\210)(\204\363\342 \210.\313\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string ignore nntp-async-wait nil process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nnheader-report nntp "Server closed connection" re-search-backward t 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard limit nntp-have-messaged] 6) ((error (byte-code "\302\303\304 $\207" [address err nnheader-report nntp "Couldn't open connection to %s: %s"] 5)) (quit (byte-code "\300\301!\210\302\303\304\"\207" [message "Quit retrieving data from nntp" signal quit nil] 3))) "" server articles strings wait-for nnheader-callback-function nntp-inhibit-output nntp-server-buffer nntp-address nntp-port-number decode callback buffer port address command nntp-connection-alist entry process alist nntp-inhibit-erase force] 8 (#$ . 5630)]) (defalias 'nndb-get-remote-expire-response #[nil "\302 q\210eb\210\303\304!\203\302\202,\305\306\302\307#\210\305\310\302\307#\203,\311\312\313!!B\202)\207" [list nntp-server-buffer nil looking-at "^[34]" re-search-forward "follows ?\n?" t "^[0-9]+$" string-to-int match-string 0] 4]) #@38 Let the nndb backend expire articles (defalias 'nndb-request-expire-articles-remote #[(articles &optional group server force) "\306\211\211\307\310\f \"\210&\203&\f!\206'(\203&\307\2029 \311=\2031\312\2029 \313=\2039\307 \314\315)!Q\316\317\nD*+,\204\\-\204\\\212.q\210\320 \210)\321\322*\314#/0.+,\30612+34563373;\203\216\3233!\202\2203\306\211893::\203\302:\211A:@\2118\203\30238A@=\203\2328@9\306\211:\204\2379\205\345\3249!\325>\203\3259\202\345\326\3279!!\210\33087\"7\306-\206\355\3313!\2119\204\375\332\333\3345#\210\202;\204,\204\212\3279!q\210\320 \210)\335\336\337\217\210.\n\340 \211G\211\307V\203.\341\342\343\344!\f$\210\345) \",\207" [num-delete delete-list art-string days group server nil 0 nntp-possibly-change-group never -1 immediate " " nndb-build-article-string "^. ?\n\\|^[345].*\n" "X-EXPIRE" erase-buffer mapconcat identity get-buffer process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" err (byte-code "\203 \306 \n \203\307\n!\210\310 \n#P\"\210*$\311=\204\365$\203>%\203>\312 %&'$%\210\202\365%\203\365 %&'\313('&%\212\314 !q\210eb\210`f\315>\203j\316\317!\203\206\320 !\321>\203\206\316\317!\203|\322 !\210\323 !\210eb\210\202]\316\324!\203\222\325 \210\202\353\320 !\326>\204\242\327\330\331\"\210\202\353db\210e)\332%)\333#\204\303\323 !\210d\334Ze])db\210\202\250)\335'?!\210(\204\353\212&q\210db\210\336\314 !!\210*\203\352\313*\337\340\341\"\210)(\204\363\342 \210.\313\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string ignore nntp-async-wait nil process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nnheader-report nntp "Server closed connection" re-search-backward t 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard limit nntp-have-messaged] 6) ((error (byte-code "\302\303\304 $\207" [address err nnheader-report nntp "Couldn't open connection to %s: %s"] 5)) (quit (byte-code "\300\301!\210\302\303\304\"\207" [message "Quit retrieving data from nntp" signal quit nil] 3))) nndb-get-remote-expire-response nnheader-message 5 "Deleting %s article(s) from %s" int-to-string nndb-build-expire-rest-list nnmail-expiry-wait-function nnmail-expiry-wait force articles strings wait-for nnheader-callback-function nntp-inhibit-output nntp-server-buffer nntp-address nntp-port-number decode callback buffer port address command nntp-connection-alist entry process alist nntp-inhibit-erase] 8 (#$ . 10656)]) #@126 Expires ARTICLES from GROUP on SERVER. If FORCE, delete regardless of exiration date, otherwise use normal expiry mechanism. (defalias 'nndb-request-expire-articles #[(articles &optional group server force) "\203 \305 \n \f$\207\306 \n \f$\207" [nndb-server-side-expiry articles group server force nndb-request-expire-articles-remote nndb-request-expire-articles-local] 5 (#$ . 13531)]) (nnoo-register-function 'nndb-request-expire-articles) #@132 Move ARTICLE (a number) from GROUP on SERVER. Evals ACCEPT-FORM in current buffer, where the article is. Optional LAST is ignored. (defalias 'nndb-request-move-article #[(article group server accept-form &optional last) "A@\306\307 \f\"\210\310\311\n\"\203\n\n\310\312 \"\203# \313\225\306O\202$ )'\314\315('E)*+\204E,\204E\212-q\210\316 \210)\317\320)\321#./-*+\30601*23452262;\203w\3222!\202y2\306\21178299\203\2539\211A9@\2117\203\25327A@=\203\2037@8\306\2119\204\2108\205\316\3238!\324>\203\2768\202\316\325\3268!!\210\32776\"6\306-\206\326\3302!\2118\204\346\331\332\3334#\210\202:\204\373+\204\373\212\3268!q\210\316 \210)\334\335\336\217\210.\n\n()B\202<\337\340!;\341( \f;$\203:\212;q\210\342-!\210\343!\344p!\210 )\203:\345(C \f\346$\210 )*\207" [accept-form result new-group group server gname nil nntp-possibly-change-group string-match "^nndb" "^[^:]+:" 0 "^[23].*\n" "X-MOVE" erase-buffer mapconcat identity " " get-buffer process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" err (byte-code "\203 \306 \n \203\307\n!\210\310 \n#P\"\210*$\311=\204\365$\203>%\203>\312 %&'$%\210\202\365%\203\365 %&'\313('&%\212\314 !q\210eb\210`f\315>\203j\316\317!\203\206\320 !\321>\203\206\316\317!\203|\322 !\210\323 !\210eb\210\202]\316\324!\203\222\325 \210\202\353\320 !\326>\204\242\327\330\331\"\210\202\353db\210e)\332%)\333#\204\303\323 !\210d\334Ze])db\210\202\250)\335'?!\210(\204\353\212&q\210db\210\336\314 !!\210*\203\352\313*\337\340\341\"\210)(\204\363\342 \210.\313\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string ignore nntp-async-wait nil process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nnheader-report nntp "Server closed connection" re-search-backward t 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard limit nntp-have-messaged] 6) ((error (byte-code "\302\303\304 $\207" [address err nnheader-report nntp "Couldn't open connection to %s: %s"] 5)) (quit (byte-code "\300\301!\210\302\303\304\"\207" [message "Quit retrieving data from nntp" signal quit nil] 3))) get-buffer-create " *nndb move*" nndb-request-article insert-buffer-substring eval kill-buffer nndb-request-expire-articles t new-group-name article strings wait-for nnheader-callback-function nntp-inhibit-output nntp-server-buffer nntp-address nntp-port-number decode callback buffer port address command nntp-connection-alist entry process alist nntp-inhibit-erase artbuf] 8 (#$ . 13982)]) (nnoo-register-function 'nndb-request-move-article) #@54 The article in the current buffer is put into GROUP. (defalias 'nndb-request-accept-article #[(group server &optional last) "\306 \"\210\307\211\310\311D'\204\"(\204\"\212)q\210\312 \210)\313\314\f\315#*+) '\307,-./01..2.;\203Q\316.!\202S.\307\21134.55\203\2055\211A5@\2113\203\205.3A@=\203]3@4\307\2115\204b4\205\250\3174!\320>\203\2304\202\250\321\3224!!\210\32332\"2\307-\206\260\324.!\2114\204\277\325\326\3270#\202\3306\204\324'\204\324\212\3224!q\210\312 \210)\330\331\332\217.\n\203\345\333\334!\210\335\336!\210)q\210ed{\337\340\n\"\204\371\341\342\n\"\210\n\343\224\343\225O\344\345\346 #\210 *C\207" [group server msg art strings wait-for nntp-possibly-change-group nil "^[23].* ?\n" "ACCEPT" erase-buffer mapconcat identity " " get-buffer process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" err (byte-code "\203 \306 \n \203\307\n!\210\310 \n#P\"\210*$\311=\203'\312\207$\203?%\203?\313 %&'$%\210\312\207%\203\371 %&'\314('&%\212\315 !q\210eb\210`f\316>\203k\317\320!\203\207\321 !\322>\203\207\317\320!\203}\323 !\210\324 !\210eb\210\202^\317\325!\203\224\326 \210\314\202\356\321 !\327>\204\243\330\331\332\"\202\356db\210e)\333%)\312#\204\304\324 !\210d\334Ze])db\210\202\251)\335'?!\210(?\205\356\212&q\210db\210\336\315 !!\210*\203\354\314*\337\340\341\"\210)\312(\204\366\342 \210.\207\312\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string ignore t nntp-async-wait nil process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nnheader-report nntp "Server closed connection" re-search-backward 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard limit nntp-have-messaged] 6) ((error (byte-code "\302\303\304 $\207" [address err nnheader-report nntp "Couldn't open connection to %s: %s"] 5)) (quit (byte-code "\300\301!\210\302\303\304\"\210\304\207" [message "Quit retrieving data from nntp" signal quit nil] 3))) nnheader-insert "" nntp-send-buffer "^[23].*\n" string-match "^\\([0-9]+\\)" error "nndb: %s" 1 nnheader-message 5 "nndb: accepted %s" nnheader-callback-function nntp-inhibit-output nntp-server-buffer nntp-address nntp-port-number decode callback buffer port address command nntp-connection-alist entry process alist nntp-inhibit-erase] 8 (#$ . 16945)]) (nnoo-register-function 'nndb-request-accept-article) #@95 ARTICLE is the number of the article in GROUP to be replaced with the contents of the BUFFER. (defalias 'nndb-request-replace-article #[(article group buffer) "q\210\306\307\310 !D\f\204 \204\212q\210\311 \210)\312\313\n\314# ! \f\315\"#$%&';\203E\316!\202F\315\211()**\203v*\211A*@\211(\203v(A@=\203O(@)\315\211*\204T)\205\231\317)!\320>\203\211)\202\231\321\322)!!\210\323('\"'\315-\206\240\324!\211)\204\257\325\326\327%#\202\307+\204\303\f\204\303\212\322)!q\210\311 \210)\330\331\332\217.\n\205\330\333\334!\210\335\336!\210\310 !C\207" [buffer article strings wait-for nnheader-callback-function nntp-inhibit-output "^[23].* ?\n" "X-REPLACE" int-to-string erase-buffer mapconcat identity " " nil get-buffer process-status (open run) nntp-kill-buffer process-buffer delq nntp-open-connection nnheader-report nntp "Couldn't open connection to %s" err (byte-code "\203 \306 \n \203\307\n!\210\310 \n#P\"\210*$\311=\203'\312\207$\203?%\203?\313 %&'$%\210\312\207%\203\371 %&'\314('&%\212\315 !q\210eb\210`f\316>\203k\317\320!\203\207\321 !\322>\203\207\317\320!\203}\323 !\210\324 !\210eb\210\202^\317\325!\203\224\326 \210\314\202\356\321 !\327>\204\243\330\331\332\"\202\356db\210e)\333%)\312#\204\304\324 !\210d\334Ze])db\210\202\251)\335'?!\210(?\205\356\212&q\210db\210\336\315 !!\210*\203\354\314*\337\340\341\"\210)\312(\204\366\342 \210.\207\312\207" [command process string nntp-last-command-time nntp-last-command nntp-record-commands current-time nntp-record-command process-send-string ignore t nntp-async-wait nil process-buffer (50 51 52 53) looking-at "480" process-status (open run) nntp-handle-authinfo nntp-accept-process-output "[45]" nntp-snarf-error-message (open run) nnheader-report nntp "Server closed connection" re-search-backward 1000 nntp-decode-text insert-buffer-substring nnheader-message 5 "" erase-buffer nntp-end-of-line callback wait-for buffer decode discard limit nntp-have-messaged] 6) ((error (byte-code "\302\303\304 $\207" [address err nnheader-report nntp "Couldn't open connection to %s: %s"] 5)) (quit (byte-code "\300\301!\210\302\303\304\"\210\304\207" [message "Quit retrieving data from nntp" signal quit nil] 3))) nnheader-insert "" nntp-send-buffer "^[23.*\n" nntp-server-buffer nntp-address nntp-port-number decode callback port address command nntp-connection-alist entry process alist nntp-inhibit-erase] 8 (#$ . 19691)]) (nnoo-register-function 'nndb-request-replace-article) #@35 Return server status as a string. (defalias 'nndb-status-message #[(&optional server) "q\210ed{\207" [nntp-server-buffer] 2 (#$ . 22252)]) (byte-code "\300\301!\210\302\303\304\"\210\305\303!\207" [nnoo-register-function nndb-status-message nnoo-import-1 nndb ((nntp)) provide] 3)