X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fnnnil.el;h=e40126d6e0d0c8eba96ca8373c604230bb23e962;hp=aa02a84dfa806c844cac219b3892cf6d8ad1a339;hb=829fe7e073a13eaf991e04e90b1e731b1ccce0c2;hpb=3bfea13e662f8293f6738c73be6218138196486d

diff --git a/lisp/nnnil.el b/lisp/nnnil.el
index aa02a84df..e40126d6e 100644
--- a/lisp/nnnil.el
+++ b/lisp/nnnil.el
@@ -1,12 +1,15 @@
 ;;; nnnil.el --- empty backend for Gnus
-;; Public domain.
+
+;; This file is in the public domain.
 
 ;; Author: Paul Jarc <prj@po.cwru.edu>
 
-;; GNU Emacs is free software; you can redistribute it and/or modify
+;; This file is part of GNU Emacs.
+
+;; 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.
+;; the Free Software Foundation, either version 3 of the License, 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
@@ -14,15 +17,13 @@
 ;; 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.
+;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
 
 ;;; 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.
+;; 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:
 
@@ -32,6 +33,8 @@
 (defvar nnnil-status-string "")
 
 (defun nnnil-retrieve-headers (articles &optional group server fetch-old)
+  (with-current-buffer nntp-server-buffer
+    (erase-buffer))
   'nov)
 
 (defun nnnil-open-server (server &optional definitions)
@@ -53,10 +56,9 @@
   (setq nnnil-status-string "No such group")
   nil)
 
-(defun nnnil-request-group (group &optional server fast)
+(defun nnnil-request-group (group &optional server fast info)
   (let (deactivate-mark)
-    (save-excursion
-      (set-buffer nntp-server-buffer)
+    (with-current-buffer nntp-server-buffer
       (erase-buffer)
       (insert "411 no such news group\n")))
   (setq nnnil-status-string "No such group")
@@ -66,6 +68,8 @@
   t)
 
 (defun nnnil-request-list (&optional server)
+  (with-current-buffer nntp-server-buffer
+    (erase-buffer))
   t)
 
 (defun nnnil-request-post (&optional server)
@@ -73,3 +77,5 @@
   nil)
 
 (provide 'nnnil)
+
+;;; nnnil.el ends here