cgit.sxemacs.org Git - gnus/blob - lisp/nnnil.el

   1 ;;; nnnil.el --- empty backend for Gnus
   2 ;; Public domain.
   3
   4 ;; Author: Paul Jarc <prj@po.cwru.edu>
   5
   6 ;; GNU Emacs is free software; you can redistribute it and/or modify
   7 ;; it under the terms of the GNU General Public License as published by
   8 ;; the Free Software Foundation; either version 2, or (at your option)
   9 ;; any later version.
  10
  11 ;; GNU Emacs is distributed in the hope that it will be useful,
  12 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 ;; GNU General Public License for more details.
  15
  16 ;; You should have received a copy of the GNU General Public License
  17 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  18 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  19 ;; Boston, MA 02111-1307, USA.
  20
  21 ;;; Commentary:
  22
  23 ;; nnnil is a Gnus backend that provides no groups or articles.  It's
  24 ;; useful ass a primary select method when you want all your real
  25 ;; select methods to be secondary or foreign.
  26
  27 ;;; Code:
  28
  29 (eval-and-compile
  30   (require 'nnheader))
  31
  32 (defvar nnnil-status-string "")
  33
  34 (defun nnnil-retrieve-headers (articles &optional group server fetch-old)
  35   'nov)
  36
  37 (defun nnnil-open-server (server &optional definitions)
  38   t)
  39
  40 (defun nnnil-close-server (&optional server)
  41   t)
  42
  43 (defun nnnil-request-close ()
  44   t)
  45
  46 (defun nnnil-server-opened (&optional server)
  47   t)
  48
  49 (defun nnnil-status-message (&optional server)
  50   nnnil-status-string)
  51
  52 (defun nnnil-request-article (article &optional group server to-buffer)
  53   (setq nnnil-status-string "No such group")
  54   nil)
  55
  56 (defun nnnil-request-group (group &optional server fast)
  57   (let (deactivate-mark)
  58     (save-excursion
  59       (set-buffer nntp-server-buffer)
  60       (erase-buffer)
  61       (insert "411 no such news group\n")))
  62   (setq nnnil-status-string "No such group")
  63   nil)
  64
  65 (defun nnnil-close-group (group &optional server)
  66   t)
  67
  68 (defun nnnil-request-list (&optional server)
  69   t)
  70
  71 (defun nnnil-request-post (&optional server)
  72   (setq nnnil-status-string "Read-only server")
  73   nil)
  74
  75 (provide 'nnnil)