Synch with Oort Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5db824f..ac7cf5d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-03-05  Paul Jarc  <prj@po.cwru.edu>
+
+       * nnnil.el: New file.
+       * gnus.el (gnus-valid-select-methods): Include nnnil.
+
 2002-03-05  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * 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 8a91533..4f949ff 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1476,7 +1476,8 @@ slower, and `std11-extract-address-components'."
     ("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 (file)
index 0000000..aa02a84
--- /dev/null
+++ b/lisp/nnnil.el
@@ -0,0 +1,75 @@
+;;; nnnil.el --- empty backend for Gnus
+;; Public domain.
+
+;; Author: Paul Jarc <prj@po.cwru.edu>
+
+;; 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)