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., 51 Franklin Street, Fifth Floor,
19;; Boston, MA 02110-1301, USA.
20
21;;; Commentary:
22
23;; nnnil is a Gnus backend that provides no groups or articles.  It's useful
24;; as a primary select method when you want all your real select methods to
25;; 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  (save-excursion
36    (set-buffer nntp-server-buffer)
37    (erase-buffer))
38  'nov)
39
40(defun nnnil-open-server (server &optional definitions)
41  t)
42
43(defun nnnil-close-server (&optional server)
44  t)
45
46(defun nnnil-request-close ()
47  t)
48
49(defun nnnil-server-opened (&optional server)
50  t)
51
52(defun nnnil-status-message (&optional server)
53  nnnil-status-string)
54
55(defun nnnil-request-article (article &optional group server to-buffer)
56  (setq nnnil-status-string "No such group")
57  nil)
58
59(defun nnnil-request-group (group &optional server fast)
60  (let (deactivate-mark)
61    (save-excursion
62      (set-buffer nntp-server-buffer)
63      (erase-buffer)
64      (insert "411 no such news group\n")))
65  (setq nnnil-status-string "No such group")
66  nil)
67
68(defun nnnil-close-group (group &optional server)
69  t)
70
71(defun nnnil-request-list (&optional server)
72  (save-excursion
73    (set-buffer nntp-server-buffer)
74    (erase-buffer))
75  t)
76
77(defun nnnil-request-post (&optional server)
78  (setq nnnil-status-string "Read-only server")
79  nil)
80
81(provide 'nnnil)
82
83;;; arch-tag: a982a1a3-bc5e-4fb1-a233-d7657a3e3257
84