Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnheader.el @ 44:8d2a9b52c682 r19-15prefinal

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15prefinal
author cvs
date Mon, 13 Aug 2007 08:55:10 +0200
parents 8b8b7f3559a2
children 131b0175ea99
comparison
equal deleted inserted replaced
43:23cafc5d2038 44:8d2a9b52c682
379 (defvar nnheader-callback-function nil) 379 (defvar nnheader-callback-function nil)
380 380
381 (defun nnheader-init-server-buffer () 381 (defun nnheader-init-server-buffer ()
382 "Initialize the Gnus-backend communication buffer." 382 "Initialize the Gnus-backend communication buffer."
383 (save-excursion 383 (save-excursion
384 (unless (buffer-live-p nntp-server-buffer) 384 (unless (gnus-buffer-live-p nntp-server-buffer)
385 (setq nntp-server-buffer (get-buffer-create " *nntpd*"))) 385 (setq nntp-server-buffer (get-buffer-create " *nntpd*")))
386 (set-buffer nntp-server-buffer) 386 (set-buffer nntp-server-buffer)
387 (buffer-disable-undo (current-buffer)) 387 (buffer-disable-undo (current-buffer))
388 (erase-buffer) 388 (erase-buffer)
389 (kill-all-local-variables) 389 (kill-all-local-variables)