From 3bfea13e662f8293f6738c73be6218138196486d Mon Sep 17 00:00:00 2001 From: Paul Jarc Date: Tue, 5 Mar 2002 23:09:34 +0000 Subject: [PATCH] * nnnil.el: New file. * gnus.el (gnus-valid-select-methods): Include nnnil. --- lisp/ChangeLog | 7 ++++- lisp/gnus.el | 3 +- lisp/nnnil.el | 75 ++++++++++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 83 insertions(+), 2 deletions(-) create mode 100644 lisp/nnnil.el diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5db824f11..ac7cf5da5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-03-05 Paul Jarc + + * nnnil.el: New file. + * gnus.el (gnus-valid-select-methods): Include nnnil. + 2002-03-05 ShengHuo ZHU * message.el (message-syntax-checks): Because canlock is @@ -18,7 +23,7 @@ * mml-smime.el (mml-smime-encrypt): Ditto. * mm-view.el (mm-inline-wash-with-file): Ditto. * mm-decode.el (mm-display-external, mm-create-image-xemacs): Ditto. - * gnus-uu.el (gnus-uu-decode-binhex, gnus-uu-decode-binhex-view) + * gnus-uu.el (gnus-uu-decode-binhex, gnus-uu-decode-binhex-view) (gnus-uu-digest-mail-forward, gnus-uu-initialize): Ditto. * gnus-start.el (gnus-slave-save-newsrc): Ditto. * gnus-fun.el (gnus-convert-image-to-gray-x-face): Ditto. diff --git a/lisp/gnus.el b/lisp/gnus.el index a5777561b..b4ad081b7 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -1438,7 +1438,8 @@ slower." ("nnlistserv" none) ("nnagent" post-mail) ("nnimap" post-mail address prompt-address physical-address) - ("nnmaildir" mail respool address)) + ("nnmaildir" mail respool address) + ("nnnil" none)) "*An alist of valid select methods. The first element of each list lists should be a string with the name of the select method. The other elements may be the category of diff --git a/lisp/nnnil.el b/lisp/nnnil.el new file mode 100644 index 000000000..aa02a84df --- /dev/null +++ b/lisp/nnnil.el @@ -0,0 +1,75 @@ +;;; nnnil.el --- empty backend for Gnus +;; Public domain. + +;; Author: Paul Jarc + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;; Commentary: + +;; nnnil is a Gnus backend that provides no groups or articles. It's +;; useful ass a primary select method when you want all your real +;; select methods to be secondary or foreign. + +;;; Code: + +(eval-and-compile + (require 'nnheader)) + +(defvar nnnil-status-string "") + +(defun nnnil-retrieve-headers (articles &optional group server fetch-old) + 'nov) + +(defun nnnil-open-server (server &optional definitions) + t) + +(defun nnnil-close-server (&optional server) + t) + +(defun nnnil-request-close () + t) + +(defun nnnil-server-opened (&optional server) + t) + +(defun nnnil-status-message (&optional server) + nnnil-status-string) + +(defun nnnil-request-article (article &optional group server to-buffer) + (setq nnnil-status-string "No such group") + nil) + +(defun nnnil-request-group (group &optional server fast) + (let (deactivate-mark) + (save-excursion + (set-buffer nntp-server-buffer) + (erase-buffer) + (insert "411 no such news group\n"))) + (setq nnnil-status-string "No such group") + nil) + +(defun nnnil-close-group (group &optional server) + t) + +(defun nnnil-request-list (&optional server) + t) + +(defun nnnil-request-post (&optional server) + (setq nnnil-status-string "Read-only server") + nil) + +(provide 'nnnil) -- 2.25.1