emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/gnus/nnnil.el [lexbind]


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/gnus/nnnil.el [lexbind]
Date: Wed, 15 Sep 2004 20:34:43 -0400

Index: emacs/lisp/gnus/nnnil.el
diff -c /dev/null emacs/lisp/gnus/nnnil.el:1.2.4.1
*** /dev/null   Thu Sep 16 00:13:15 2004
--- emacs/lisp/gnus/nnnil.el    Thu Sep 16 00:12:15 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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]