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 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 |