;ELC   
;;; compiled by larsi@narfi.ifi.uio.no on Fri Nov  3 03:30:39 1995
;;; from file /home/menja/c/larsi/dgnus/lisp/nndir.el
;;; emacs version 19.29.90.3.
;;; 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 "`nndir.el' was compiled for Emacs 19.29 or later"))


(byte-code "ÀÁ!ˆÀÂ!ˆÀÃ!ˆÄÅÆ\"ˆÇÈ	B	À‡" [require nnheader nnmh nnml autoload mail-send-and-exit "sendmail" "nndir 1.0" nndir-version current-load-list] 3)
#@31 Current news group directory.
(defvar nndir-current-directory nil (#$ . 633))
(byte-code "ÀÁ!„ ÂÁBÀ‡" [boundp nndir-status-string "" current-load-list] 2)
#@60 *Non-nil means that nndir will never retrieve NOV headers.
(defvar nndir-nov-is-evil nil (#$ . -798))
(defalias 'nndir-retrieve-headers #[(sequence &optional newsgroup server) "ÀÁ\n\"‡" [nndir-execute-nnml-command (nnml-retrieve-headers sequence group server) server] 3])
#@21 Open nndir backend.
(defalias 'nndir-open-server #[(host &optional service) "ÀÂ ‡" ["" nndir-status-string nnheader-init-server-buffer] 1 (#$ . 1076)])
#@20 Close news server.
(defalias 'nndir-close-server #[(&optional server) "À‡" [t] 1 (#$ . 1235)])
#@98 Return server process status, T or NIL.
If the stream is opened, return T, otherwise return NIL.
(defalias 'nndir-server-opened #[(&optional server) "… Á!‡" [nntp-server-buffer get-buffer] 2 (#$ . 1336)])
#@42 Return server status response as string.
(defalias 'nndir-status-message #[(&optional server) "‡" [nndir-status-string] 1 (#$ . 1550)])
(defalias 'nndir-request-article #[(id &optional newsgroup server buffer) "ÀÁ\n\"‡" [nndir-execute-nnmh-command (nnmh-request-article id group server buffer) server] 3])
#@20 Select news GROUP.
(defalias 'nndir-request-group #[(group &optional server dont-check) "ÀÁ\n\"‡" [nndir-execute-nnmh-command (nnmh-request-group group "" dont-check) server] 3 (#$ . 1863)])
#@48 Get list of active articles in all newsgroups.
(defalias 'nndir-request-list #[(&optional server dir) "ÀÁ\n\"‡" [nndir-execute-nnmh-command (nnmh-request-list nil dir) server] 3 (#$ . 2060)])
(defalias 'nndir-request-newgroups #[(date &optional server) "ÀÁ\n\"‡" [nndir-execute-nnmh-command (nnmh-request-newgroups date server) server] 3])
#@36 Post a new news in current buffer.
(defalias 'nndir-request-post #[(&optional server) "ÀÁ!‡" [mail-send-and-exit nil] 2 (#$ . 2406)])
(defalias (quote nndir-request-post-buffer) (quote nnmail-request-post-buffer))
#@58 Expire all articles in the ARTICLES list in group GROUP.
(defalias 'nndir-request-expire-articles #[(articles newsgroup &optional server force) "ÀÂ‡" ["nndir: expire not possible" nndir-status-string nil] 1 (#$ . 2626)])
(defalias 'nndir-close-group #[(group &optional server) "À‡" [t] 1])
(defalias 'nndir-request-move-article #[(article group server accept-form) "ÀÂ‡" ["nndir: move not possible" nndir-status-string nil] 1])
(defalias 'nndir-request-accept-article #[(group) "ÀÂ‡" ["nndir: accept not possible" nndir-status-string nil] 1])
(defalias 'nndir-execute-nnmh-command #[(command server) "À	!ÃÄ\n\"ƒ \nÅ‰”OÃÆ\n\"ˆ\nÅ”TÇO\nÅ‰”TOÇ	\nË\f!,‡" [expand-file-name server dir string-match "/$" 0 "/[^/]+$" nil nnmh-get-new-mail nnmh-directory group eval command] 4])
(defalias 'nndir-execute-nnml-command #[(command server) "À	!ÃÄ\n\"ƒ \nÅ‰”OÃÆ\n\"ˆ\nÅ”TÇO\nÅ‰”TOÇ	\n\fÍ!-‡" [expand-file-name server dir string-match "/$" 0 "/[^/]+$" nil nndir-nov-is-evil nnml-get-new-mail nnml-nov-is-evil nnml-directory group eval command] 4])
(provide (quote nndir))