[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/nnnil.el [gnus-5_10-branch]
From: |
Andreas Schwab |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/nnnil.el [gnus-5_10-branch] |
Date: |
Thu, 22 Jul 2004 13:12:31 -0400 |
Index: emacs/lisp/gnus/nnnil.el
diff -c /dev/null emacs/lisp/gnus/nnnil.el:1.1.2.1
*** /dev/null Thu Jul 22 16:47:15 2004
--- emacs/lisp/gnus/nnnil.el Thu Jul 22 16:45:51 2004
***************
*** 0 ****
--- 1,83 ----
+ ;;; nnnil.el --- empty backend for Gnus
+ ;; Public domain.
+
+ ;; Author: Paul Jarc <address@hidden>
+
+ ;; 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
+ ;; as 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)
+ (save-excursion
+ (set-buffer nntp-server-buffer)
+ (erase-buffer))
+ '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)
+ (save-excursion
+ (set-buffer nntp-server-buffer)
+ (erase-buffer))
+ t)
+
+ (defun nnnil-request-post (&optional server)
+ (setq nnnil-status-string "Read-only server")
+ nil)
+
+ (provide 'nnnil)
+
+ ;;; arch-tag: a982a1a3-bc5e-4fb1-a233-d7657a3e3257
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/nnnil.el [gnus-5_10-branch],
Andreas Schwab <=