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