Function: gnus-agent-copy-nov-line

gnus-agent-copy-nov-line is a byte-compiled function defined in gnus-agent.el.gz.

Signature

(gnus-agent-copy-nov-line ARTICLE)

Documentation

Copy the indicated ARTICLE from the overview buffer to the nntp server buffer.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-agent.el.gz
(defsubst gnus-agent-copy-nov-line (article)
  "Copy the indicated ARTICLE from the overview buffer to the nntp server buffer."
  (let (art b e)
    (set-buffer gnus-agent-overview-buffer)
    (while (and (not (eobp))
		(or (not (setq art (gnus-agent-read-article-number)))
		    (< art article)))
      (forward-line 1))
    (beginning-of-line)
    (if (or (eobp)
	    (not (eq article art)))
	(set-buffer nntp-server-buffer)
      (setq b (point))
      (setq e (progn (forward-line 1) (point)))
      (set-buffer nntp-server-buffer)
      (insert-buffer-substring gnus-agent-overview-buffer b e))))