lisp/nndir.el

   1 ;;; nndir.el --- single directory newsgroup access for Gnus
   2
   3 ;; Copyright (C) 1995 Free Software Foundation, Inc.
   4
   5 ;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
   6 ;;      Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
   7 ;; Keywords: news
   8
   9 ;; This file is part of GNU Emacs.
  10
  11 ;; GNU Emacs is free software; you can redistribute it and/or modify
  12 ;; it under the terms of the GNU General Public License as published by
  13 ;; the Free Software Foundation; either version 2, or (at your option)
  14 ;; any later version.
  15
  16 ;; GNU Emacs is distributed in the hope that it will be useful,
  17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 ;; GNU General Public License for more details.
  20
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  24 ;; Boston, MA 02111-1307, USA.
  25
  26 ;;; Commentary:
  27
  28 ;;; Code:
  29
  30 (require 'nnheader)
  31 (require 'nnmh)
  32 (require 'nnml)
  33
  34 (eval-and-compile
  35   (autoload 'mail-send-and-exit "sendmail"))
  36
  37 \f
  38
  39 (defconst nndir-version "nndir 1.0")
  40
  41 (defvar nndir-current-directory nil
  42   "Current news group directory.")
  43
  44 (defvar nndir-status-string "")
  45
  46 (defvar nndir-nov-is-evil nil
  47   "*Non-nil means that nndir will never retrieve NOV headers.")
  48
  49 \f
  50
  51 ;;; Interface functions.
  52
  53
  54 (defun nndir-retrieve-headers (sequence &optional newsgroup server)
  55   (nndir-execute-nnml-command
  56    '(nnml-retrieve-headers sequence group server) server))
  57
  58 (defun nndir-open-server (host &optional service)
  59   "Open nndir backend."
  60   (setq nndir-status-string "")
  61   (nnheader-init-server-buffer))
  62
  63 (defun nndir-close-server (&optional server)
  64   "Close news server."
  65   t)
  66
  67 (defun nndir-server-opened (&optional server)
  68   "Return server process status, T or NIL.
  69 If the stream is opened, return T, otherwise return NIL."
  70   (and nntp-server-buffer
  71        (get-buffer nntp-server-buffer)))
  72
  73 (defun nndir-status-message (&optional server)
  74   "Return server status response as string."
  75   nndir-status-string)
  76
  77 (defun nndir-request-article (id &optional newsgroup server buffer)
  78   (nndir-execute-nnmh-command
  79    '(nnmh-request-article id group server buffer) server))
  80
  81 (defun nndir-request-group (group &optional server dont-check)
  82   "Select news GROUP."
  83   (nndir-execute-nnmh-command
  84    '(nnmh-request-group group "" dont-check) server))
  85
  86 (defun nndir-request-list (&optional server dir)
  87   "Get list of active articles in all newsgroups."
  88   (nndir-execute-nnmh-command
  89    '(nnmh-request-list nil dir) server))
  90
  91 (defun nndir-request-newgroups (date &optional server)
  92   (nndir-execute-nnmh-command
  93    '(nnmh-request-newgroups date server) server))
  94
  95 (defun nndir-request-post (&optional server)
  96   "Post a new news in current buffer."
  97   (mail-send-and-exit nil))
  98
  99 (defalias 'nndir-request-post-buffer 'nnmail-request-post-buffer)
 100
 101 (defun nndir-request-expire-articles (articles newsgroup &optional server force)
 102   "Expire all articles in the ARTICLES list in group GROUP."
 103   (setq nndir-status-string "nndir: expire not possible")
 104   nil)
 105
 106 (defun nndir-close-group (group &optional server)
 107   t)
 108
 109 (defun nndir-request-move-article (article group server accept-form)
 110   (setq nndir-status-string "nndir: move not possible")
 111   nil)
 112
 113 (defun nndir-request-accept-article (group)
 114   (setq nndir-status-string "nndir: accept not possible")
 115   nil)
 116
 117 \f
 118 ;;; Low-Level Interface
 119
 120 (defun nndir-execute-nnmh-command (command server)
 121   (let ((dir (expand-file-name server)))
 122     (and (string-match "/$" dir)
 123          (setq dir (substring dir 0 (match-beginning 0))))
 124     (string-match "/[^/]+$" dir)
 125     (let ((group (substring dir (1+ (match-beginning 0))))
 126           (nnmh-directory (substring dir 0 (1+ (match-beginning 0))))
 127           (nnmh-get-new-mail nil))
 128       (eval command))))
 129
 130 (defun nndir-execute-nnml-command (command server)
 131   (let ((dir (expand-file-name server)))
 132     (and (string-match "/$" dir)
 133          (setq dir (substring dir 0 (match-beginning 0))))
 134     (string-match "/[^/]+$" dir)
 135     (let ((group (substring dir (1+ (match-beginning 0))))
 136           (nnml-directory (substring dir 0 (1+ (match-beginning 0))))
 137           (nnml-nov-is-evil nndir-nov-is-evil)
 138           (nnml-get-new-mail nil))
 139       (eval command))))
 140
 141 (provide 'nndir)
 142
 143 ;;; nndir.el ends here