X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fnnnil.el;h=ac8d5e6ae4a3934736d7ba0d671790a10d07f8e6;hb=1f10405ecb2f68367521d93b6cb826f28367008c;hp=aa02a84dfa806c844cac219b3892cf6d8ad1a339;hpb=3bfea13e662f8293f6738c73be6218138196486d;p=gnus diff --git a/lisp/nnnil.el b/lisp/nnnil.el index aa02a84df..ac8d5e6ae 100644 --- a/lisp/nnnil.el +++ b/lisp/nnnil.el @@ -15,14 +15,14 @@ ;; 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. +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, 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. +;; 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 +32,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) @@ -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) + +;;; arch-tag: a982a1a3-bc5e-4fb1-a233-d7657a3e3257