/[emacs]/emacs/lisp/gnus/nnnil.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nnnil.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by schwab, Thu Jul 22 16:45:51 2004 UTC revision 1.2 by miles, Sat Sep 4 13:13:43 2004 UTC
# Line 0  Line 1 
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

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26