;ELC ;;; compiled by gsstark@lola-granola.MIT.EDU on Tue Jul 23 13:36:16 1996 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.2.37/lisp/nndb.el ;;; emacs version 19.30.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (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 "À BÂÃ!ˆÂÄ!ˆÅÆ!„ÂÇ!ˆÈÉÊ\"ˆÈËÊ\"ˆÈÌÍ\"ˆÈÎÏÐÑ$ˆÈÒÏÐÑ$ˆÈÓÔ\"ˆÕÖ×Ø\"ЉFBЇ" [("nndb" mail address respool prompt-address) gnus-valid-select-methods require nnheader nntp fboundp open-network-stream tcp autoload news-setup "rnewspost" news-reply-mode cancel-timer "timer" telnet "telnet" nil t telnet-send-input timezone-parse-date "timezone" nndb mapcar #[(p) "C‡" [p] 1] (nntp) nnoo-definition-alist] 5) #@54 *The program used to put a message in an NNDB group. (defvar nndb-deliver-program "nndel" (#$ . -923)) (nnoo-define (quote nndb-deliver-program) nil) #@31 Like nntp-server-opened-hook. (defvar nndb-server-opened-hook (quote (nntp-send-authinfo-from-file)) (#$ . 1079)) (nnoo-define (quote nndb-server-opened-hook) (quote (nntp-server-opened-hook))) #@31 *The name of the NNDB server. (defvar nndb-address "localhost" (#$ . -1279)) (nnoo-define (quote nndb-address) (quote (nntp-address))) #@29 *Port number to connect to. (defvar nndb-port-number 9000 (#$ . -1420)) (nnoo-define (quote nndb-port-number) (quote (nntp-port-number))) #@2  (defvar nndb-status-string nil (#$ . 1563)) (nnoo-define (quote nndb-status-string) (quote (nntp-status-string))) #@42 Version numbers of this version of NNDB. (defconst nndb-version "nndb 0.3" (#$ . 1684)) (byte-code "ÀÁ!ˆÂÁÃ\"‡" [nnoo-define-basics-1 nndb nnoo-import-1 ((nntp))] 3) #@42 Creates a group if it doesn't exist yet. (defalias 'nndb-request-create-group #[(group &optional server) "ÀÁ #‡" [nntp-send-command "^[23].*\n" "MKGROUP" group] 4 (#$ . 1856)]) (nnoo-register-function (quote nndb-request-create-group)) #@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) "À‰Ã\f \"ˆ…`‰A@ÇÈÉ #ˆÊ ËÌÍÎ!\"„ ËÏ\n\"„4ÐÑ\n\"ˆÒ\fÓ\nÔ”Ô•O!Ó\nÕ”Õ•O!D#ƒW×ØÙ \f$ˆ‚ ÇÚÛ #ˆ‚ *‡" [nil art msg nntp-possibly-change-server group server articles nntp-send-command "^\\([23]\\|^423\\).*\n" "DATE" nndb-status-message string-match "^423" nnheader-get-report nndb "\\([0-9]+\\) \\([0-9]+\\)$" error "Not a valid response for DATE command: %s" nnmail-expired-article-p string-to-int 1 2 force nnheader-message 5 "Deleting article %s in %s..." "^[23].*\n" "DELETE"] 7 (#$ . 2100)]) (nnoo-register-function (quote 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) "ÀÁ!ÂÅ\f$ƒ/Š\fqˆÉ\n!Ëp!ˆ )ƒ/ÌCÍ$ˆ *‡" [get-buffer-create " *nndb move*" nil result artbuf nndb-request-article article group server eval accept-form kill-buffer nndb-request-expire-articles t] 5 (#$ . 2882)]) (nnoo-register-function (quote nndb-request-move-article)) #@54 The article in the current buffer is put into GROUP. (defalias 'nndb-request-accept-article #[(group server &optional last) "À \n\"ˆÃ‰ÆÇÈ #…>ÉÊ!ˆË ˆÌed\"ˆÍÎ!ˆÏ ÐÑ\f\"„0ÒÓ\f\"ˆ\fÔ”Ô•OÕÖ \"ˆ C*‡" [nntp-possibly-change-server group server nil statmsg art nntp-send-command "^[23].* ?\n" "ACCEPT" nnheader-insert "" nntp-encode-text nntp-send-region-to-server nntp-wait-for-response "^[23].*\n" nntp-status-message string-match "^\\([0-9]+\\)" error "nndb: %s" 1 message "nndb: accepted %s"] 4 (#$ . 3394)]) (nnoo-register-function (quote nndb-request-accept-article)) #@96 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ˆÁ‰ÄÅÆÇ!#…'ÉÊ!ˆË ˆÌed\"ˆÍÎ!ˆÇ!C*‡" [buffer nil statmsg art nntp-send-command "^[23].* ?\n" "REPLACE" int-to-string article nnheader-insert "" nntp-encode-text nntp-send-region-to-server nntp-wait-for-response "^[23].*\n"] 5 (#$ . 3971)]) (byte-code "ÀÁ!ˆÂÃ!‡" [nnoo-register-function nndb-request-replace-article provide nndb] 2)