Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnheader.el @ 42:8b8b7f3559a2 r19-15b104

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b104
author cvs
date Mon, 13 Aug 2007 08:54:51 +0200
parents d620409f5eb8
children 8d2a9b52c682
comparison
equal deleted inserted replaced
41:5d6df4963a99 42:8b8b7f3559a2
55 (eval-and-compile 55 (eval-and-compile
56 (autoload 'nnmail-message-id "nnmail") 56 (autoload 'nnmail-message-id "nnmail")
57 (autoload 'mail-position-on-field "sendmail") 57 (autoload 'mail-position-on-field "sendmail")
58 (autoload 'message-remove-header "message") 58 (autoload 'message-remove-header "message")
59 (autoload 'cancel-function-timers "timers") 59 (autoload 'cancel-function-timers "timers")
60 (autoload 'gnus-point-at-eol "gnus-util") 60 (autoload 'gnus-point-at-eol "gnus-util"))
61 (autoload 'gnus-buffer-live-p "gnus-util"))
62 61
63 ;;; Header access macros. 62 ;;; Header access macros.
64 63
65 (defmacro mail-header-number (header) 64 (defmacro mail-header-number (header)
66 "Return article number in HEADER." 65 "Return article number in HEADER."
380 (defvar nnheader-callback-function nil) 379 (defvar nnheader-callback-function nil)
381 380
382 (defun nnheader-init-server-buffer () 381 (defun nnheader-init-server-buffer ()
383 "Initialize the Gnus-backend communication buffer." 382 "Initialize the Gnus-backend communication buffer."
384 (save-excursion 383 (save-excursion
385 (unless (gnus-buffer-live-p nntp-server-buffer) 384 (unless (buffer-live-p nntp-server-buffer)
386 (setq nntp-server-buffer (get-buffer-create " *nntpd*"))) 385 (setq nntp-server-buffer (get-buffer-create " *nntpd*")))
387 (set-buffer nntp-server-buffer) 386 (set-buffer nntp-server-buffer)
388 (buffer-disable-undo (current-buffer)) 387 (buffer-disable-undo (current-buffer))
389 (erase-buffer) 388 (erase-buffer)
390 (kill-all-local-variables) 389 (kill-all-local-variables)